<!--StartFragment--><%
'过滤字符串Str中的HTML代码
Public Function FilterHtml(Str)
    If Trim(Str) = "" Or IsNull(Str) Then
        FilterHtml=""
    Else
    Str = Replace(Str, ">", "&gt;")
    Str = Replace(Str, "<", "&lt;")
    Str = Replace(Str, Chr(32), " ")
    Str = Replace(Str ,Chr(9), " ")
    Str = Replace(Str, Chr(34), """)
    Str = Replace(Str, Chr(39), "&#39;")
    Str = Replace(Str, Chr(13), "")
    Str = Replace(Str, Chr(10) & Chr(10), "</p><p>")
    Str = Replace(Str, Chr(10), "<br> ")
    FilterHtml = Str
    End If
End Function
%>
<%
Dim X
X=Request.Form("text")
If X<>"" Then
%>
过滤引用:<%=FilterHtml(X)%>