柠檬铺

    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（"韦小宝"）
    %>