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[来源 www.iocblog.net]
  end function


Tag: email

文章整理：iocblog
版权申明：本站文章均来自网络，如有侵权，请联系我们，我们收到后立即删除，谢谢！
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有。