Question

急求ASP程序改成随即显示文章代码

<link href="css/bjs.css" rel="stylesheet" type="text/css" />
　　<script language="JavaScript" type="text/javascript">
　　var Zyads_tan=new Array();
　　Zyads_tan['name']="zdygh2008";
　　Zyads_tan['adid']="50";
　　Zyads_tan['lun']="0";
　　Zyads_tan['poptype']="1";
　　Zyads_tan['poptime']="0";
　　</script>
　　<% dim rs,sql
　　set rs=server.createobject("adodb.recordset")
　　sql="select * from news where type_one_id=1 order by num desc"
　　rs.open sql,conn,1,1
　　%>
　　<%i=0
　　do while not rs.eof%>
　　<tr>
　　<td width="8%" align="center" background="img/hang22.gif"><img src="img/aire2.gif" width="2" height="2" /></td>
　　<td width="60%" height="20" class="bottext12s" background="img/hang22.gif"><a href="newsdaile.asp?id=<%=rs("id")%>" target="_blank" class="tya"><%=left(rs("title"),9)%>...</a></td>
　　<td width="32%" height="20" align="center" background="img/hang22.gif" class="bottext12s"><%=rs("writetime")%></td>
　　</tr>
　　<%rs.movenext
　　i=i+1
　　if i=5 then exit do
　　loop
　　rs.close %>
我想把这个改为随机显示5篇文章怎么修改，重酬

Answer 1

sql="select * from news where type_one_id=1 order by num desc"
改为：
Randomize()
sql="select top 5 * from news where type_one_id=1 order by rnd(-(id+"& rnd() &"))"
里面的id是编号的字段，以你实际的字段名为准。