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

答案：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 

上一个：正则(JS)re=new RegExp("^\\d*$");与re=/^\d*$/;之间区别?
下一个：一个匹配形如“#100”的正则表达式