ASP產生隨機密碼的兩個函數

ASP產生隨機密碼的兩個函數：
函數一

<%function makePassword(byVal maxLen)Dim strNewPassDim whatsNext, upper, lower, intCounterRandomizeFor intCounter = 1 To maxLenwhatsNext = Int((1 - 0 + 1) * Rnd + 0)If whatsNext = 0 Then'characterupper = 90lower = 65Elseupper = 57lower = 48End IfstrNewPass = strNewPass & Chr(Int((upper - lower + 1) * Rnd + lower))NextmakePassword = strNewPassend 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"randomizedo while len(output) < digitsnum = char_array(Int(35 * Rnd + 0))output = output + numloopgen_key = outputEnd Function%>

gen_key(str) 'str為密碼位元
這個函數還可以擴充。。如果你還要加上“大小寫敏感區分大小寫”特性的話，修改數組大小為char_array(50)，然後在後面列出所有可能的小寫字元。例如：
char_array(36) = "a"
char_array(37) = "b"
...............類推