ACC数据库ASP随机读取N条数据技巧

以下的代码仅仅是例子，大家如果有需要的话就根据这个例子进行修改使用！URI中国设计秀
一般来说，ACC是足够应付站点的，除非是你非常大型，不然ACC还是非常不错的！URI中国设计秀

 URI中国设计秀

 程序代码URI中国设计秀
<%URI中国设计秀
dim sjtop,Aa,le URI中国设计秀
'准备读取多少记录 URI中国设计秀
le=5 URI中国设计秀
Set sjtop = Server.CreateObject("ADODB.Recordset") URI中国设计秀
sjtop.open "select * from 库名",conn,1,3 URI中国设计秀
Aa = sjtop.recordcount-le URI中国设计秀
sjtop.move(randsub(Aa)) URI中国设计秀
if sjtop.eof thenURI中国设计秀
%>URI中国设计秀
不存在数据URI中国设计秀
<%end if%>URI中国设计秀
<%URI中国设计秀
for i = 1 to le %>URI中国设计秀
内容URI中国设计秀
<%URI中国设计秀
sjtop.movenext URI中国设计秀
next  URI中国设计秀
sjtop.close URI中国设计秀
'取随机数 URI中国设计秀
Function Randsub(total) URI中国设计秀
Randomize URI中国设计秀
Randsub = int((total-1+1)*rnd+1) URI中国设计秀
end FunctionURI中国设计秀
%>URI中国设计秀