<%@ LANGUAGE = VBScript %> 

<%
'参数digits,表示随机数的位数
Function GetKey(digits)
dim char_array(36)
dim output,num
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) = "s"
char_array(12) = "d"
char_array(13) = "f"
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
GetKey = output
End Function
'把结果返回给浏览器
response.write "本实例生成的十三位随机字符串为:"
response.write "<center>"
for j = 0 to 500
response.write GetKey(13)
response.write "<br>"
next
response.write "</center>"
%>
本文介绍了一个使用VBScript编写的简单脚本,该脚本能生成指定长度的随机字符串,包括数字和小写字母。通过随机化函数和数组来实现字符的选择。
7万+

被折叠的 条评论
为什么被折叠?



