當前位置:首頁 » 操作系統 » 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-14 13:46:37 瀏覽:900
安卓哪裡可以聽空間音頻 發布:2024-11-14 13:39:39 瀏覽:481
什麼軟體查看手機配置 發布:2024-11-14 13:35:25 瀏覽:726
androidsql查詢語句 發布:2024-11-14 13:35:09 瀏覽:893
linux查看線程數 發布:2024-11-14 13:34:21 瀏覽:771
如何在實驗室搭建伺服器 發布:2024-11-14 13:33:36 瀏覽:632
c語言多個條件 發布:2024-11-14 13:32:36 瀏覽:71
緩存行原理 發布:2024-11-14 13:08:56 瀏覽:432
簡單的vb編程 發布:2024-11-14 13:06:45 瀏覽:523
綠色linux 發布:2024-11-14 12:56:11 瀏覽:350