Manchmal können wir die Entstehung von verstümmelten Code nicht kontrollieren.
Vor ein paar Tagen habe ich die Form der Einreichung des Formulars mit Ajax gestoßen und dann die E -Mail geschickt.
Die erste Funktion konvertiert die Daten in HTML in die HTML -Entität, während sich das HTML -Tag nicht automatisch dreht.
Die zweite Funktion ersetzte auch die JS -Daten durch einen Übergangszeichen.
Funktion htmlenties (STR)
Dim a, i, Char
Für i = 1 bis len (str)
char = mid (str, i, 1)
A = ASCW (char)
Wenn a> 128 oder a <0 dann
htmlentities = htmlentities & &# & clng (& h & h & hex ((ascw (char))) &;
Anders
htmlentities = htmlentities & char
Ende wenn
Nächste
Endfunktion
Funktion Unicode (STR1)
Dim str, temp
Str =
Für i = 1 bis len (str1)
temp = hex (ASCW (MID (STR1, I, 1))))
Wenn Len (Temp) <5 der Test = rechts (0000 ″ & Test, 4)
STR = STR & /U & TEMP
Nächste
Unicode = str
Endfunktion
Wenn Sie die Haltung des Haltens halten, können Sie etwas verwenden oder nicht.