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

简单的检查输入email是否合法程序      Function isEmail(val)       isEmail=False       if len(val)>0 then        if instr(val,"@")>0 and instr(val,".")>0 and len(val)>5 then        else         exit function        end if       else        exit function       end if       isEmail=true      end function

也行,呵呵,,