La copia del código es la siguiente:
functionHtmlencode (FString)
ifnotisnull (fString) entonces
fString = reemplazar (fString, ">", ">")
fString = reemplazar (fString, "<", "<")
fString = reemplazar (fString, chr (32), "")
fString = reemplazar (fString, chr (9), "")
fString = reemplazar (fString, chr (34), "")
fString = reemplazar (fString, chr (39), "'")
fString = reemplazar (fString, chr (13), "")
fString = reemplazar (fString, chr (10) y chr (10), "</p> <p>")
fString = reemplazar (fString, chr (10), "<br>")
Htmlencode = fString
endif
Función final
Functionsafe (Str) 'Esta función se utiliza para determinar si la variable pasada contiene caracteres especiales y no devuelve verdadero
Dims_badstr, n, yo
s_badstr = "'& <>?%,; :()` ~!@#$^*{} [] | //+-= "& chr (34) & chr (9) & chr (32)
n = len (S_BADSTR)
Seguro = verdadero
Fori = 1ton
Ifinstr (str, mid (s_badstr, i, 1))> 0then
Seguro = falso
Extinción
Endif
Próximo
Función final