<%
'*********************************
'Funktion: htmlencode (Resting)
'Parameter: Restings, String, die codiert werden sollen
'Autor: Alixi
'Datum: 2007/7/15
'Beschreibung: HTML -Code konvertieren
'Beispiel: htmlencode ("<p> Willkommen zu <br> Alixi </p>")
'*********************************
FunctionHtmlencode (Resting)
Dimstr: Str = Resting
Ifnotisnull (str) dann
STR = Unbeholfen (str)
Str = ersetzen (str, "&", "&")
Str = ersetzen (str, ">", ">")
STR = Ersetzen (str, "<", "<")
STR = Ersatz (str, chr (32), "")
Str = ersetzen (str, chr (9), "")
Str = ersetzen (str, chr (9), "")
STR = Ersatz (str, chr (34), "")
STR = Ersatz (str, chr (39), "'")
Str = ersetzen (str, chr (13), "")
STR = Ersatz (str, chr (10), "<br>")
Htmlencode = str
Endif
Endfunktion
'Inverse Conversion HTML -Code
FunctionHtmldecode (Resting)
Dimstr: Str = Resting
Ifnotisnull (str) dann
Str = ersetzen (str, "&", "&")
Str = ersetzen (str, ">", ">")
STR = Ersetzen (str, "<", "<")
STR = Ersatz (str, "", chr (32))
Str = ersetzen (str, "", chr (9))
Str = ersetzen (str, "", chr (9))
Str = ersetzen (str, "", chr (34))
Str = ersetzen (str, "'", chr (39))
Str = ersetzen (str, "", chr (13))
Str = ersetzen (str, "<br>", chr (10))
Htmldecode = str
Endif
Endfunktion
%>