ASP常用函数:BHTML()技巧

<%
'功能:相当于HTMLEncode2的升级.不需要循环整个字符串.
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
%>