<%
'功能:相當于HTMLEncode2的升級.不需要循環整個字符串.
'來源:http://www.49028c.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
%>