Häufig verwendete ASP-Funktionen: BHTML()

<%
'Funktion: Entspricht dem Upgrade von HTMLEncode2. Es ist nicht erforderlich, die gesamte Zeichenfolge zu durchlaufen.
'Quelle: http://www.downcodes.com/536459.html

Funktion BHTML(s)
BHTML = BStr(s)
BHTML = Server.HTMLEncode(BHTML)
BHTML = Ersetzen(BHTML, " ", " ")
BHTML = Ersetzen(BHTML, " ", " ")
BHTML = Ersetzen(BHTML, vbCr, "<br />")
BHTML = Ersetzen(BHTML, vbLf, "<br />")
BHTML = Ersetzen(BHTML, vbTab, " ")
Funktion beenden
%>