newasp中main类(36)

            End If
        Next
        IsValidPassword = True
    End Function
    '================================================
    '函数名：IsValidChar
    '作  用：判断字符串中是否含有非法字符和中文
    '参  数：str   ----原字符串
    '返回值：False,True -----布尔值
    '================================================
    Public Function IsValidChar(ByVal str)
        IsValidChar = False
        On Error Resume Next

        If IsNull(str) Then Exit Function
        If Trim(str) = Empty Then Exit Function
        Dim ValidStr
        Dim i, l, s, c

        ValidStr = "ABCDEFGHIJKLMNOPQRSTUVWXYZ.-_:~\/0123456789"
        l = Len(str)
        s = UCase(str)
        For i = 1 To l
            c = Mid(s, i, 1)
            If InStr(ValidStr, c) = 0 Then
                IsValidChar = False
                Exit Function
            End If
        Next
        IsValidChar = True
    End Function
    '================================================
    '函数名：FormatDate
    '作  用：格式化日期
    '参  数：DateAndTime   ----原日期和时间
    '        para   ----日期格式
    '返回值：格式化后的日期
    '================================================