亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb

首頁 > 學院 > 開發設計 > 正文

一段返回隨機記錄的代碼

2019-11-18 21:12:07
字體：大 中 小
來源：轉載
供稿：網友
很久沒用access了，只是看到經常碰到有人問如何返回隨機記錄的問題，所以就貼了上來，隨便看看。

<!--#include virtual="/adovbs.inc"-->
<%
    Dim objConn
    Dim objRst
    Dim strSQL
    Dim strConnection
    Dim str
    Dim str1
    Dim cnt
    Dim cnt1
    Dim rndMax
    Dim RndNumber

    strConnection="driver={Microsoft Access Driver (*.mdb)};dbq=" & server.mappath("/testdb.mdb")
    strSQL = "SELECT id FROM tblQuestions"

    set objConn = Server.CreateObject("ADODB.Connection")
    Set objRst = Server.CreateObject("ADODB.Recordset")
    objConn.Open strConnection
    set objRst.ActiveConnection = objConn
    objRst.LockType = adLockOptimistic
    objRst.CursorType = adOpenKeySet
    objRst.Open strSQL

    objRst.MoveLast
    cnt = objRst.RecordCount
    cnt1 = cnt
    rndMax = cnt

    If CInt(Request.Form("maxNumber")) < cnt Then
    cnt1 = CInt(Request.Form("maxNumber"))
    End If

    str = ","
    str1 = ","
    
    Do Until cnt1 = 0
        Randomize
        RndNumber = Int(Rnd * rndMax)

        If (InStr(1, str1, "," & RndNumber & "," ) = 0) Then
        str1 = str1 & RndNumber & ","
        cnt1 = cnt1 - 1
        objRst.MoveFirst
        objRst.Move RndNumber
            str = str & objRst("id") & ","
    End If

    Loop
    
    objRst.Close
    Set objRst = Nothing

    sql = "SELECT * FROM tblQuestions WHERE (((InStr(1,'" & str & "',(',' & [id] & ',')))<>0)) "
    Set objRst = Server.CreateObject("ADODB.Recordset")
    set objRst.ActiveConnection = objConn
    objRst.LockType = adLockOptimistic
    objRst.CursorType = adOpenKeySet
    objRst.Open sql
%>
...DISPLAY THE RECORDS RETURNED...
<%
objRst.Close
Set objRst = Nothing

objConn.Close
Set objConn = Nothing
%>


發表評論 共有條評論
用戶名: 密碼:
驗證碼: 匿名發表
亚洲香蕉成人av网站在线观看_欧美精品成人91久久久久久久_久久久久久久久久久亚洲_热久久视久久精品18亚洲精品_国产精自产拍久久久久久_亚洲色图国产精品_91精品国产网站_中文字幕欧美日韩精品_国产精品久久久久久亚洲调教_国产精品久久一区_性夜试看影院91社区_97在线观看视频国产_68精品久久久久久欧美_欧美精品在线观看_国产精品一区二区久久精品_欧美老女人bb
亚洲成人中文字幕| 色在人av网站天堂精品| 国产精品久久久久久久久久三级| 国产成人亚洲综合91| 国产大片精品免费永久看nba| 日韩成人av一区| 久久久国产一区二区三区| 日韩中文字幕精品视频| 久久精品电影网| 久久午夜a级毛片| 伊人伊人伊人久久| 亚洲人成电影在线观看天堂色| 国产精品偷伦一区二区| 欧美性在线视频| 国产亚洲精品日韩| 国产日韩av高清| 国产精品高精视频免费| 欧美另类精品xxxx孕妇| 久久精品国产一区二区电影| 日韩在线视频导航| 国产精品久久999| 91精品视频网站| 精品久久久久久久久久久| 亚洲社区在线观看| 亚洲片国产一区一级在线观看| 国产成人精彩在线视频九色| 亚洲黄一区二区| 成人a级免费视频| 日韩成人久久久| 亚洲视频在线观看网站| 中文字幕亚洲第一| 国产精品色午夜在线观看| 69av成年福利视频| 亚洲精品中文字幕有码专区| 成人av色在线观看| www日韩中文字幕在线看| 欧美又大粗又爽又黄大片视频| 97av在线视频免费播放| 国产综合香蕉五月婷在线| 久久久久久久影视| 亚洲九九九在线观看| 色综合久久精品亚洲国产| 亚洲亚裔videos黑人hd| 国产一区香蕉久久| 国产精品久久久久久久久| 色综合久久中文字幕综合网小说| 亚洲自拍偷拍在线| 色婷婷成人综合| 综合国产在线观看| 国产亚洲精品激情久久| 亚洲午夜色婷婷在线| 亚洲成人久久网| 国产成人精品999| www.亚洲一二| 国产精品爽爽ⅴa在线观看| 欧美特黄级在线| 国产精品久久不能| 国产精品视频最多的网站| 亚洲欧美制服另类日韩| 97视频网站入口| 欧美美女操人视频| 欧美日韩国产精品专区| 国产精品久久久久av| 亚洲激情在线观看| 国产91成人在在线播放| 久久久伊人欧美| 亚洲毛片在线免费观看| 国产精品女主播| 亚洲精品久久久一区二区三区| 国产成人拍精品视频午夜网站| 高跟丝袜欧美一区| 久久天天躁狠狠躁夜夜躁| 亚洲人成在线播放| 中文字幕精品网| 91精品国产91久久久久久吃药| 色中色综合影院手机版在线观看| 久久99久久99精品免观看粉嫩| 日本高清不卡在线| 国产精品久久久久久久久免费| 91久久国产精品91久久性色| 69影院欧美专区视频| 亚洲偷熟乱区亚洲香蕉av| 一色桃子一区二区| 上原亚衣av一区二区三区| 久久免费精品视频| 青青久久aⅴ北条麻妃| 国产精品美女www| 精品福利在线看| 成人免费xxxxx在线观看| 在线观看欧美成人| 国产精品一久久香蕉国产线看观看| 欧美日韩一区二区在线| 欧美成人激情图片网| 国产精品久久97| 不卡av在线播放| 欧美精品少妇videofree| 成人久久一区二区三区| 欧美一区二区三区精品电影| 欧美日韩免费网站| 伊人伊成久久人综合网站| 久久成人亚洲精品| 亚洲高清久久久久久| 91av免费观看91av精品在线| 欧美日韩国产精品一区二区三区四区| 欧美在线性爱视频| 欧美韩国理论所午夜片917电影| 欧美二区在线播放| 亚洲一级黄色av| 国产欧美精品一区二区三区-老狼| 久久精品一区中文字幕| 亚洲欧美视频在线| 97激碰免费视频| 久久精品国产欧美亚洲人人爽| 久久久精品久久久久| 欧美性videos高清精品| 美女福利视频一区| 日韩av在线导航| 俺也去精品视频在线观看| 最新国产精品亚洲| 欧美性xxxx极品hd满灌| 日韩精品福利在线| 日韩精品在线影院| 成人网址在线观看| 国产精品麻豆va在线播放| 国产精品爽爽爽| 国产精品99久久99久久久二8| 久久精品男人天堂| 亚洲乱码国产乱码精品精天堂| 精品视频中文字幕| 亚洲第一网中文字幕| 欧美性xxxx18| 亚洲第一网站免费视频| 亚洲国产精彩中文乱码av| 国产视频精品免费播放| 亚洲色图五月天| 国产精品视频网站| 色偷偷av亚洲男人的天堂| 2023亚洲男人天堂| 国产精品福利网| 亚洲japanese制服美女| 97视频com| 欧美性猛交xxxx免费看漫画| 国产精品aaa| 欧美性在线观看| 亚洲日本aⅴ片在线观看香蕉| 国产噜噜噜噜噜久久久久久久久| 日韩中文理论片| 欧美日韩午夜激情| 久久91亚洲精品中文字幕奶水| 日韩av三级在线观看| 日韩av资源在线播放| 亚洲国产精品字幕| 亚洲成人精品久久| 日本在线观看天堂男亚洲| 亚洲第一页中文字幕| 欧美激情在线有限公司| 欧美性69xxxx肥| 在线国产精品播放| 国产91精品网站| 日韩女优人人人人射在线视频| 国内偷自视频区视频综合| 97视频在线观看成人| 午夜精品福利电影| 亚洲天堂男人天堂|