ASP+Access随机读取数据库记录的方法
深山行者个人网站 2009/4/18 23:18:57 深山行者 字体:
大 中 小 浏览 17320
|
方法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>
|
- 相关阅读
- asp获得当前文件的虚拟物理路径
- 获取客户真实IP地址
- CSS光标属性一览表
- 偏重于汽车租赁服务商建站解决方案
- div+css设置列表li超出部分显示省略号
- 张掖春秋国际旅行社有限公司
- asp页面ip防火墙限制(判断ip内网还是外网)功能
- jquery实现单选按钮radio选中和取消 使用prop()代替attr()
- 共有0条关于《ASP+Access随机读取数据库记录的方法》的评论
- 发表评论
苏公网安备 32070502010230号