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

1. function chkEmail(email)  
2. on error resume next  
3. dim i,l,pos1,pos2  
4. chkEmail=true  
5. if isnull(email) then chkEmail=false:exit function   
6. pos1= instr(email,"@")  
7. pos2=instrRev(email,".")  
8. if not(pos1>0) or not (pos2>0) or pos1>pos2 then   
9. chkEmail=false  
10. end if  
11. if err.number<>0 then err.clear  
12. end function