页面导航： 首页 → 网络编程 → ASP编程 → 应用技巧 → 正文内容

发布：dxy 字体：[增加 减小] 类型：转载

'*********************************************************
'函数：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

文章评论

共有 位脚本之家网友发表了评论我来说两句