ASP如何随机读取ACCESS数据库表中数据
来源：精品源码 时间:2013/12/19
我们在浏览网站时，有时会看到站长会在首页随机推荐某些信息。每次刷新网页，显示的数据都不一样。
这个效果原理是从数据库中随机取数，那ASP如何随机读取ACCESS数据库表中数据呢？下面就和大家讲解下并给出案例代码。
以下的代码仅仅是例子，大家如果有需要的话就根据这个例子进行修改使用！一般来说，ACC是足够应付站点的，除非是你非常大型，不然ACC还是非常不错的！
ASP如何随机读取ACCESS数据库表中数据案例代码:
这个效果原理是从数据库中随机取数，那ASP如何随机读取ACCESS数据库表中数据呢？下面就和大家讲解下并给出案例代码。
以下的代码仅仅是例子，大家如果有需要的话就根据这个例子进行修改使用！一般来说，ACC是足够应付站点的，除非是你非常大型，不然ACC还是非常不错的！
ASP如何随机读取ACCESS数据库表中数据案例代码:
<%
dim sjtop,Aa,le
le=5 '准备读取多少记录
Set sjtop = Server.CreateObject("ADODB.Recordset")
sjtop.open "select * from 库名",conn,1,3
Aa = sjtop.recordcount-le
sjtop.move(randsub(Aa))
if sjtop.eof then
%>
不存在数据
<%end if%>
<%
for i = 1 to le %>
内容
<%
sjtop.movenext
next
sjtop.close
'取随机数
Function Randsub(total)
Randomize
Randsub = int((total-1+1)*rnd+1)
end Function
%>
以上就是ASP随机读取ACCESS数据库中数据的使用方法，希望这篇文章能够帮您解决问题。
ASP如何随机读取ACCESS数据库表中数据
ASP,随机读取,ACCESS数据库
dim sjtop,Aa,le
le=5 '准备读取多少记录
Set sjtop = Server.CreateObject("ADODB.Recordset")
sjtop.open "select * from 库名",conn,1,3
Aa = sjtop.recordcount-le
sjtop.move(randsub(Aa))
if sjtop.eof then
%>
不存在数据
<%end if%>
<%
for i = 1 to le %>
内容
<%
sjtop.movenext
next
sjtop.close
'取随机数
Function Randsub(total)
Randomize
Randsub = int((total-1+1)*rnd+1)
end Function
%>