<% <br />
''正则表表达式验证函数 patrn-正则表达式 strng-需要验证的字符串 <br />
Function RegExpTest(patrn, strng) <br />
Dim regEx, retVal '' 建立变量。 <br />
Set regEx = New RegExp '' 建立正则表达式。 <br />
regEx.Pattern = patrn '' 设置模式。 <br />
regEx.IgnoreCase = False '' 设置是否区分大小写。 <br />
retVal = regEx.Test(strng) '' 执行搜索测试。 <br />
RegExpTest = retVal ''返回不尔值，不符合就返回false，符合为true <br />
End Function <br />
%><br />
<br />
<% <br />
tel=request.form("tel") <br />
email=request.form("email") <br />
dim founderr : founderr=false <br />
if RegExpTest("(^[0-9]{3,4}\-[0-9]{3,8}$)|(^[0-9]{3,8}$)|(^\([0-9]{3,4}\)[0-9]{3,8}$)|(^0{0,1}13[0-9]{9}$)", tel)=false then <br />
founderr=true <br />
regshow=regshow&"<li>您输入的电话号码格式不正确" <br />
end if <br />
if RegExpTest("^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$", email)=false then <br />
founderr=true <br />
regshow=regshow&"<li>您输入的电子邮箱格式不正确" <br />
end if <br />
if founderr=false then regshow="<li>您输入的格式都是正确的哦" <br />
%> <br />
<br><br> <br />
<%=regshow%><br />
附上一个用来测试正则的常用函数RegTest()<br />
<%<br />
Function RegTest(sPattern, sString)<br />
Dim regEx<br />
Set regEx = New RegExp<br />
regEx.Pattern = sPattern<br />
regEx.Global = True<br />
regEx.IgnoreCase = False<br />
RegTest = regEx.Test(sString)<br />
End Function<br />
%><br />