ASP常用函数:BHTML()

　2009-06-30 04:21:00　来源：WEB开发网　　　

核心提示：<%'功能:相当于HTMLEncode2的升级.不需要循环整个字符串.'来源:http://www.cncms.com/536459.htmlFunction BHTML(s) BHTML = BStr(s) BHTML = Server.HTMLEncode(BHTML) BHTML =

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