asp 下用正则表达式检测邮箱格式的函数
更新时间：2007年08月08日 12:03:37 作者：
'*********************************************************
'函数：IsValidEmail[str]
'参数：str，待处理的字符串
'作者：木木
'日期：2007/7/12
'描述：检测邮箱格式是否为xxxx@xxx.com或者xxxx@xxx.com.cn等格式
'示例：<%=IsValidEmail(ali@alixixi.com)%>
'*********************************************************
Function IsValidEmail(str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "[\w\-\.]+@[A-Za-z0-9]+\.(([A-Za-z0-9]{2,4})|([A-Za-z0-9]{2,4}\.[A-Za-z]{2,4}))$"
IsValidEmail = regEx.Test(str)
End Function
'函数：IsValidEmail[str]
'参数：str，待处理的字符串
'作者：木木
'日期：2007/7/12
'描述：检测邮箱格式是否为xxxx@xxx.com或者xxxx@xxx.com.cn等格式
'示例：<%=IsValidEmail(ali@alixixi.com)%>
'*********************************************************
Function IsValidEmail(str)
Dim regEx
Set regEx = New RegExp
regEx.Pattern = "[\w\-\.]+@[A-Za-z0-9]+\.(([A-Za-z0-9]{2,4})|([A-Za-z0-9]{2,4}\.[A-Za-z]{2,4}))$"
IsValidEmail = regEx.Test(str)
End Function
相关文章
经验几则...2006-10-10
呵,指定到第几页,用dw自带的生成的东西，我们可以参考他的思想，代码很多垃圾代码2008-07-07
这篇文章主要介绍了asp画中画广告插入在每篇文章中的实现方法,需要的朋友可以参考下2016-01-01
asp其实就是文本文件，用记事本就可以打开查看代码，但asp一般是需要执行的才能看到我们想要的效果，那么就需要asp运行环境，一般我们购买支持asp的虚拟主机。2016-04-04
asp删除没有记录的图片需要文件夹（存放图片的文件夹）中的每个图片和数据库中的所有记录进行比较2009-08-08
获取当前月份距离以前某个时间的月份数，asp都是用DateDiff函数来实现2012-04-04
ASP+XML实例演练编程代码...2007-11-11
最近做的一个asp项目需要强制下载图片,我在网上找了很多关于下载远程图片的ASP代码，但测试结果都不行。没办法只好自己操刀了，有什么纰漏的地方还请大家指出。2015-05-05
fillzero 函数：月和日这两个日期如果是单数的话前面补0。如2011年3月3日一般格式是2011-3-3通过函数转化成2011-03-03这样的格式。2011-01-01
ASP checkbox复选框是否被选中的代码(结合数据库)
ASP从数据库中读出复选框是否被选中的代码2010-06-06
最新评论