<%
'**********************************
'Función: htmlencode (restringir)
'Parámetro: restringir, cadena a codificar
'Autor: Alixi
'Fecha: 2007/7/15
'Descripción: Convertir el código HTML
'Ejemplo: htmlencode ("<p> Bienvenido a <br> alixi </p>")
'**********************************
FunctionHtmlencode (restringir)
Dimstr: str = restringir
Ifnotisnull (str) entonces
Str = uncheckstr (str)
Str = reemplazar (str, "&", "&")
Str = reemplazar (str, ">", ">")
Str = reemplazar (str, "<", "<")
Str = reemplazar (str, chr (32), "")
Str = reemplazar (str, chr (9), "")
Str = reemplazar (str, chr (9), "")
Str = reemplazar (str, chr (34), "")
Str = reemplazar (str, chr (39), "'")
Str = reemplazar (str, chr (13), "")
Str = reemplazar (str, chr (10), "<br>")
Htmlencode = str
Endif
Función final
'Código HTML de conversión inversa
FunctionHtmlDecode (restringir)
Dimstr: str = restringir
Ifnotisnull (str) entonces
Str = reemplazar (str, "&", "&")
Str = reemplazar (str, ">", ">")
Str = reemplazar (str, "<", "<")
Str = reemplazar (str, "", chr (32))
Str = reemplazar (str, "", chr (9))
Str = reemplazar (str, "", chr (9))
Str = reemplazar (str, "", chr (34))
Str = reemplazar (str, "'", chr (39))
Str = reemplazar (str, "", chr (13))
Str = reemplazar (str, "<br>", chr (10))
Htmldecode = str
Endif
Función final
%>