·您现在的位置: 云翼网络 >> 文章中心 >> 网站建设 >> 网站建设开发 >> ASP网站建设 >> ASP常用函数:BHTML()

ASP常用函数:BHTML()

作者:佚名      ASP网站建设编辑:admin      更新时间:2022-07-23

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