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

    '****************************************************
    '函数名：CheckName
    '作  用：名字字符检验    
    '参  数：str ----字符串
    '返回值：true无误，false有误
    '****************************************************
    Public Function CheckName(Str)
        Checkname=true
        Dim Rep,pass
        Set Rep=New RegExp
        Rep.Global=True
        Rep.IgnoreCase=True
        '匹配字母、数字、下划线、汉字且必须以字母或下划线或汉字开始
        Rep.Pattern="^[a-zA-Z_u4e00-\u9fa5][\w\u4e00-\u9fa5]+$"
        Set pass=Rep.Execute(Str)
        If pass.count=0 Then CheckName=false
        Set Rep=Nothing
    End Function

    '****************************************************
    '函数名：CheckPassword
    '作  用：密码检验
    '参  数：str ----字符串
    '返回值：true无误，false有误
    '****************************************************
    Public Function CheckPassword(Str)
        Dim pass
        CheckPassword=true
        If Str <> "" Then
            Dim Rep
            Set Rep = New RegExp
            Rep.Global = True
            Rep.IgnoreCase = True
            '匹配字母、数字、下划线、点号
            Rep.Pattern="[a-zA-Z0-9_\.]+$"
            Pass=rep.Test(Str)
            Set Rep=nothing
            If not Pass Then CheckPassword=false