<%
Response.Buffer = True
Dim Conn
Sub OpenConn()
    Dim DataURL
     set Conn=server.createobject("ADODB.CONNECTION")
     DataURL=server.mappath("db.mdb")
     Conn.open"provider=microsoft.jet.oledb.4.0;data source="&DataURL
     if err then
         Response.Write "conn error!"
         Response.End()
     end if
End Sub

Sub CloseConn()
    Conn.Close
    Set Conn = Nothing
End Sub
Function Randsub(numtotal) '==随机函数得ID
    Randomize
    Randsub = int((numtotal-1+1)*rnd+1)
end Function
openconn
%>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from news order by id desc "
rs.open sql,conn,1,1
do while not rs.eof
%>|<a href="http://www.<%=rs("url")%>"><%=rs("title")%><%
rs.movenext
loop
rs.close
set rs=nothing
%>


这是我的一个asp网页，现在我的问题是我那些内容加到数据库是按ID的顺序显示，我想实际随机显示，这个代码要改什么地方呢？谢谢

如何用SQL读取随机数据

MsSql随机取数据 select top 10 * from TableName order by newid()
Access 随机取数据 select SELECT top 10 id FROM 表1 order by rnd(id)
mySql 随机取数据 SELECT id FROM gueze order by rand() limit

给你一个思路：
先读出数据表中所有ID值（select ID from news）存放到ASP数组中，
在ASP中，利用随机函数产生随机数选取一个数组元素，给合成一条SQL语句，从数据表中读数据：
select * from news where ID=<某一数组值>

方法笨些，效率也不会高，但能达到目的：显示的行是随机的，显示的顺序也是随机的。

其实还有一个方法，就是利用数据库的存储过程来实现。