Parfois, nous ne pouvons pas contrôler l'émergence du code brouillé.
Il y a quelques jours, j'ai rencontré le formulaire de soumission du formulaire avec Ajax, puis j'ai envoyé l'e-mail.
La première fonction convertit les données en HTML en entité HTML, tandis que la balise HTML ne tourne pas automatiquement.
La deuxième fonction a également remplacé les données JS par un caractère de transition.
Fonction htmlenties (str)
Dim a, i, char
Pour i = 1 à Len (str)
char = mid (str, i, 1)
A = ASCW (char)
Si un> 128 ou un <0 alors
htmlentities = htmlentities & & # & clng (& h & hex ((ascw (char))) &;
Autre
htmlentities = htmlentities & char
Terminer si
Suivant
Fonction finale
Fonction Unicode (STR1)
Dim Str, temp
Str =
Pour i = 1 à Len (str1)
temp = hex (ascw (mid (str1, i, 1)))))
Si Len (temp) <5 le test = à droite (0000 ″ et test, 4)
Str = str & / u & temp
Suivant
Unicode = str
Fonction finale
Si vous maintenez l'attitude de le maintenir, vous pouvez utiliser n'importe quoi ou non.