Die Codekopie lautet wie folgt:
functionHtmlencode (fstring)
ifnotisnull (fstring) dann
fstring = ersetzen (fstring, ">", ">")
fstring = ersetzen (fstring, "<", "<")
fstring = ersetzen (fstring, chr (32), "")
fstring = ersetzen (fstring, chr (9), "")
fstring = ersetzen (fstring, chr (34), "")
fstring = ersetzen (fstring, chr (39), "'")
fstring = ersetzen (fstring, chr (13), "")
fstring = ersetzen (fstring, chr (10) & chr (10), "</p> <p>")
fstring = ersetzen (fstring, chr (10), "<br>")
Htmlencode = fstring
Endif
Endfunktion
Funktionen, die sich (STR) (STR) 'Diese Funktion wird verwendet, um zu bestimmen
Dims_badstr, n, ich
s_badstr = "'& <>?%,; :()` ~!@#$^*{} [] | //+-= "& chr (34) & chr (9) & chr (32)
n = len (s_badstr)
Sicher = wahr
Fei = 1ton
IFInStr (STR, MID (S_BADSTR, I, 1))> 0Then
Sicher = falsch
Ausgangsfunktion
Endif
Nächste
Endfunktion