Question

求将以下ASP改成随机显示10篇文章的详细代码

<!--#include file="Config.asp"-->'数据库连接

<%
Sql="Select top 10 * from [Links] where Links_Validate=1 order by Links_Id desc"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
dim i
i=0
do while not mRs.eof
%>

<a target="_blank" href="<% =mRs("Links_Url") %>"><% =mRs("Links_Name")%></a>

<%
i=i+1
mRs.movenext
loop
mRs.close
Set mRs=Nothing
%>
忘记跟你说明了，我用的access数据库

Answer 1

access数据库不支持order by newid()，这是我修改过的，应该可以用，楼主可辩察以试试，把你的腊告sql查询代码换了就行。
Sql="Select top 10 * from [Links] where Links_Validate=1 order by Rnd(Links_Id-timer())"
修改后的：
<!--#include file="Config.asp"-->'数据库连接

<%
Sql="Select top 10 * from [Links] where Links_Validate=1 order by Rnd(Links_Id-timer())"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
dim i
i=0
do while not mRs.eof
%>

<a target="_blank" href="<% =mRs("Links_Url") %>"><% =mRs("Links_Name")%><携局茄/a>

<%
i=i+1
mRs.movenext
loop
mRs.close
Set mRs=Nothing
%>

Answer 2

很简单，把SQL语耐者败句改一下排序嫌数就好了，具体如下：
<%
Sql="Select top 10 * from [Links] where Links_Validate=1 order by newid()"
Set mRs=Server.CreateObject("adodb.recordSet")
mRs.open sql,conn,1,1
dim i
i=0
do while not mRs.eof
%>

<a target="_blank" href="<% =mRs("Links_Url") %>"><% =mRs("Links_Name")%>昌颤</a>

<%
i=i+1
mRs.movenext
loop
mRs.close
Set mRs=Nothing
%>

Answer 3

newid()

Answer 4

你是什么数据库？sql2005的话用newid（），access就不知道了

Answer 5

先问下用的什么数据库，如果是MSSQL就好弄，方法配磨如下：
Sql="Select top 10 * from [Links] where Links_Validate=1 order by newid()"
把后面的排序改一下汪哪就行

如果是ACCESS数据库不支持此方法，实现起来也比较困难，你可以变通实现：
如果按点击次数正排序，只要有人点了，次数+1，原来那条记录就会往后排，用培陵斗户看到的也不是同样的内容