ASP常用函数:BHTML()

<%

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

%>