<%
'*********************************
'Function: htmlencode (отдых)
'Параметр: отдых, строка, которую нужно кодировать
Автор: Аликси
Дата: 2007/7/15
'Описание: конвертировать HTML -код
Пример: htmlencode ("<p> Добро пожаловать в <br> alixi </p>")
'*********************************
Functionhtmlencode (restring)
Dimstr: Str = отдых
Ifnotisnull (str) тогда
Str = uncheckstr (str)
Str = reply (str, "&", "&")
Str = reply (str, ">", ">")
Str = reply (str, "<", "<")
Str = reply (str, chr (32), "")
Str = reply (str, chr (9), "")
Str = reply (str, chr (9), "")
Str = reply (str, chr (34), "")
Str = reply (str, chr (39), "'")
Str = заменить (str, chr (13), "")
Str = reply (str, chr (10), "<br>")
Htmlencode = str
Эндиф
Конечная функция
'HTML -код обратного преобразования
Functionhtmldecode (restring)
Dimstr: Str = отдых
Ifnotisnull (str) тогда
Str = reply (str, "&", "&")
Str = reply (str, ">", ">")
Str = reply (str, "<", "<")
Str = заменить (str, "", chr (32))
Str = заменить (str, "", chr (9))
Str = заменить (str, "", chr (9))
Str = заменить (str, "", chr (34))
Str = reply (str, "'", chr (39))
Str = заменить (str, "", chr (13))
Str = reply (str, "<br>", chr (10))
Htmldecode = str
Эндиф
Конечная функция
%>