newasp中main类(30)

            If Len(str) > strLen Then
                Response.Write "<Script Language=JavaScript>alert('安全系统提示↓\n\n您提交的字符数超过了限制！');history.back(-1)</Script>"
                CheckInfuse = ""
                Response.End
            End If
            arrUnsafe = Split(strUnsafe, "|")
            For i = 0 To UBound(arrUnsafe)
                If InStr(1, str, arrUnsafe(i), 1) > 0 Then
                    Response.Write "<Script Language=JavaScript>alert('安全系统提示↓\n\n请不要在参数中包含非法字符！');history.back(-1)</Script>"
                    CheckInfuse = ""
                    Response.End
                End If
            Next
        End If
        CheckInfuse = Trim(str)
        Exit Function
        If Err.Number <> 0 Then
            Err.Clear
            Response.Write "<Script Language=JavaScript>alert('安全系统提示↓\n\n请不要在参数中包含非法字符！');history.back(-1)</Script>"
            CheckInfuse = ""
            Response.End
        End If
    End Function
    Public Sub PreventInfuse()
        On Error Resume Next
        Dim SQL_Nonlicet, arrNonlicet