ASP+Access随机读取数据库记录的方法
深山行者个人网站 2009/4/18 23:18:57 深山行者 字体:
大 中 小 浏览 16228
方法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>
|
- 相关阅读
- 购买深山旅行社管理系统后享受哪些服务?
- 新疆中国国际旅行社有限责任公司
- 张家港国贸旅行社有限公司
- 非常不错的DIV+CSS做得菜单,跟JS效果一样,特别酷
- JS获取网页中HTML元素的几种方法
- 爱尚学生网
- CSS初级教程 边框
- asp汉字转换为拼音
- 共有0条关于《ASP+Access随机读取数据库记录的方法》的评论
- 发表评论