當前位置:首頁 » 操作系統 » 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-19 03:06:35 瀏覽:900
奧德賽買什麼配置出去改裝 發布:2025-07-19 02:53:18 瀏覽:40
請與網路管理員聯系請求訪問許可權 發布:2025-07-19 02:37:34 瀏覽:189
ipad上b站緩存視頻怎麼下載 發布:2025-07-19 02:32:17 瀏覽:844
phpcgi與phpfpm 發布:2025-07-19 02:05:19 瀏覽:527
捷達方向機安全登錄密碼是多少 發布:2025-07-19 00:57:37 瀏覽:693
夜魔迅雷下載ftp 發布:2025-07-19 00:39:29 瀏覽:99
增值稅票安全接入伺服器地址 發布:2025-07-19 00:20:45 瀏覽:486
solidworkspcb伺服器地址 發布:2025-07-18 22:50:35 瀏覽:822
怎麼在堆疊交換機里配置vlan 發布:2025-07-18 22:42:35 瀏覽:630