<%
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 gen_key(8)
%>