<!--#include file="Inc/Cls_DB.asp" -->
<!--#include file="Inc/Const.asp" -->
<% 
'==============================================================================
'产品目录：风讯产品N系列
'软件名称：风讯网站信息管理系统
'当前版本：Foosun Content Manager System V2.0
'最新更新：2005.1
'==============================================================================
'Copyright (C) 2002-2004 Foosun.Net  All rights reserved.
'商业注册联系：028-85098980-601,技术支持：028-85098980-606、607,客户支持：608
'产品咨询QQ：159410,655071 
'技术支持QQ：66252421 
'程序开发：风讯开发组 & 风讯插件开发组
'Email:service@cooin.com
'论坛支持：风讯在线论坛(http://bbs.foosun.net,http://bbs.aspsun.cn,http://bbs.cooin.com)
'官方网站：www.Foosun.net  演示站点：www.cooin.com    开发者园地：www.aspsun.cn
'==============================================================================
'免费版本请在新闻首页保留版权信息，并做上本站LOGO友情连接
'风讯在线保留此程序的法律追究权利
'==============================================================================
Set DBC = New DataBaseClass
Set Conn = DBC.OpenConnection()
Set DBC = Nothing
%>
<!--#include file="Inc/Function.asp" -->
<%
set confimsn=conn.execute("select domain from config")
if Request("Newsid")="" Then
		Response.Write("错误的参数")
		Response.End
end if
Dim Newsid,ReviewList,Content1,RsReview,sql,TempRsNewsObj1
Newsid=Replace(Trim(Request("Newsid")),"'","''")
Set TempRsNewsObj1 = Conn.Execute("Select ShowReviewTF,ReviewTF from News where Newsid='" & Replace(trim(request("Newsid")),"'","''") & "'")
	if cint(TempRsNewsObj1("ShowReviewTF")) = 0 then
		response.Write("")
		response.end
	end if
set RsReview1 = server.CreateObject ("ADODB.RecordSet")
Sql1 = "select * from Review where Newsid='" &Replace(request("Newsid"),"'","''")&"' and isv=1 order by ID desc"
RsReview1.Open Sql1,Conn,1,3
set RsReview = server.CreateObject ("ADODB.RecordSet")
Sql = "select top 10 * from Review where Newsid='" &Replace(request("Newsid"),"'","''")&"' and isv=1 order by ID desc"
RsReview.Open Sql,Conn,1,3
ReviewList="<table width=""96%"" border=""0"" cellspacing=""1"" cellpadding=""4""  bgcolor=""#E8E8E8""> <tr bgcolor=""#F7F7F7"" align=center><td width=75><strong>作者笔名</strong></td><td><strong>简单内容(共<font color=red>"&RsReview1.recordcount&"</font>个评论)</strong> <a href="&confimsn("domain")&"/NewsReview.asp?Newsid="&Newsid&"><u>查看全部内容</u></a></td><td align=left width=68><strong>发表日期</strong></td></tr>"
while Not RsReview.Eof
	if len(RsReview("Content"))>30 then
		Content1=""&RsReview("Content")&".."
	else
		Content1=""&RsReview("Content")&""
	end if
	ReviewList=ReviewList&"<tr  bgcolor=""#FFFFFF""><td  width=75>"&RsReview("UserID")&"</td><td><div style=word-break:break-all>"&replace(replace(Content1,chr(13),"<br>"),"'","&#39;")&"</div></td><td  width=68>"&month(RsReview("AddTime"))&"-"&day(RsReview("AddTime"))&" "&Hour(RsReview("AddTime"))&":"&minute(RsReview("AddTime"))&"</td></tr>"
	RsReview.movenext
wend

ReviewList=ReviewList&"</table>"

response.write "document.write('"&ReviewList&"')"
RsReview1.close
set RsReview1=nothing
RsReview.close
set RsReview=nothing
%>