當前位置:首頁 » 操作系統 » 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

熱點內容
ip當前伺服器不可用是什麼意思 發布:2025-07-11 08:57:55 瀏覽:334
acfun如何緩存 發布:2025-07-11 08:48:12 瀏覽:2
我的世界伺服器tag 發布:2025-07-11 08:48:09 瀏覽:891
c語言設置 發布:2025-07-11 08:48:02 瀏覽:149
盒子伺服器名稱忘了怎麼找ip 發布:2025-07-11 08:40:00 瀏覽:984
研發部門如何配置電腦 發布:2025-07-11 08:35:13 瀏覽:135
androidassets文件路徑 發布:2025-07-11 08:28:46 瀏覽:164
安卓源碼如何變成ios 發布:2025-07-11 08:20:35 瀏覽:625
純油雅閣配置怎麼選 發布:2025-07-11 08:16:37 瀏覽:320
數控圓孤編程 發布:2025-07-11 08:13:08 瀏覽:257