函数一
<% function makepassword(byval maxlen) dim strnewpass dim whatsnext, upper, lower, intcounter randomize for intcounter = 1 to maxlen whatsnext = int((1 - 0 + 1) * rnd + 0) if whatsnext = 0 then 'character upper = 90 lower = 65 else upper = 57 lower = 48 end if strnewpass = strnewpass & chr(int((upper - lower + 1) * rnd + lower)) next makepassword = strnewpass end function %>
makepassword(str) 'str 密码的位数
函数二
<% function gen_key(digits) dim char_array(35) char_array(0) = "0" char_array(1) = "1" char_array(2) = "2" char_array(3) = "3" char_array(4) = "4" char_array(5) = "5" char_array(6) = "6" char_array(7) = "7" char_array(8) = "8" char_array(9) = "9" char_array(10) = "a" char_array(11) = "b" char_array(12) = "c" char_array(13) = "d" char_array(14) = "e" char_array(15) = "f" char_array(16) = "g" char_array(17) = "h" char_array(18) = "i" char_array(19) = "j" char_array(20) = "k" char_array(21) = "l" char_array(22) = "m" char_array(23) = "n" char_array(24) = "o" char_array(25) = "p" char_array(26) = "q" char_array(27) = "r" char_array(28) = "s" char_array(29) = "t" char_array(30) = "u" char_array(31) = "v" char_array(32) = "w" char_array(33) = "x" char_array(34) = "y" char_array(35) = "z" randomize do while len(output) < digits num = char_array(int(35 * rnd + 0)) output = output + num loop gen_key = output end function %>
gen_key(str) 'str为密码位数
这个函数还可以扩展。。如果你还要加上“大小写敏感区分大小写”特性的话，修改数组大小为char_array(50)，然后在后面列出所有可能的小写字符。例如：
char_array(36) = a
char_array(37) = b
...............类推
以上就是asp生成随机密码的两个函数的详细内容。