asp 下用正则表达式检测邮箱格式的函数 |
|
********************************************************* 函数：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 |
