La copie de code est la suivante:
functionhtmlencode (fstring)
ifnotisnull (fstring) puis
fString = remplacer (fstring, ">", ">")
fString = remplacer (fstring, "<", "<")
fString = remplacer (fstring, chr (32), "")
fString = remplacer (fstring, chr (9), "")
fString = remplacer (fstring, chr (34), "")
fString = remplacer (fstring, chr (39), "'")
fString = remplacer (fstring, chr (13), "")
fString = remplacer (fstring, chr (10) & chr (10), "</p> <p>")
fString = remplacer (fstring, chr (10), "<br>")
Htmlencode = fstring
endire
finition de fin
Fonctionsafe (str) 'Cette fonction est utilisée pour déterminer si la variable passée contient des caractères spéciaux et ne revient pas vrai
Dims_badstr, n, i
s_badstr = "'& <>?%,; :()` ~! @ # $ ^ * {} [] | // + - = "& chr (34) & chr (9) & chr (32)
n = len (s_badstr)
SAFE = VRAI
Fori = 1Ton
IFinstr (str, mid (s_badstr, i, 1))> 0THEN
Sûr = faux
Sortie
Endire
Suivant
Finition de fin