newasp中main类(6)

        End If
    End Function
    '=============================================================
    '函数名：ChkFormStr
    '作  用：过滤表单字符
    '参  数：str   ----原字符串
    '返回值：过滤后的字符串
    '=============================================================
    Public Function ChkFormStr(ByVal str)
        Dim fString
        fString = str
        If IsNull(fString) Then
            ChkFormStr = ""
            Exit Function
        End If
        fString = Replace(fString, "'", "'")
        fString = Replace(fString, Chr(34), """)
        fString = Replace(fString, Chr(13), "")
        fString = Replace(fString, Chr(10), "")
        fString = Replace(fString, Chr(9), "")
        fString = Replace(fString, ">", ">")
        fString = Replace(fString, "<", "<")
        fString = Replace(fString, "%", "％")
        ChkFormStr = Trim(JAPEncode(fString))
    End Function
    '=============================================================
    '函数作用：过滤SQL非法字符
    '=============================================================
    Public Function CheckRequest(ByVal str,ByVal strLen)
        On Error Resume Next
        str = Trim(str)
        str = Replace(str, Chr(0), "")
        str = Replace(str, "'", "")
        str = Replace(str, "%", "")
        str = Replace(str, "^", "")