Function ishttp(str) Dim regEx Set regEx = New RegExp regEx.Pattern = "^(http|HTTP)[A-Za-z]{0,1}\:\/\/" ishttp = regEx.Test(str) End function 驗證郵件地址是否符合標準 % '****************************** '函數(shù)：isemail(strng) '參數(shù)：strng,待驗證的郵件地址 '作者：阿里西西 '日期：2007/7/13 '描述：驗證郵件地址是否符合標準 '示例：%=isemail(ali@alixixi.com)%> '****************************** Function isemail(strng) isemail = false Dim regEx, Match Set regEx = New RegExp regEx.Pattern = "^\w+((-\w+)|(\.\w+))*\@[A-Za-z0-9]+((\.|-)[A-Za-z0-9]+)*\.[A-Za-z0-9]+$" regEx.IgnoreCase = True Set Match = regEx.Execute(strng) if match.count then isemail= true End Function %> 正則表達式檢測中國移動電話手機號碼'********************************************************* '函數(shù)：mobilecheck[str] '參數(shù)：str，待處理的字符串 '作者：木木 '日期：2007/7/12 '描述：檢測移動電話手機號碼 '示例：%=mobilecheck("13912345678")%> '*********************************************************
Function mobilecheck(str) Dim regEx Set regEx = New RegExp regEx.Pattern = "^(13[4-9]|15(8|9))\d{8}$" mobilecheck= regEx.Test(str) End Function
