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
%>
[]
赞助商链接