Function validate(ByVal str,ByVal number)

Dim temp,reg

Set reg = new regexp

reg.ignorecase=true

reg.global=true

Select Case CStr(number)

\' 英文+空格

Case "0" temp = "^[a-zA-Z ]+$"

\' 数字+横杠

Case "1" temp = "^[0-9\\-]+$"

\' 半角数字

Case "2" temp = "^\\d+$"

\' 邮箱地址

Case "3" temp = "^\\w+([-+.]\\w+)*@\\w+([-.]\\w+)*\\.\\w+([-.]\\w+)*$"

\' 手机号码格式

Case "4" temp = "^(((13[0-9]{1})|159|153)+\\d{8})$"

\' 电话号码格式1

Case "5" temp = "^(([0\\+]\\d{2,3}-)?(0\\d{2,3})-)?(\\d{7,8})(-(\\d{3,}))?$"

\' 电话号码格式2

Case "6" temp = "^(([0\\+]\\d{2,3}-)?(0\\d{2,3}))?(\\d{7,8})(-(\\d{3,}))?$"

Case Else temp = number

End Select

reg.pattern = temp

validate = reg.test(Trim(str))

Set reg = Nothing

End Function

条用方法：

if validate(tel,4) or validate(tel,5) or validate(tel,6) then

else

response.Write("<script language=\'javascript\'>alert(\'请检查您的联系电话或者手机号码格式!\'); history.back()</script>")

response.End()

end if

1、判断字符串是否全是中文
注意如果你网页编码是UTF-8，就用我下面的代码，如果是GB2312，就把ACSW改为ACS
function Checkstr(str)
if Len(Hex(Ascw(str)))> 2 Then
Checkstr=true
else
Checkstr=false
end if
End Function
tt="汉字"
if Checkstr(tt)=true then
response.write "字符串为中文"
else
response.write "字符串不是中文"
end if

2、判断手机号码长度判断
function CheckLen(value)
if IsNumeric(value) and len(value)=11 then
CheckLen=True
Else
ChenLen=False
End If
End Function
tt=11223344556
if CheckLen(tt)=true then
response.write "符合要求"
else
response.write "不符合要求"
end if