ASP常用函數:BHTML()

<%
'功能:相當於HtmlEncode2的升級.不需要循環整個字符串.
'來源:http://www.knowsky.com/536459.Html

Function BHtml(s)
    BHtml = BStr(s)
    BHTML = Server.HTMLEncode(BHtml)
    BHTML = Replace(BHtml, " ", " ")
    BHTML = Replace(BHtml, "  ", "  ")
    BHTML = Replace(BHtml, vbCr, "<br />")
    BHTML = Replace(BHtml, vbLf, "<br />")
    BHTML = Replace(BHtml, vbTab, "    ")
End Function
%>