Function ishttp(str) Dim regEx Set regEx = New RegExp regEx.Pattern = "^(http|HTTP)[A-Za-z]{0,1}/:////" ishttp = regEx.Test(str) End function 驗(yàn)證郵件地址是否符合標(biāo)準(zhǔn) <% '****************************** '函數(shù)：isemail(strng) '參數(shù)：strng,待驗(yàn)證的郵件地址 '作者：阿里西西 '日期：2007/7/13 '描述：驗(yàn)證郵件地址是否符合標(biāo)準(zhǔn) '示例：<%=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 %> 正則表達(dá)式檢測(cè)中國(guó)移動(dòng)電話手機(jī)號(hào)碼'********************************************************* '函數(shù)：mobilecheck[str] '參數(shù)：str，待處理的字符串 '作者：木木 '日期：2007/7/12 '描述：檢測(cè)移動(dòng)電話手機(jī)號(hào)碼 '示例：<%=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
