ASP 从1-50中随机选择8个数，不能重复的例子

Randomize 是随机初始化,使用rnd之前必须要先来一句Randomize

rnd-随机函数,用于随机,为了防止重复,你可以用一个数组(如果是用来随机整数,开Bool数组,随机实数九要开实数数组)来保存已经随机出来的结果,每随机一个判断一下是否随机过,具体实现方法,要看你的数据类型了,

1. <%
   
2. session("jl")=""
   
3. a1=setnum()
   
4. a2=setnum()
   
5. a3=setnum()
   
6. a4=setnum()
   
7. a5=setnum()
   
8. a6=setnum()
   
9. a7=setnum()
   
10. a8=setnum()
    
11. 
    
12. response.Write(a1 & "
    
13. ")
    
14. response.Write(a2 & "
    
15. ")
    
16. response.Write(a3 & "
    
17. ")
    
18. response.Write(a4 & "
    
19. ")
    
20. response.Write(a5 & "
    
21. ")
    
22. response.Write(a6 & "
    
23. ")
    
24. response.Write(a7 & "
    
25. ")
    
26. response.Write(a8 & "
    
27. ")
    
28. 
    
29. function setnum()
    
30. Randomize
    
31. jlsz=split(session("jl"),";")
    
32. cfbj=2
    
33. while cfbj=2
    
34. setnum=int(rnd()*50)
    
35. for i=0 to Ubound(jlsz)-1
    
36. cf=0
    
37. if cint(setnum)=cint(jlsz(i)) then
    
38. cf=1
    
39. exit for
    
40. end if
    
41. next
    
42. if cf=0 then
    
43. cfbj=0
    
44. else
    
45. cfbj=2
    
46. end if
    
47. wend
    
48. session("jl")=session("jl")& setnum &";"
    
49. end function
    
50. %>

复制代码