<!--#include file = ../../Conn.asp -->
<!--#include file = ../../Include/PublicCls.asp -->
<!--#include file = ../../Include/language.asp -->
<head>
<title>无标题文档</title>
</head>

<body>
<%
list=chkhtm(ChkClng(S("list")))
n=chkhtm(ChkClng(S("n")))
titlecolor=S("titlecolor")
plcolor=S("plcolor")

if n="" then n=10
if list="" then list=10
if titlecolor="" then titlecolor="000000"
if plcolor="" then plcolor="999999"
 

Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "SELECT TOP "&list&" Art_Comment.newsid, (select title from Art_News where Art_News.id=Art_Comment.newsid) AS hotitle, count(*) AS counts FROM Art_Comment where ChannelID=1 GROUP BY newsid ORDER BY count(*) DESC , newsid DESC;",conn,1,1

while not rs.eof
  Response.Write "　·<a href="&GetItemURL(1,rs("newsid"))&" target=_blank><font color="&titlecolor&">"&titleb(rs("hotitle"),n)&"</font></a><font color="&plcolor&">(评论"&rs("counts")&"次)</font><BR>"
rs.movenext
wend
%>
<%
conn.close
set conn=nothing
%>
</body>
</html>


