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

熱點內容
php傳輸 發布:2025-07-11 10:25:40 瀏覽:239
計演算法框圖 發布:2025-07-11 10:08:32 瀏覽:549
電容觸摸安卓一體機市場前景如何 發布:2025-07-11 10:08:27 瀏覽:840
c程序的編譯單位是 發布:2025-07-11 10:07:42 瀏覽:901
怎麼看網站的伺服器 發布:2025-07-11 10:03:16 瀏覽:604
紅米手機wlan輸入密碼在哪裡 發布:2025-07-11 10:02:32 瀏覽:433
懶人學編程 發布:2025-07-11 09:44:58 瀏覽:333
android命令行簽名 發布:2025-07-11 09:44:15 瀏覽:881
應用密碼怎麼取消密碼 發布:2025-07-11 09:28:33 瀏覽:797
pythonubuntumysql 發布:2025-07-11 09:23:47 瀏覽:531