生成不重複的亂數 我都習慣用字串來處理
Dim str = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789"
Dim randomStr
Dim i
Randomize
For i = 1 to 10
randomStr = Mid( str , Int(rnd*Len(str)+1) , 1 )
str = Replace( str , randomStr , "")
Next
--
把這段code改成你的需求
--
Dim str = "0123456789"
Dim randomStr
Dim i
Randomize
For i = 1 to 8
randomStr = Mid( str , Int(rnd*len(str)+1) , 1 )
Response.write randomStr & ".gif"
str = Replace( str , randomStr , "")
Next
--
※ 發信站: 批踢踢實業坊(ptt.cc)
◆ From: 140.128.194.78