 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
很久没用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 %> 返回类别: 教程 上一教程: 利用ASP实现对表的分页浏览(上) 下一教程: ASP:留言簿自动发E-MAIL 您可以阅读与"一段返回随机记录的代码"相关的教程: · ASP中通过GETROWS实现数据库记录分页的一段代码 · 一段检查IP地址段是否合法的代码 · ASP 随机跳转页面的代码 · 在ASP中通过GETROWS实现数据库记录分页的一段代码 · ASP创建EXCHANGE用户的一段代码 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
