订阅本栏目 RSS您所在的位置: 深山工作室 > ASP > 正文

ASP+Access随机读取数据库记录的方法

深山行者个人网站 2009/4/18 23:18:57 深山行者 字体: 浏览 17374

方法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>

相关阅读
深山仿QQ爱墙最新版--新的一年,新的界面,新的功能
IE6下用CSS使PNG半透明背景图片效果
购买系统可以免费提供修改服务吗?
佳达国际货运代理有限公司
另类的title提示文字
一个效果非常不错图片载入loading等待效果
可以用作后台的超级强的变色表格
asp许愿墙程序终于设计得差不多了,现在开放
更多信息>>栏目类别选择
百度小程序开发
微信小程序开发
微信公众号开发
uni-app
asp函数库
ASP
DIV+CSS
HTML
python
更多>>同类信息
ASP中Utf-8与Gb2312编码转换乱码问题的解决方法页面编码声明
asp显示随机密码
通过阿里云服务接口获得ip地址详细信息
iis点开后任务栏上有显示,但是窗口看不到的解决办法
RSA加密解密插件
微软Encoder加密解密函数
更多>>最新添加文章
dw里面查找替换使用正则删除sqlserver里面的CONSTRAINT
Android移动端自动化测试:使用UIAutomatorViewer与Selenium定位元素
抖音直播音挂载小雪花 懂车帝小程序
javascript获取浏览器指纹可以用来做投票
火狐Mozilla Firefox出现:无法载入您的Firefox配置文件 它可能已经丢失 或是无法访问 问题解决集合处理办法
在Android、iOS、Windows、MacOS中微信小程序的文件存放路径
python通过代码修改pip下载源让下载库飞起
python里面requests.post返回的res.text还有其它的吗
更多>>随机抽取信息
关于网页里面的DOCTYPE见解
深山行者留言系统V3.1
css改变页面中的文字颜色与字体粗体
添加一个防下载字段(长二进制数据)来防止ACCESS数据库被下载
防止网站内容被人小偷和采集的ASP代码
启用新版文章管理系统