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

我是从后台做的判断，代码如下： a=request("email") if instr(a,"@")=0 then errof=errof+"email错误！" else aa=split(a,"@") if instr(aa(1),".")=0 then errof=errof+"email错误" end if end if if errof<>"" then response.write("<script>alert('"&errof&"');history.back();</script>") else

response.write""&a&"" end if

也行,呵呵,,

哈哈，我不会用javascript做判断，所以全从后台处理，

by 正则  ：》

我和5楼的一样！呵呵！！