濮阳杆衣贸易有限公司

主頁 > 知識庫 > asp下實現(xiàn)記錄集內(nèi)隨機(jī)取記錄的代碼

asp下實現(xiàn)記錄集內(nèi)隨機(jī)取記錄的代碼
熱門標(biāo)簽：滴滴地圖標(biāo)注上車點 無營業(yè)執(zhí)照地圖標(biāo)注教學(xué) 高質(zhì)量的電銷外呼系統(tǒng) 地圖標(biāo)注還可以做嗎 電銷機(jī)器人采購 外呼系統(tǒng)怎么話費 硅基電話機(jī)器人加盟 宿州防封外呼系統(tǒng)平臺 友邦互聯(lián)電銷機(jī)器人違法嗎
記錄集內(nèi)隨機(jī)取記錄的代碼

% 
' Moving to random record - Steven Jones' Extension
If Not(記錄集名稱.bof and 記錄集名稱.eof) Then
' reset the cursor to the beginning
If (記錄集名稱.CursorType > 0) Then
記錄集名稱.MoveFirst
Else
記錄集名稱.Requery
End If

記錄集名稱_totalrn = -1
記錄集名稱_totalrn = 記錄集名稱.RecordCount ' ony works on some recordsets, but much faster
If (記錄集名稱_totalrn = -1) Then ' and if it didn't work, we still have to count the records.

' count the total records by iterating through the recordset
記錄集名稱_totalrn=0
While (Not 記錄集名稱.EOF)
記錄集名稱_totalrn = 記錄集名稱_totalrn + 1
記錄集名稱.MoveNext
Wend

' reset the cursor to the beginning
If (記錄集名稱.CursorType > 0) Then
記錄集名稱.MoveFirst
Else
記錄集名稱.Requery
End If

End If

' now do final adjustments, and move to the random record 
記錄集名稱_totalrn = 記錄集名稱_totalrn - 1
If 記錄集名稱_totalrn > 0 Then
Randomize
記錄集名稱.Move Int((記錄集名稱_totalrn + 1) * Rnd)
End If 
End If
' all done; you should always check for an empty recordset before displaying data
%> 

  

標(biāo)簽：七臺河 宣城 儋州 江門 錫林郭勒盟 新余 雅安 廣元

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《asp下實現(xiàn)記錄集內(nèi)隨機(jī)取記錄的代碼》，本文關(guān)鍵詞  asp,下,實現(xiàn),記錄,集內(nèi),隨機(jī),；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題，煩請?zhí)峁┫嚓P(guān)信息告之我們，我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp下實現(xiàn)記錄集內(nèi)隨機(jī)取記錄的代碼》相關(guān)的同類信息！
  • 本頁收集關(guān)于asp下實現(xiàn)記錄集內(nèi)隨機(jī)取記錄的代碼的相關(guān)信息資訊供網(wǎng)民參考！
    • 推薦文章
    卢龙县| 株洲县| 武义县| 拜城县| 平塘县| 马尔康县| 兴国县| 邵武市| 离岛区| 兖州市| 抚顺县| 清新县| 高尔夫| 漠河县| 平乐县| 和平区| 博野县| 连平县| 青川县| 贵州省| 那坡县| 沅陵县| 湘阴县| 当涂县| 宾阳县| 百色市| 古田县| 垦利县| 济宁市| 彭水| 潼南县| 永定县| 青海省| 达拉特旗| 二手房| 敦化市| 抚松县| 鄂尔多斯市| 云和县| 宜阳县| 扶沟县|