sub logcheck
  dim login_username,login_userpwds,icount,username_letter,password_letter,minimum_userpwds,range
  rem 获取提交的表单值
  login_username=lcase(trim(document.all("login_username").value))
  login_userpwds=trim(document.all("login_userpwds").value)
  username_letter=trim(document.all("username_letter").value)
  password_letter=trim(document.all("password_letter").value)
  minimum_userpwds=int(document.all("minimum_userpwds").value)
  if login_username="" then
    getalert "请输入用户名！","login_username"
    exit sub
  end if
  for icount=1 to len(login_username)
    if instr(username_letter,mid(login_username,icount,1))<1 then '用户名字符不合规
      getalert "用户名字符不合规！","login_username"
      exit sub
    end if
  next
  if login_userpwds="" then
    getalert "请输入用户密码！","login_userpwds"
    exit sub
  end if
  if len(login_userpwds)<minimum_userpwds then
    alert("用户密码不能少于"&minimum_userpwds&"位！")
    document.all("login_userpwds").value=""
    getfocus "login_userpwds"
    exit sub
  end if
  for icount=1 to len(login_userpwds)
    if instr(password_letter,mid(login_userpwds,icount,1))<1 then '用户密码不合规
      alert("用户密码字符不合规！")
      document.all("login_userpwds").value=""
      getfocus "login_userpwds"
      exit sub
    end if
  next
  document.userlogform.submit
end sub
'“信息”——“FrontPage”编辑显示汉字。