ASP random functions without repeated numbers, array implementation, and applied to the random display record set by shawl. Qiu

ASP random functions without repeated numbers, array implementation, and applied to the random display record set by shawl. Qiu

Purpose:
This function is applicable to the random display of small numbers without duplicates.
This function is applicable to displaying a small number of random non-repeated record sets.
We do not recommend that you use this function to limit the efficiency by more than one thousand.

Shawl. Qiu
2006-09-06
Http://blog.csdn.net/btbtd

Main Content: 100 records are randomly displayed for functions and application functions

Linenum
1. <%
2. Dim RS, rnum
3. Dim temp
4. Set rs = Createobject ("ADODB. recordset ")
5. Rs. Open "select Top 100 * From rnd_v1", Conn, 1
6. Rnum = Rs. recordCount-1
7. For each temp in frndnorpt (0, rnum)
8. Rs. Move temp
9. Response. Write RS ("sbcat ")
10. Response. Write "<br/>"
11. Rs. movefirst
12. Next
13. Rs. Close
14. Set rs = nothing 'shawl. Qiu Code'
15. Function frndnorpt (lwnum, upnum)
16. '''''''''''''''''''''''''''''''''''''''' ''''
17. 'Asp random functions without repeated numbers, array implementation, by shawl. Qiu
18. '2006-09-06
19. 'Http://blog.csdn.net/btbtd
20. '''''''''''''''''''''''''''''''''
21. 'Note: the random number exceeds 1000. This function is not recommended.
22. '''''''''''''''''''''''''''''''''
23. 'Parameter description:
24. '''''''''''''''''''''''''''''''''
25. 'Lwnum is the lower limit of the number array, for example, 1
26. 'Upnum is the upper limit of the number array, for example, 100.
27. '''''''''''''''''''''''''''''''''
28. 'Sample call:
29. '''''''''''''''''''''''''''''''''
30. 'Dim t
31. 'For each t in frndnorpt (1,100)
32. 'Response. Write T & "<br/>"
33. 'Next
34. '''''''''''''''''''''''''''''''''''''''' ''''
35. If upnum <1 or isnull (upnum) or upnum = "" Or isnumeric (upnum) = false then exit function
36. If lwnum <0 or isnumeric (lwnum) = false then exit function
37. Dim num, temp
39. Dim AR ()
40. Redim AR (upnum)
41. Dim J: J = 0
43. For temp = lwnum to upnum
44. Num = num & "." & temp &"."
45. Next
47. Randomize
48. Do until num = ""
49. Temp = int (upnum-lwnum + 1) * RND + lwnum)
50. If instr (Num, "." & temp & ".") <> 0 then
51. Num = Replace (Num, "." & temp &".","")
52. AR (j) = temp
53. J = J + 1
54. End if
55. Loop
56. Frndnorpt = ar
57. Erase ar
58. End function 'awl. Qiu Code'
59. Response. Write "<p/> use the random number function to display random numbers between 1 and 100. 1: <br/> --------------------- <br/>"
60. For each temp in frndnorpt (1,100)
61. Response. Write temp & "<br/>"
62. Next
63. Response. Write "<p/> use the random number function to display random numbers between 1 and 100. 2: <br/> --------------------- <br/>"
64. Temp = join (frndnorpt (1,100 ),"-")
65. Response. Write mid (temp, 1, Len (temp)-1)
66. %>