简单的检查输入email是否合法程序 - 中国WEB开发者网络 (http://www.webasp.net) -- 技术教程 (http://www.webasp.net/article/) --- 简单的检查输入email是否合法程序 (http://www.webasp.net/article/1/759.htm) |
| -- 作者：未知 -- 发布日期： 2003-04-16 |
| 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 以上资料由动网先锋(http://www.aspsky.net)整理制作，转载请说明出处！ |
| webasp.net |