<%
'功能:相当于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
%>
