Иногда мы не можем контролировать появление искаженного кода.
Несколько дней назад я столкнулся с формой отправки формы с Ajax, а затем отправил электронное письмо.
Первая функция преобразует данные в HTML в HTML -объект, в то время как HTML -тег не поворачивается автоматически.
Вторая функция также заменила данные JS с помощью переходного символа.
Функция htmlenties (str)
Dim a, i, char
Для i = 1 до Лена (Str)
char = mid (str, i, 1)
a = ascw (char)
Если A> 128 или A <0, то
htmlentities = htmlentities & &# & clng (& h & hex ((ascw (char))) &;
Еще
htmlentities = htmlentities & char
Конец, если
Следующий
Конечная функция
Функция Unicode (Str1)
Dim Str, Temp
Str =
Для i = 1 до Лена (Str1)
Temp = hex (ASCW (Mid (str1, i, 1))))))))
Если Len (Temp) <5 test = right (0000 ″ & test, 4)
Str = str & /u & temp
Следующий
Unicode = str
Конечная функция
Если вы держите отношение к его удержанию, вы можете использовать что -либо или нет.