当前位置: 首页 > 图文教程 > 网络编程 > 正则表达式 > 正则表达式简单的检查输入email是否合法程序

正则表达式
左右若干数字验证的正则表达式
表单验证常用正则(强烈推荐大家收藏下)
ASP 正则表达式的应用使用说明
常见的数字验证正则表达式整理
表单 数字字符验证正则
移除HTML标签的正则表达式
匹配价格的正则表达式
js 验证 常用正则表达式集锦
windows与linux 路径正则写法
正则表达式 传智播客学习
JS 正则表达式中小括号的应用
JS 正则表达式的位置匹配
JavaScript 正则表达式之RegExp属性、方法及应用分析
[原创]javascript 手机号码正则表达式验证函数
ip138中各种客户端验证js代码
Javascript 字符串字节长度计算函数代码与效率分析(for VS 正则)
php中常用的正则表达式的介绍及应用实例代码
ASP 正则表达式常用的几种方法(execute、test、replace)
正则表达式中的反向预搜索(上)
正则表达式中的反向预搜索(下)

正则表达式简单的检查输入email是否合法程序


出处:互联网   整理: 软晨网(RuanChen.com)   发布: 2009-09-13   浏览: 73 ::
收藏到网摘: n/a

function chkEmail(email)
on error resume next
dim i,l,pos1,pos2
chkEmail=true
if isnull(email) then chkEmail=false:exit function
pos1= instr(email,"@")
pos2=instrRev(email,".")
if not(pos1>0) or not (pos2>0) or pos1>pos2 then
chkEmail=false
end if
if err.number<>0 then err.clear
end function