正则表达式简单的检查输入email是否合法程序
functionchkEmail(email) onerrorresumenext dimi,l,pos1,pos2 chkEmail=true ifisnull(email)thenchkEmail=false:exitfunction pos1=instr(email,"@") pos2=instrRev(email,".") ifnot(pos1>0)ornot(pos2>0)orpos1>pos2then chkEmail=fal...