當前位置:首頁 » 操作系統 » asp資料庫隨機

asp資料庫隨機

發布時間: 2024-11-13 12:00:03

『壹』 asp隨機調用資料庫然後判斷是否超過限制

給你一個函數你參考下。
Set rs = Server.CreateObject("Adodb.RecordSet")
rs.open sql,conn,1,1
DIM Appeared
Call DisRndRecord(10,rs.recordCount)'調用函數該位置顯示記錄
'################SUBS################
'#DisRndRecord(DisNum,rsBound)
'#參數DisNum:顯示數量
'#參數rsBound:隨機數產生范圍
Sub DisRndRecord(DisNum,rsBound)
DIM i,ThisRnd
If rsBound < DisNum Then DisNum = rsBound'記錄總數小於要抽取記錄條數的情況
For i = 0 To DisNum - 1
ThisRnd = GetRnd(rsBound)'取得一個不重復的隨機數
rs.Move(ThisRnd)'游標移動到隨機數位置數讀取
Response.Write("<br/>("&rs("id")&")"&rs("Title"))
rs.Move(-ThisRnd)
Next
End Sub
'# 函數GetRnd(bound)返回一個不重復的隨機數字
'#參數bound:隨機范圍
Function GetRnd(bound)
DIM ranNum
Randomize()
ranNum=int(bound*rnd)
If Instr(Appeared,"["&ranNum&"]") Then '產生的隨機數是否出現過
ranNum = getRnd(bound)
End If
Appeared = Appeared & "["&ranNum&"]" '記錄已出現的隨機數
GetRnd = ranNum
End Function

熱點內容
華為瀏覽器緩存 發布:2024-11-22 04:42:10 瀏覽:876
羅技g502宏吃雞腳本 發布:2024-11-22 04:02:33 瀏覽:291
dxp里如何編譯集成庫 發布:2024-11-22 03:40:42 瀏覽:503
php入門開發實戰 發布:2024-11-22 03:27:20 瀏覽:808
研究網路存儲 發布:2024-11-22 03:26:33 瀏覽:83
yumphp版本 發布:2024-11-22 03:21:39 瀏覽:744
記憶存儲味道 發布:2024-11-22 03:21:35 瀏覽:937
c語言ifelse語句 發布:2024-11-22 03:20:58 瀏覽:631
塞班安卓怎麼刷 發布:2024-11-22 03:16:43 瀏覽:289
青春密碼肌底液怎麼樣 發布:2024-11-22 03:03:59 瀏覽:977