A cópia do código é a seguinte:
functionhtmlencode (fstring)
ifnotisnull (fString) então
fString = substituir (fstring, ">", ">")
fString = substituir (fstring, "<", "<")
fString = Substituir (fstring, Chr (32), "")
fString = Substituir (fstring, Chr (9), "")
fString = Substituir (fstring, Chr (34), "")
fString = Substituir (FString, Chr (39), "'")
fString = substituir (fstring, chr (13), "")
fString = Substituir (FString, Chr (10) & Ch (10), "</p> <p>")
fString = Substituir (fstring, Chr (10), "<br>")
Htmlencode = fString
endif
Função final
Funçõesafe (str) 'Esta função é usada para determinar se a variável passada contém caracteres especiais e não retorna verdadeiro
Dims_badstr, n, i
s_badstr = "'& <>?%;
n = len (s_badstr)
Seguro = verdadeiro
Fori = 1ton
Ifinstr (str, mid (s_badstr, i, 1))> 0hen
Seguro = falso
Saída de saída
Endif
Próximo
Função final