ASP程序过滤(显示)HTML代码的方法

ASP程序过滤(显示)HTML代码的方法，以下为代码示例，请大家参考使用。
<% 
function htmlcheck(htmlstring) 
htmlstring = replace(htmlstring,"<","&lt")  
htmlstring = replace(htmlstring,">","&gt") 
htmlstring = replace(htmlstring,"&","&amp") 
htmlstring = replace(htmlstring,"  ","&nbsp&nbsp") 
htmlstring = replace(htmlstring,"chr(10)","<br>") 
htmlcheck = htmlstring 
end function 
%> 

用的时候是<%=htmlcheck(rs("message"))%>，比如输入<b>test</b>显示的时候就备替换为: 
&ltb&gttest&lt/b&gt