-
'####################################
-
'函数：ishttp[str]
-
'参数：str，待处理的字符串
-
'作者：木木
-
'日期：2007/7/12
-
'描述：检测HTTP连接地址或地址栏是否以HTTP开头
-
'示例：<%=ishttp(http:
-
'####################################
-
-
Functionishttp(str)
-
DimregEx
-
SetregEx=NewRegExp
-
regEx.Pattern="^(http|HTTP)[A-Za-z]{0,1}://"
-
ishttp=regEx.Test(str)
-
Endfunction
-
验证邮件地址是否符合标准
-
<%
-
'******************************
-
'函数：isemail(strng)
-
'参数：strng,待验证的邮件地址
-
'作者：阿里西西
-
'日期：2007/7/13
-
'描述：验证邮件地址是否符合标准
-
'示例：<%=isemail(ali@zzvips.com)%>
-
'******************************
-
Functionisemail(strng)
-
isemail=false
-
DimregEx,Match
-
SetregEx=NewRegExp
-
regEx.Pattern="^w+((-w+)|(.w+))*@[A-Za-z0-9]+((.|-)[A-Za-z0-9]+)*.[A-Za-z0-9]+$"
-
regEx.IgnoreCase=True
-
SetMatch=regEx.Execute(strng)
-
ifmatch.countthenisemail=true
-
EndFunction
-
%>
-
正则表达式检测中国移动电话手机号码'*********************************************************
-
'函数：mobilecheck[str]
-
'参数：str，待处理的字符串
-
'作者：木木
-
'日期：2007/7/12
-
'描述：检测移动电话手机号码
-
'示例：<%=mobilecheck("13912345678")%>
-
'*********************************************************
-
-
-
Functionmobilecheck(str)
-
DimregEx
-
SetregEx=NewRegExp
-
regEx.Pattern="^(13[4-9]|15(8|9))d{8}$"
-
mobilecheck=regEx.Test(str)
-
EndFunction
如果您对该产品感兴趣，请填写办理（客服微信：xiaoxiongyidong）
发表评论
◎欢迎参与讨论，请在这里发表您的看法、交流您的观点。