海外邮件中继，海外退信中继，美国高速VPS，不限流量VPN，邮局维护和管理，邮件网关，EMOS邮件中继，POSTFIX邮件中继，Winwebmail邮件中继,Winmail邮件中继,DBMail邮件中继,JDMail邮件中继,Exchange邮件中继,MDaemon邮件中继 淘宝店：http://shantan.taobao.com 云邮科技官网：www.yunrelay.com

【字体设置：大 中 小】
＃＃＃＃＃函数代码＃＃＃＃＃＃＃＃ 
假设为myfunc.asp 

<% 
'正则表表达式验证函数 patrn-正则表达式　strng-需要验证的字符串 
Function RegExpTest(patrn, strng) 
Dim regEx, retVal ' 建立变量。 
Set regEx = New RegExp ' 建立正则表达式。 
regEx.Pattern = patrn ' 设置模式。 
regEx.IgnoreCase = False ' 设置是否区分大小写。 
retVal = regEx.Test(strng) ' 执行搜索测试。 
RegExpTest = retVal '返回不尔值，不符合就返回false，符合为true 
End Function 
%> 

＃＃＃＃＃提交页面代码＃＃＃＃＃＃ 
假设为mypage.asp 

<form method="post" action="check.asp"> 
请输入E-mail地址:<input type=text name=email> 
<br> 
请输入电话号码:<input type=text name=tel> 
<input type=submit value="确定"> 
</form> 

＃＃＃＃＃验证页面＃＃＃＃＃＃＃＃ 
假设为check.asp 

<!--#include file="myfunc.asp"--> 
<% 
tel=request.form("tel") 
email=request.form("email") 
dim founderr : founderr=false '建立变量,正确或者失败标记 
'大家注意哦,顺便我在这里贡献一个正则表达式,同时验证电话号码和手机号码的! 
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 
founderr=true 
regshow=regshow&"<li>您输入的电话号码格式不正确" 
end if 
if RegExpTest("^[\w-]+(\.[\w-]+)*@[\w-]+(\.[\w-]+)+$", email)=false then 
founderr=true 
regshow=regshow&"<li>您输入的电子邮箱格式不正确" 
end if 
if founderr=false then regshow="<li>您输入的格式都是正确的哦" 
%> 
<br><br> 
<%=regshow%>

发表评论 - 不要忘了输入验证码哦！
作者：	用户：  密码：  我要注册 验证码：  为防止广告注册机程序,验证码不会自动显示,请点击此处显示或者(刷新)验证码!
评论： 禁止表情 禁止UBB 禁止图片 识别链接 识别关键字 确定发布？	最多可以输入200个字,目前你已经输入了0个字;你今日还可以发表10条评论!