sub SetRed_ads
sql="select top "&fineMathematics&" Gq_sfdata.id,Gq_sfdata.name,Gq_sfdata.IP,Gq_sfdata.service,Gq_sfdata.Sdate,Gq_sfdata.hour,Gq_sfdata.minute,Gq_sfdata.addr,Gq_sfdata.QQ,Gq_sfdata.xingzhi,Gq_sfdata.homepage,Gq_sfdata.gameid,Gq_GameType.game,Gq_sfdata.fine,Gq_sfdata.finetime,Gq_sfdata.time"
sql=sql&" from Gq_sfdata,Gq_GameType where Gq_sfdata.gameid=Gq_GameType.id"
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.fine=1 and Gq_sfdata.gameid="&indexsf&" order by Gq_sfdata.hour,Gq_sfdata.minute"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
rs.close
else
while not rs.eof
if checkday(rs("finetime"),rs("time")) then
Response.Write "<TR bgColor="&bg_1&" onmouseover=javascript:this.bgColor='"&bg_1_1&"' onmouseout=javascript:this.bgColor='"&bg_1&"'>"
Response.Write "<TD width="&w1&"><a href="&rs("homepage")&" target=show>"&rs("name")&"</a></TD>"
Response.Write "<TD width="&w2&">"&rs("IP")&"</a></TD>"
Response.Write "<TD width="&w3&">"
%>
<%if rs("Sdate")<>"" then response.write year(rs("sdate"))&"年/"&month(rs("sdate"))&"月/"&day(rs("Sdate"))&"日/"%><%if rs("hour")>=0 and rs("hour")<7 then
response.write "凌晨"&rs("hour")&"点"
else
if rs("hour")>17 and rs("hour")<24 then
response.write "晚上"&rs("hour")-12&"点"
else
if rs("hour")<12 then
response.write "上午"&rs("hour")&"点"
else
if rs("hour")>12 and rs("hour")<=17 then
response.write "下午"&rs("hour")-12&"点"
else
if rs("hour")=12 then
response.write "中午"&rs("hour")&"点"
end if
end if
end if
end if
end if%><% if rs("minute")<30 then
response.write"开放"
else
if rs("minute")>=30 then
response.write "/30分开放"
end if
end if%>
<%
Response.Write "</TD>"
Response.Write "<TD width="&w4&">"&rs("Addr")&""&split(ssign,",")(rs("Service"))&"</TD>"
Response.Write "<TD width="&w5&">"&rs("QQ")&"</TD>"
Response.Write "<TD>"&rs("xingzhi")&"←<img border='0' src='images/atop.gif' width='25' height='11'></TD>"
Response.Write "<TD width="&w6&"><a href="&sflook&"id="&rs("id")&" target=_blank>点击查看<img src='images/ICON_New.gif' hspace=0 vspace=0 border=0></a></TD>"
Response.Write "<TD width="&w7&"><font color=#FF0000>说明</font></TD>"
Response.Write "</TR>"
end if
rs.movenext
wend
rs.close
end if
end sub





以上代码是一个列出AC数据库并按时间排列的，但我想让他变成随机性的，请问怎么解决呢。
我刚从HTML过来的，很多语句都不懂，望前辈们指教

sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.fine=1 and Gq_sfdata.gameid="&indexsf&" order by Gq_sfdata.hour,Gq_sfdata.minute"
改成
sql=sql&" and Gq_sfdata.ulock=1 and Gq_sfdata.fine=1 and Gq_sfdata.gameid="&indexsf&" order by Gq_sfdata.hour,Gq_sfdata.minute,rnd(你想随机的字段)"

终于有人回我啦，好人啊！
我先去试试

哈哈  自己研究出来了
  谢谢大家了，这个论坛真好。以后我会常来的：）
谢谢楼上那位前辈的启发。

[[it] 本帖最后由 Dior 于 2008-3-13 02:46 编辑 [/it]]