newasp中main类(5)

        End If
        ChkNumeric = CHECK_ID
    End Function

    Public Function CheckStr(ByVal str)
        If IsNull(str) Then
            CheckStr = ""
            Exit Function
        End If
        str = Replace(str, Chr(0), "")
        CheckStr = Replace(str, "'", "''")
    End Function
    '================================================
    '过程名：CheckNull
    '作  用：是否有效值
    '================================================
    Public Function CheckNull(ByVal sValue)
        On Error Resume Next
        If IsNull(sValue) Then
            CheckNull = False
            Exit Function
        End If
        If Trim(sValue) <> "" And LCase(Trim(sValue)) <> "http://" Then
            CheckNull = True
        Else
            CheckNull = False
        End If
    End Function
    Public Function ChkNull(ByVal str)
        On Error Resume Next
        If IsNull(str) Then
            ChkNull = ""
            Exit Function
        End If
        If Trim(str) <> "" And LCase(Trim(str)) <> "http://" Then
            ChkNull = Trim(str)
        Else
            ChkNull = ""