在线求救，救命呀！！！救命呀！！！救命呀！！！救命呀！！！救命呀！！！救命呀！！！救命呀！！！

[syh55555]

1.请问各位大虾那里有ASP的随机生成数的实例下载。
2.我要做一个asp的随机生成数，我改如何做。谢谢了！

[TSD]

randomize
response.write int(rnd*8999+1000)

[TSD]

这个是随机生成4位的数字

生成5位:
randomize
response.write int(rnd*89999+10000)

其它的按规律改括号里的数就可以了

[goodstuday]

Function rnd_num(n) 'n表示产生随机数的位数
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"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "A"
char_array(11) = "B"
char_array(12) = "C"
char_array(13) = "D"
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) < n
num = char_array(Int((35 - 0 + 1) * Rnd + 0))
output = output + num
loop
rnd_num = lcase(output)
End Function

调用这函数就行了

[lawyu]

Dim MyValue, Response
Randomize '初始化随机数生成器。
Do Until Response = vbNo
MyValue = Int((6 * Rnd) + 1)' 产生 1 到 6 之间的随机数。
MsgBox MyValue
Response = MsgBox ("Roll again? ", vbYesNo)
Loop

[syh55555]

1.各位请问如何使用呀？
2.那里有他的实例。
谢谢！