【www.gdgbn.com--英文短信】

dim webname,weburl,filepath,language,errortext
"检查email格式是否正确
function isvalidemail(email)
 dim names,name,i,c
 isvalidemail=true
 "使用@字符将email字符串分成几个子字符串并保存在names数组中
 names=split(email,"@")
 "ubound函数返回数组names的最大下标,ubound(names)<>1表明email字符串中存在的@字符
 "并不是一个,所以email不是有效的邮件地址格式
 if ubound(names)<>1 then
  isvalidemail=false
  exit function
 end if
 for each name in names   "数组names中的每一个元素
  if len(name)<=0 then   "字符串name内字符的数目
   isvalidemail=false
   exit function
  end if
  for i=1 to len(name)
   "mid(name,i,1)返回字符串name内第i个字符,lcase函数将该字符转换成小写形式
   c=lcase(mid(name,i,1))
   "instr 函数返回某字符串在另一字符串中第一次出现的位置。
   "instr("abcdefghijklmnopqrstuvwxyz_-.",c)<=0表明字符c不在字符串
   ""abcdefghijklmnopqrstuvwxyz_-."中,isnumeric(c)判断字符c是否为数字
   if instr("abcdefghijklmnopqrstuvwxyz_-.", c)<=0 and not isnumeric(c) then   "不支持中文格式地址
    isvalidemail=false
    exit function
   end if
   next
   "left(name,1)返回字符串name最左边一个字符。right(name,1)返回字符串name最右边一个字符
   if left(name,1)="." or right(name,1)="." then
    isvalidemail=false
    exit function
   end if
  next
  if instr(names(1),".")<=0 then   "email字符串中@右边部分不包含字符”.”
   isvalidemail=false
   exit function
  end if
  "instrrev函数返回某字符串在另一个字符串中出现的从结尾计起的的位置,
  "instrrev(names(1),".")得到字符"."在字符串names(1)中从结尾计起的位置
  i=len(names(1))- instrrev(names(1),".")
  "电子邮件最后一般为cn 或com,长度为2或3
  if i<>2 and i<>3 then
   isvalidemail=false
   exit function
  end if
  "email中存在字符串".."
  if instr(email,"..")>0 then
   isvalidemail=false
  end if
end function

本文来源:http://www.gdgbn.com/zhufuduanxin/27580/