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=false
endif
iferr.number<>0thenerr.clear
endfunction
网站建设 IT知识 IT知识教程 正则表达式简单的检查输入email是否合法程序 
最新文章
热门文章
猜你喜欢
