ASP生成指定位数的随机字符串函数

用ASP代码随机生成字符串，使用了Array数组、for循环和Rnd函数来实现，并最终生成13位的随机字符串输出到客户端浏览器，以下为详细代码和注释。

ASP生成指定位数的随机字符串函数

<%

Function gen_key(digits)

dim char_array(80)'定义并初始化数组

For i = 0 To 9'初始化数字

char_array(i) = CStr(i)

Next

For i = 10 To 35'初始化大写字母

char_array(i) = Chr(i + 55)

Next

For i = 36 To 61'初始化小写字母

char_array(i) = Chr(i + 61)

Next

Randomize '初始化随机数生成器。

do while len(output) < digits

num = char_array(Int((62 - 0 + 1) * Rnd + 0))

output = output + num

loop

gen_key = output'设置返回值

End Function

'返回结果

response.write "生成的十三位随机字符串为:"

response.write "<center>"

response.write gen_key(23)

response.write "</center>"

%>