📄 comment.asp
字号:
<!--#include file="../Conn.asp"-->
<!--#include file="../SysCls/KS_CommonCls.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
%>
<html>
<HEAD>
<TITLE>查看所有评论</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK href="/skin/style.css" type=text/css rel=stylesheet>
<META content="MSHTML 6.00.3790.2577" name=GENERATOR></HEAD>
<BODY bgColor=#f2f9ff topMargin=0>
<!--请自已设计评论页的模板-->
<table width="760" border="0" bgcolor='#ffffff' align="center">
<tr>
<td><%
Dim KSCMS
Set KSCMS=New CommonCls
Dim ChannelID,ClassID,InfoID,RS,CommentStr,UserIP,TitleStr,TotalPoint,N
ChannelID=KSCMS.G("ChannelID")
IF ChannelID="" Or Not ISnumeric(ChannelID) Then
Response.End
End if
ClassID=KSCMS.G("ClassID")
InfoID=KSCMS.G("InfoID")
Set RS=Server.CreateObject("ADODB.RECORDSET")
RS.Open "Select * From KS_Comment Where Verific=1 And ChannelID=" & ChannelID & " And ClassID='" & ClassID & "' And InfoID='" & InfoID & "' Order By AddDate Desc",conn,1,1
IF Not Rs.Eof Then
Select Case ChannelID
Case 1
TitleStr=Conn.execute("Select Title From KS_Article Where NewsID='" & InfoID & "'")(0)
Case 2
TitleStr=Conn.execute("Select Title From KS_Photo Where PicID='" & InfoID & "'")(0)
Case 3
TitleStr=Conn.execute("Select Title From KS_DownLoad Where DownID='" & InfoID & "'")(0)
Case 4
TitleStr=Conn.execute("Select Title From KS_Flash Where FlashID='" & InfoID & "'")(0)
End Select
TotalPoint=Conn.Execute("Select SUM(Point) From KS_Comment Where Verific=1 And ChannelID=" & ChannelID & " And ClassID='" & ClassID & "' And InfoID='" & InfoID & "'")(0)
CommentStr=" 以下是对 <font color=red>[" & TitleStr & "]</font> 的评论,总共:<font color=red>" & rs.recordcount & " </font>条评论 得分:<font color=red>" & TotalPoint\rs.recordcount & "</font> 分<br>"
Do While Not RS.Eof
CommentStr=CommentStr & "<table width='98%' border='0' align='center' cellpadding='0' cellspacing='1' class='comment_show_table'>"
CommentStr=CommentStr & "<tr>"
UserIP=RS("UserIP")
UserIP=Replace(UserIP,split(UserIP,".")(3),"*")
CommentStr=CommentStr & "<td height='25' style='BORDER-RIGHT: #efefef 1px dotted;BORDER-LEFT: #efefef 1px dotted;BORDER-BOTTOM: #efefef 1px dotted;'>"
IF RS("Anonymous")=0 Then
CommentStr=CommentStr & "会员："& RS("UserName")
Else
CommentStr=CommentStr & "游客："& RS("AnounName")
End IF
N=N+1
CommentStr=CommentStr & " 发表时间： " & RS("AddDate") &" IP地址：" & UserIP & "</td><td>第 <font color=red> " & N & "</font> 楼 </td>"
CommentStr=CommentStr & "</tr>"
CommentStr=CommentStr & "<tr>"
CommentStr=CommentStr & "<td height='25' colspan='2'>" & RS("Content") & "</td>"
CommentStr=CommentStr & "</tr>"
CommentStr=CommentStr & "<tr>"
CommentStr=CommentStr & "<td height='25' colspan='2' style='BORDER-TOP: #efefef 1px dotted;BORDER-LEFT: #efefef 1px dotted;BORDER-BOTTOM: #efefef 1px dotted;text-align:right'><A href='mailto:" & rs("Email") & "'>发邮件给评论人</a> <a href='" & KSCMS.GetDomain & "Common/SupportComment.asp?ID=" & RS("ID") & "&Type=1'>支持(<font color=red>" & rs("score") & "</font>)</a> <a href='" & KSCMS.GetDomain & "Common/SupportComment.asp?ID=" & RS("ID") & "&Type=0'>反对(" & rs("oscore") & ")</a> </td>"
CommentStr=CommentStr & "</tr>"
CommentStr=CommentStr & "</table><table><tr><td height='2'></td></tr></table>"
rs.movenext
loop
Else
CommentStr=""
End IF
Response.Write(CommentStr)
rs.close
set rs=nothing
Call KSCMS.CloseConn
Set KSCMS=Nothing
%></td>
</tr>
<tr>
<td><script language="javascript" src="WriteComment.asp?ChannelID=<%=ChannelID%>&ClassID=<%=ClassID%>&InfoID=<%=InfoID%>"></script></td>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -