Кода -копия выглядит следующим образом:
functionhtmlencode (fstring)
ifnotisnull (fstring) тогда
fstring = reply (fstring, ">", ">")
fstring = reply (fstring, "<", "<")
fstring = reply (fstring, chr (32), "")
FSTRING = Заменить (FSTRING, ChR (9), "")
fstring = reply (fstring, chr (34), "")
fstring = reply (fstring, chr (39), "'")
FSTRING = Заменить (FSTRING, ChR (13), "")
fstring = reply (fstring, chr (10) и chr (10), "</p> <p>")
FSTRING = Заменить (FSTRING, CHR (10), "<br>")
Htmlencode = fstring
эндиф
конечная функция
FunctionSafe (str) 'Эта функция используется для определения того, содержит ли передача переменная специальные символы и не возвращает истинность
Dims_badstr, n, i
s_badstr = "'& <>?%,; :()` ~!@#$^*{} [] | //+-= "& chr (34) & chr (9) & chr (32)
n = len (s_badstr)
Safe = True
Fori = 1ton
Ifinstr (str, mid (s_badstr, i, 1))> 0then
Safe = false
Выходная функция
Эндиф
Следующий
Конечная функция