經錯新站長站站長測試可用的ASP無重復數字隨機函數, 數組實現, 并應用于隨機顯示記錄集
作用:
本函數適用于隨機顯示小數量的隨機不重復數字
本函數適用于顯示小數量的隨機不重復記錄集
為了不影響效率, 上限超過一千, 不建議使用本函數
shawl.qiu
2006-09-06
http://blog.csdn.net/btbtd
主內容: 函數及應用函數隨機顯示100條記錄
linenum
復制代碼 代碼如下:
<%
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 無重復數字隨機函數, 數組實現, By shawl.qiu
' 2006-09-06
' http://blog.csdn.net/btbtd
'''''''''''''''''''''''''''''''''
' 注意: 隨機數超過1000, 不建議使用本函數.
'''''''''''''''''''''''''''''''''
' 參數說明:
'''''''''''''''''''''''''''''''''
' lwNum 為 數字數組下限, 如: 1
' upNum 為 數字數組上限, 如: 100
'''''''''''''''''''''''''''''''''
' sample call:
'''''''''''''''''''''''''''''''''
' dim t
