asp 用户登录代码

function checkletter(str)
 checkletter=true
 letters="abcdefghijklmnopqrstuvwxyz"
 for i=1 to len(str)
  checkchar=ucase(mid(str,i,1))   返回字符串str中第i个字符，并将其转换为大写
  if (instr(letters,checkchar)<=0) then   'checkchar对应字符在letters中不存在
   checkletter=false
   exit function
  end if
 next
end function

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