ASP常用函數:BHTML()

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