Он часто используется при выводе RSS и XML и не совсем то же самое, что htmlencode
принцип:
| Характер | Преобразован в |
| " | |
| ' | ' |
| И | И |
| < | < |
| > | > |
Код
<%
Функция xmlencode (Byval Stext)
stext = reply (stext, "&", "&")
stext = reply (stext, "<", "<")
stext = reply (stext, ">", ">")
stext = reply (stext, "'", "'")
stext = reply (stext, "" "", "")
Xmlencode = Stext
Конечная функция
%>
Еще один:
<%
Публичная функция xmlencode (byval strtext as string) как строка
Dim arychars () как вариант
Arychars = массив (38, 60, 62, 34, 61, 39)
Dim I как целое число
Для i = 0 до ubound (arychars)
strtext = replace (strtext, chr (arychars (i)), "&#" & arychars (i) & ";")
Следующий
Xmlencode = strtext
Конечная функция
%>