昨天Perry问我要一些随机密码，用来加密ePaySlip的文件。我从网上找了一些现有的ASP代码和函数，发现不能达到Perry的要求：
1、包含大小写字母
2、包含数字
3、包含特殊字符

于是自己修改做了下面的函数，可以生成任意位数的随机密码。没想到今天Perry今天跟我要16位的密码，10000个。索性分享出来代码给朋友们。

<%
Function CreatePassword(digits)
dim myarray(75)
myarray(0) = "0"
myarray(1) = "1"
myarray(2) = "2"
myarray(3) = "3"
myarray(4) = "4"
myarray(5) = "5"
myarray(6) = "6"
myarray(7) = "7"
myarray(8) = "8"
myarray(9) = "9"
myarray(10) = "A"
myarray(11) = "B"
myarray(12) = "C"
myarray(13) = "D"
myarray(14) = "E"
myarray(15) = "F"
myarray(16) = "G"
myarray(17) = "H"
myarray(18) = "I"
myarray(19) = "J"
myarray(20) = "K"
myarray(21) = "L"
myarray(22) = "M"
myarray(23) = "N"
myarray(24) = "O"
myarray(25) = "P"
myarray(26) = "Q"
myarray(27) = "R"
myarray(28) = "S"
myarray(29) = "T"
myarray(30) = "U"
myarray(31) = "V"
myarray(32) = "W"
myarray(33) = "X"
myarray(34) = "Y"
myarray(35) = "Z"
myarray(36) = "a"
myarray(37) = "b"
myarray(38) = "c"
myarray(39) = "d"
myarray(40) = "e"
myarray(41) = "f"
myarray(42) = "g"
myarray(43) = "h"
myarray(44) = "i"
myarray(45) = "j"
myarray(46) = "k"
myarray(47) = "l"
myarray(48) = "m"
myarray(49) = "n"
myarray(50) = "o"
myarray(51) = "p"
myarray(52) = "q"
myarray(53) = "r"
myarray(54) = "s"
myarray(55) = "t"
myarray(56) = "u"
myarray(57) = "v"
myarray(58) = "w"
myarray(59) = "x"
myarray(60) = "y"
myarray(61) = "z"
myarray(62) = "!"
myarray(63) = "@"
myarray(64) = "#"
myarray(65) = "$"
myarray(66) = "%"
myarray(67) = "&"
myarray(68) = "*"
myarray(69) = "("
myarray(70) = ")"
myarray(71) = "+"
myarray(72) = "-"
myarray(73) = "-"
myarray(74) = "^"

randomize
do while len(output) < digits
num = myarray(Int(75 * Rnd + 0))
output = output + num
loop
CreatePassword = output
End Function
%>
<%
for i=1 to 10000
response.Write(CreatePassword(16)&"<br>")
next
%>