推荐下天枫常用ASP函数封装，推荐大家使用

            For Each TF_Post In Request.Form
                For i=0 To Ubound(badword)
                    If Instr(LCase(Request.Form(TF_Post)),badword(i))>0 Then
                        Psql=badword(i)
                        exit function
                    End If
                Next
            Next
        End If
        If Request.QueryString<>"" Then
            For Each TF_Get In Request.QueryString
                For i=0 To Ubound(badword)
                    If Instr(LCase(Request.QueryString(TF_Get)),badword(i))>0 Then
                        Psql=badword(i)
                        exit function
                    End If
                Next
            Next
        End If
    End Function

    '****************************************************
    '函数名：FiltrateHtmlCode
    '作  用：防止生成html代码    
    '参  数：str ----字符串
    '****************************************************
    Public Function FiltrateHtmlCode(Str)
        If Not isnull(str) And str<>"" then