ASP+Access隨機讀取數據庫記錄的方法
深山行者個人網站 2009/4/18 23:18:57 深山行者 字體:
大 中 小 瀏覽 17226
|
方法01 以下是引用片段:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="qiconn.asp"--> <% Randomize(timer()) bgsql = "select top 5 fuid,id,lcolor,name from lei order by rnd(-(id + " & Int((10000 * Rnd) + 1) & "))" set bgrs=server.CreateObject("adodb.recordset") bgrs.open bgsql,conn,1,1 if bgrs.eof and bgrs.eof then response.write "" else do until bgrs.eof response.write bgrs("name") & "<br>" bgrs.movenext loop end if bgrs.closd set bgrs=nothing %> </body> </html>
|
|
方法02 以下是引用片段:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!--#include file="qiconn.asp"--> <% dim rndnum Randomize Do While Len(rndnum)<2 num1=CStr(Chr((57-48)*rnd+48)) rndnum=rndnum&num1 loop Randomize bgsql = "select * from lei where id>"& rndnum &" order by rnd(id) desc" set bgrs=server.CreateObject("adodb.recordset") bgrs.open bgsql,conn,1,1 if bgrs.eof and bgrs.eof then response.write "" else do until bgrs.eof response.write bgrs("name") & "<br>" bgrs.movenext loop end if bgrs.closd set bgrs=nothing %> </body> </html>
|
- 相關閱讀
- 表格斜線
- 我愛敦煌網
- 詳解VBScript里的對象 正則表達式功能介紹
- 網站管理后臺
- access數據庫做的網站出現.ldb不能刪除超過2KB之后就會網站訪問不了數據庫,提示數據庫不存在
- ASP利用fso讀取文件夾里所有文件的名字
- httpd.ini偽靜態網站分享到微信好友微信朋友圈鏈接打不開報404錯誤的解決辦法
- 淺論網頁優化和網站優化的方式
- 共有0條關于《ASP+Access隨機讀取數據庫記錄的方法》的評論
- 發表評論