Question

怎么把ASP显示前10调新闻改成随机显示的，代码如下，求高手帮忙。

<%
Set Rs = server.createobject("ADODB.Recordset")
Rs.Open "select top 10 * from NewsTbl where NewsTypeId = 59 order by AddDate desc" , Conn , 1 , 1
j = 1
Do While Not Rs.Eof
Response.Write("<tr>" & vbCrLf)
Response.Write("<td height=""18""><span class=""red"">·<a href=""News_View.asp?NewsId="& Rs("NewsId") &""" target=""_blank"" class=""top_right"">")
If Len(Rs("NewsTitle")) > 10 Then
Response.Write(Left(Rs("NewsTitle") , 10) & "…")
Else
Response.Write(Rs("NewsTitle"))
End If
Response.Write("</a></td>" & vbCrLf)
Response.Write("</tr>" & vbCrLf)
Rs.MoveNext
j = j + 1
If j > 14 Then Exit Do
Loop
Rs.Close
%>

Answer 1

Randomize
Set Rs = server.createobject("ADODB.Recordset"圆燃拆)
Rs.Open "select top 10 * from NewsTbl where NewsTypeId = 59 order by Rnd(-(newsid+"&Rnd()&"))" , Conn , 1 , 1
这段好样就橘枣可以了

Answer 2

1231222222222222222222222222