asp,比如数据库里有100条数据,每次只显示10条,如何在我刷新后随机显示10条出来,解决后加分,
4个回答
展开全部
原理先读到数组中,然后用随机数取出
<!--#include file="inc/xconn.asp"-->
<%
dim a(100,2),r(100)
i=1
set rs=conn.execute("select top 100 id,title from news order by id desc")
do while not rs.eof '初始化数组数据
a(i,1)=rs("id")
a(i,2)=rs("title")
rs.movenext
i=i+1
loop
for i=1 to 100
r(i)=0 '初始话数组r
next
for i=1 to 10
randomize
l=int(rnd*100+1)
do while r(l)<>0
l=int(rnd*100+1)
loop
r(l)=1
response.write a(l,2)&"<br>"
next
%>
<!--#include file="inc/xconn.asp"-->
<%
dim a(100,2),r(100)
i=1
set rs=conn.execute("select top 100 id,title from news order by id desc")
do while not rs.eof '初始化数组数据
a(i,1)=rs("id")
a(i,2)=rs("title")
rs.movenext
i=i+1
loop
for i=1 to 100
r(i)=0 '初始话数组r
next
for i=1 to 10
randomize
l=int(rnd*100+1)
do while r(l)<>0
l=int(rnd*100+1)
loop
r(l)=1
response.write a(l,2)&"<br>"
next
%>
展开全部
Randomize
rnd1 = Int(Rnd * 101)
sql= "select top 10 * from mnudb order by rnd(" & (-1 * rnd1) & " * id) desc"
rnd1 = Int(Rnd * 101)
sql= "select top 10 * from mnudb order by rnd(" & (-1 * rnd1) & " * id) desc"
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这个怕是要用到随机数函数rnd()了
思路:
先生成随机整数(int(rnd()*100)),(当然,通常需要在此代码前行加randomize)然后根据这个数字去读取数据库中的一条记录,循环得到更多条
思路:
先生成随机整数(int(rnd()*100)),(当然,通常需要在此代码前行加randomize)然后根据这个数字去读取数据库中的一条记录,循环得到更多条
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
随机显示一般不应该重复吧?稍麻烦点,但可以实现。用rnd函数,采取得到不重复随机数的办法就好。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询