ASP随机显示内容 怎么做

Question

<%=rs("ID")%><br>
<%=rs("ID")%><br>
<%=rs("ID")%><br> 这个是调用代码
但是每行显示的数据都一样 我要每次显示的都是随机内容
<%

Randomize timer '刷新页面产生随机数'
abc = Int(Rnd*4+1) '这里的int是把后面产生的小数转换成整数'
%>
<%'创建记录集开始
set rs=server.createobject ("adodb.recordset")
exec="SELECT top 1 * FROM title_2 WHERE id = " & abc & ""
rs.open exec,conn,1,1
'创建记录集结束
%>
不是要读取3条 是读取一条 每次
每当显示的时候都不一样

Answer 1

要读出多条语句，应该用循环输出，比如你想要3条，top后面数字应为3不是1
<%
Randomize timer '刷新页面产生随机数'
r = Rnd

'创建记录集开始
set rs=server.createobject ("adodb.recordset")
exec="SELECT top 3 * FROM title_2 order by rnd(" & r & "-id)"
rs.open exec,conn,1,1
'创建记录集结束
do while not rs.eof
response.write rs("ID")&"<br>"
Loop
%>

Answer 2

我这个可以实现批量替换,自动更新文件我用vb6编的，加一个按钮，及file控件 delphi的memo可以用来读取，然后在memo内处理，应该简单得多，或者直接读出来