Asp常用通用函数之生成随机密码

'函数名：MakeRndPass
  '作 用：生成随机密码
  '参 数：passlen ---- 要生成的密码长度
  '参 数：passtype ---- 要生成的密码类型
  '返回值：验证生成的随机密码
  '类型解释：
  'passfull （所在可用字符 如“90!@#$%”）
  'passnumber （纯数字）
  'passspecial （非常用字符）
  'passCharNumber （所有字母及数字）
  'passUpperCharNumber （大写字母数字）
  'passLowerCharNumber （小写字母数字）
  'passChar （所有大小写字母）
  'passUpperChar （所有大写字母）
  'passLowerChar （所有小写字母）
  '示 例：MakeRndPass(4,"passUpperCharNumber")
  '**************************************************
  Public Function MakeRndPass(ByVal passlen,ByVal passtype)
   dim passFull,passNumber,passSpecial,passCharNumber,passChar,pass,passUpperCharNumber,passLowerCharNumber,passUpperChar,passLowerChar,ii,jj
   passFull = "1234567890!@#$%^&*()[];',./{}:?`~-=\_+|abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
   passNumber = "1234567890"
   passSpecial = "!@#$%^&*()[];',./{}:?`~-=\_+|"
   passCharNumber = "abcdefghijklmnopqrstuvwxyz1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   passUpperCharNumber = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   passLowerCharNumber = "abcdefghijklmnopqrstuvwxyz1234567890"
   passChar = "abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
   passUpperChar = "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
   passLowerChar = "abcdefghijklmnopqrstuvwxyz"
   select case lcase(trim(passType))
   case "passfull"
   pass = passFull
   case "passnumber"
   pass = passNumber
   case "passspecial"
   pass = passSpecial
   case "passcharnumber"
   pass = passCharNumber
   case "passchar"
   pass = passChar
   case "passupperchar"
   pass = passUpperChar
   case "passlowerchar"
   pass = passLowerChar
   case "passuppercharnumber"
   pass = passUpperCharNumber
   case "passlowercharnumber"
   pass = passLowerCharNumber
   case else
   pass = passlowercharnumber
   end select
   makeRndPass=""
   for ii=1 to cint(passlen)
   randomize
   jj = int(rnd()*len(pass)+1)
   makeRndPass = cstr(makeRndPass) & mid(pass,jj,1)
   next
  End Function