这是一个生成随机数的通用函数，我们首先将所有可能的字符保存在数组内，这里的例子是0-9及26个英文字符，共36个字符。注意数组下标是从0开始的，所以dim char_array(35)，其实表示有36个字符。注意：本例没有专门区分字母的大小写，如果你还要加上“大小写敏感/区分大小写”特性的话，修改数组大小为char_array(50)，然后在后面列出所有可能的小写字符。例如：

char_array(36) = 'a'

char_array(37) = 'b'

...............类推

注意这是一个可以通用的函数，gen_key(digits)它传进一个参数digits，代表要生成的随机密码位数。今后要生成20为密码就用gen_key(20)即可打印出密码，或者将它保存在数据库内。

函数代码：

<%
response.Write("<br>")

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
 
 i = 1
 do while i <= digits
 
 num = char_array(Int(35 * Rnd + 0))
 
 output = output & num
 
 i = i + 1
 
 loop
 
 gen_key = output

End Function

response.write "随机密码是：" & gen_key(6)

 %>