<%
'***********************************
'Função: htmlencode (restrição)
'Parâmetro: restrição, string a ser codificada
'Autor: Alixi
Data: 2007/7/15
'Descrição: Converta o código HTML
'Exemplo: htmlencode ("<p> Bem -vindo ao <br> Alixi </p>")
'***********************************
Functionhtmlencode (restrição)
DIMSTR: STR = RESTRAÇÃO
Ifnotisnull (str) Então
Str = uMeckStr (str)
Str = substituir (str, "&", "&")
Str = substituir (str, ">", ">")
Str = substituir (str, "<", "<")
Str = substituir (str, chr (32), "")
Str = substituir (str, chr (9), "")
Str = substituir (str, chr (9), "")
Str = substituir (str, chr (34), "")
Str = substituir (str, chr (39), "'")
Str = substituir (str, chr (13), "")
Str = substituir (str, chr (10), "<br>")
Htmlencode = str
Endif
Função final
'Código HTML de conversão inversa
Functionhtmldecode (restrição)
DIMSTR: STR = RESTRAÇÃO
Ifnotisnull (str) Então
Str = substituir (str, "&", "&")
Str = substituir (str, ">", ">")
Str = substituir (str, "<", "<")
Str = substituir (str, "", cr (32))
Str = substituir (str, "", cr (9))
Str = substituir (str, "", cr (9))
Str = substituir (str, "", cr (34))
Str = substituir (str, "'", Chr (39))
Str = substituir (str, "", cr (13))
Str = substituir (str, "<br>", chr (10))
Htmldecode = str
Endif
Função final
%>