ASP用户注册检测函数 (使用正则表达式)(2)

'正则检测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("韦小宝")


%>