〖文章分类:电脑·手机·网络 / 网站设计·开发·优化〗〖阅读选项〗 |
Function CheckExp(strng) dim regEx,Matches Set regEx = New RegExp regEx.Pattern = "(\w)+[@]{1}(\w)+[.]{1}(\w)+" regEx.IgnoreCase = true regEx.Global = True Matches = regEx.test(strng) CheckExp = matches End Function
成立则返回true
if (!eregi("^[_\.0-9a-z-]+@([0-9a-z][0-9a-z-]+\.)+[a-z]{2,3}$",$email))
|
文章作者:未知 更新日期:2006-09-12 |
〖文章浏览:〗〖发送文章〗〖打印文章〗 |
|
|