Asp源码：手机号码有效性正则验证的函数和邮箱验证

以下为手机号码验证的函数:
--------------------------------------------------------------------------------

Function ValidMobile(ByVal value)
    Dim reg
    Set reg = New RegExp
    reg.Pattern = "^1[358][\d]{9}$"
    ValidMobile = reg.test(value)
    Set reg = Nothing
End Function


'调用函数方式：

Dim tel

tel=requset("tel")  '//获取提交手机号码的值

If ValidMobile(tel)=False Then
  response.write "请填写正确的手机号码！"
  response.end
End If

--------------------------------------------------------------------------------

代码其中的358为手机第二位，具体要根据当前手机放号情况修改，以上根据以上函数返回值（True or False）判断是否为手机号码。

dim txtemail
dim text
txtemail=request.form("email")
if (Instr(txtemail,".")-Instr(txtemail,"@"))>1 and (Instr(txtemail,".")>0 and Instr(txtemail,"@"))>0 or txtemail="" then
OFFNO=True
text=txtemail
else
Response.Write("<script language=""JavaScript"">alert(""错误：您的邮箱格式不正确，请返回检查！！"");history.go(-1);</script>")
response.end
end if