繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > asp 下用正则表达式检测邮箱格式的函数
- ASP
- TSYS 新闻列表JS调用下载
- 使用asp代码突破图片的防盗连
- 一种理论上最快的Web数据库分页方法
- asp：debug类调试程序
- 如何增加Referer功能--反向链接插件
- pjblog中清空引用的小程序
- 光碟工具 Alcohol 120% v1.9.6.4719 下载(附序列号注册码)
- ASP实现头像图像随机变换
- UTF-8 Unicode Ansi 汉字GB2321几种编码转换程序
- [转]XMLHTTPRequest的属性和方法简介
- ASP常用函数:getpy()
- 我用ASP写的m行n列的函数,动态输出创建TABLE行列
- ASP常用函数:Delay()
- ASP常用函数:Trace()
- [转]ASP实现关键词获取(各搜索引擎,GB2312及UTF-8)
- 对象标记具有无效的 ''MSWC.MyInfo'' ProgID
- ServerVariables集合检索预定的环境变量
- HTTP_HOST 和 SERVER_NAME 的区别详解
- [转]ASP常用函数:TimeZone
- Eval 函数 | Execute 语句 | ExecuteGlobal 语句
ASP 中的 asp 下用正则表达式检测邮箱格式的函数
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-09-13 浏览: 114 ::
收藏到网摘: n/a
'*********************************************************
'函数：IsValidEmail[str]
'参数：str，待处理的字符串
'作者：木木
'日期：2007/7/12
'描述：检测邮箱格式是否为[email protected]或者[email protected]等格式
'示例：<%=IsValidEmail([email protected])%>
'*********************************************************
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
评论 (0) All
