| Ниже приведено фрагмент кода: <% '================================================================= 'Декодирование строки для HTML, замените server.htmlencode 'Удалить формат HTML для вывода дисплея '================================================================= Функция outhtml (str) Dim Stemp Stemp = str oothtml = "" " Если isnull (step) = true, тогда Выходная функция Конец, если Stemp = reply (step, "&", "& amp;") Stemp = reply (Stemp, "<", "" & lt; ") Stemp = reply (step, ">", "& gt;") Stemp = reply (Stemp, Chr (34), "& quot;") step = заменить (step, chr (10), "<br>") oothtml = stemp Конечная функция '================================================================= 'Удалите формат HTML и используйте его для заполнения ввода из базы данных 'Примечание: значение = "?" '================================================================= Функция inhtml (str) Dim Stemp Stemp = str inhtml = "" Если isnull (step) = true, тогда Выходная функция Конец, если Stemp = reply (step, "&", "& amp;") Stemp = reply (Stemp, "<", "" & lt; ") Stemp = reply (step, ">", "& gt;") Stemp = reply (Stemp, Chr (34), "& quot;") inhtml = stemp Конечная функция %> |