Tested by the webmaster of the walking home, the available ASP random functions without repeated numbers are implemented in arrays and applied to the random display record set.
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
Copy codeThe Code is as follows: <%
Dim rs, rNum
Dim temp
Set rs = createObject ("adodb. recordset ")
Rs. open "select top 100 * from rnd_v1", conn, 1
RNum = rs. recordCount-1
For each temp in fRndNoRpt (0, rNum)
Rs. move temp
Response. write rs ("sbcat ")
Response. write "<br/>"
Rs. movefirst
Next
Rs. close
Set rs = nothing 'shawl. qiu Code'
Function fRndNoRpt (lwNum, upNum)
'''''''''''''''''''''''''''''''''''''''' ''''
'Asp random functions without repeated numbers, array implementation, By shawl. qiu
'2006-09-06
'Http://blog.csdn.net/btbtd
'''''''''''''''''''''''''''''''''
'Note: the random number exceeds 1000. This function is not recommended.
'''''''''''''''''''''''''''''''''
'Parameter description:
'''''''''''''''''''''''''''''''''
'Lwnum is the lower limit of the number array, for example, 1
'Upnum is the upper limit of the number array, for example, 100.
'''''''''''''''''''''''''''''''''
'Sample call:
'''''''''''''''''''''''''''''''''
'Dim t
'For each t in fRndNoRpt (1,100)
'Response. write t & "<br/>"
'Next
'''''''''''''''''''''''''''''''''''''''' ''''
If upNum <1 or isNull (upNum) or upNum = "" or isNumeric (upNum) = false then exit function
If lwNum <0 or isNumeric (lwNum) = false then exit function
Dim num, temp
Dim ar ()
Redim ar (upNum)
Dim j: j = 0
For temp = lwNum to upNum
Num = num & "." & temp &"."
Next
Randomize
Do until num = ""
Temp = int (upNum-lwNum + 1) * rnd + lwNum)
If inStr (num, "." & temp & ".") <> 0 then
Num = replace (num, "." & temp &".","")
Ar (j) = temp
J = j + 1
End if
Loop
FRndNoRpt = ar
Erase ar
End function 'awl. qiu Code'
Response. write "<p/> use the random number function to display random numbers between 1 and 100. 1: <br/> --------------------- <br/>"
For each temp in fRndNoRpt (1,100)
Response. write temp & "<br/>"
Next
Response. write "<p/> use the random number function to display random numbers between 1 and 100. 2: <br/> --------------------- <br/>"
Temp = join (fRndNoRpt (1,100 ),"-")
Response. write mid (temp, 1, len (temp)-1)
%>
