随机生成6位数

asp环境
<%
Randomize '初始化随机种子
for i = 1 to 6
int_str=int_str&int(6*rnd)+1
next
response.write int_str
%>
思路：
int(6*rnd)+1 得到的是1到6之间的整数。
用一个for循环实现6位数

我给你一个万能的，可以自定义随机的位数及随机字符

<%
Function gen_key(digits)

dim char_array(50)
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"

randomize

do while len(output) < digits
num = char_array(Int((35 - 0 + 1) * Rnd + 0))
output = output + num
loop

gen_key = output
End Function
response.write "" & gen_key(6) & "" & vbcrlf

%>

如果想增加别的随机字符，请按以下格式增加
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "