ASP用户注册检测函数

3次阅读

    ASP 用户注册检测函数（使用正则表达式）
    这是以前写网站时自己写的一个类
    用户注册时除了在前台用 JS 检测外
    真正入库时也是要检测的因为安全问题
    假如你写网站只是在 JS 那里检测提交的数据
    不在后台再做最后把关的话人家浏览你网站只要禁用 JS
    就可以提交非法数据干他们想干的事
    <%
    'K8 ASP 正则表达式
    ' 正则网名数字大小写字母（6-10）
    Function CheckName（NetName）
    Set re = new RegExp
    re.Pattern = "^[A-Za-z0-9]{6,10}$"
    ' 进行匹配测试
    If re.Test（NetName）Then
    CheckResult=true
    Else
    CheckResult=false
    End If
    CheckName=CheckResult
    end function
    'Response.write Cstr（CheckName（"234234"））
    ' 正则检测邮箱
    Function CheckEmail（Email）
    Set re = new RegExp ' 创建 RegExp 实例
    re.Pattern = "^\w+（[-+.]\w+）*@\w+（[-.]\w+）*\.\w+（[-.]\w+）*$"
    'Email = "crack8@qq.com"
    ' 进行匹配测试，并写出是否匹配成功
    If re.Test（Email）Then
    ''Response.write（" 匹配成功！"）
    CheckResult=true
    Else
    CheckResult=false
    ''Response.write（" 匹配成功！"）
    End If
    CheckEmail=CheckResult
    end function
    ' 调用函数测试
    'Response.write CheckEmail（"crack8@qq.com"）
    ' 检测手机和电话号码
    Function CheckPhone（phone）
    if CheckMobile（phone）=true or CheckTelPhone（phone）=true then
    CheckPhone=true
    else
    CheckPhone=false
    end if
    end function
    ' 正则手机号码
    Function CheckMobile（Mobile）
    Set re = new RegExp
    re.Pattern = "^（（（13[0-9]{1}）|147|150|151|152|153|156|158|159|182|186|188|189）+\d{8}）$"
    ' 进行匹配测试
    If re.Test（Mobile）Then
    CheckResult=true
    Else
    CheckResult=false
    End If
    CheckMobile=CheckResult
    end function
    ' 调用函数测试
    'Response.write CheckMobile（"15080805555"）
    ' 正则电话号码
    Function CheckTelPhone（TelPhone）
    Set re = new RegExp
    Set re2 = new RegExp
    re.Pattern = "^（（[0\+]\d{2,3}-）？（0\d{2,3}）-）？（\d{7,8}）（-（\d{3,}））？$" ' 电话格式 1
    re2.Pattern = "^（（[0\+]\d{2,3}-）？（0\d{2,3}））？（\d{7,8}）（-（\d{3,}））？$" ' 电话格式 2
    ' 进行匹配测试
    If re.Test（TelPhone）or re2.Test（TelPhone）Then
    CheckResult=true
    Else
    CheckResult=false
    End If
    CheckTelPhone=CheckResult
    end function
    ' 调用函数测试
    'Response.write CheckTelPhone（"0771-25645648"）
    ' 正则身分证
    Function CheckIdentity（Identity）
    Set re = new RegExp
    re.Pattern = "^[\d]{6}（19|20）*[\d]{2}（（0[1-9]）|（11|12））（[012][\d]|（30|31））[\d]{3}[xX\d]*$"
    If re.Test（Identity）Then
    CheckResult=true
    Else
    CheckResult=false
    End If
    CheckIdentity=CheckResult
    end function
    ' 调用函数测试
    'Response.write CheckIdentity（"452231198809265546"）
    ' 正则检测 QQ 号码
    Function CheckQQnum（QQnum）
    Set re = new RegExp
    re.Pattern = "^\d{5,10}$"
    If re.Test（QQnum）Then
    CheckResult=true
    Else
    CheckResult=false
    End If
    CheckQQnum=CheckResult
    end function
    ' 调用函数测试
    'Response.write CheckQQnum（"10000"）
    ' 正则检测真实姓名
    Function CheckTrueName（TrueName）
    Set re = new RegExp
    re.Pattern = "^[\u0391-\uFFE5]+$"
    If re.Test（TrueName）Then
    CheckResult=true
    Else
    CheckResult=false
    End If
    CheckTrueName=CheckResult
    end function
    ' 调用函数测试
    'Response.write CheckTrueName（" 韦小宝 "）
    %>