commentlist.asp

功能介绍： 一、会员功能模块 1、站内短信发布(设计中) 2、书架收藏夹 3、发表评论(功能不完善) 4、申请作家(与添书员整合) 5、申请添书员(与作家整合) 6、申请更新员

<!--#include file="../conn.asp"--><!--#include file="../inc/config.asp"--><%
id=CheckSql(request.querystring("id"))
CheckSqlnum(id)
id=int(id)
response.write "document.write(""<table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><td align=center valign=top><hr size=3><b>&nbsp; 关于此作品的评论（只显示10条）&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; "");"
response.write "document.write(""[<a href="&SiteSystemPath&"commentlist.asp?info=book&id="&id&">	查看全部书评</a> ]&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"");"
response.write "document.write(""[<a href="&SiteSystemPath&"goodcommentlist.asp?info=book&id="&id&"> 查看精华书评</a> ]</b><hr size=1></td></tr><tr><td align=center valign=top>"");"
response.write "document.write(""<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"");"
set rs=server.CreateObject("adodb.recordset")
sql="select top 2 id,txttitle,txttime,username,Islink,hits from [news] where Istop = 1 and Iscontent = 0 and Ntype=1 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
response.write "document.write(""<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[置顶]</font> <font color=#FF0000>[公告]</font> <a href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("txtcontent")&">"&rs("txttitle")&"</a></td>"");"
response.write "document.write(""<td align=right width=130>"&rs("UserName")&"〈"&formatdatetime(rs("txttime"),2)&"〉</td></tr><tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"");"
else
response.write "document.write(""<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[置顶]</font> <font color=#FF0000>[公告]</font> <a href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&rs("txttitle")&"</a></td>"");"
response.write "document.write(""<td align=right width=130>"&rs("UserName")&"〈"&formatdatetime(rs("txttime"),2)&"〉</td></tr><tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"");"
end if
rs.movenext
loop
end if
rs.close
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
sql="select top 2 id,txttitle,txtcontent,txttime,username,Islink,hits from [news] where Istop = 0 and Iscontent = 0 and Ntype=1 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
response.write "document.write(""<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[公告]</font> <a href="&rs("txtcontent")&">"&rs("txttitle")&"</a></td>"");"
response.write "document.write(""<td align=right width=130>"&rs("UserName")&"〈"&formatdatetime(rs("txttime"),2)&"〉</td></tr><tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"");"
else
response.write "document.write(""<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[公告]</font> <a href="&SiteSystemPath&"gonggaodisp.asp?id="&rs("id")&">"&rs("txttitle")&"</a></td>"");"
response.write "document.write(""<td align=right width=130>"&rs("UserName")&"〈"&formatdatetime(rs("txttime"),2)&"〉</td></tr><tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"");"
end if
rs.movenext
loop
end if
rs.close
set rs=nothing

set rs=server.CreateObject("adodb.recordset")
sql="select top 1 txtcontent from [news] where Iscontent=1 and Ntype=1 order by id desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
response.write "document.write(""<tr><td colspan=2 style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[公告]</font> "&rs("txtcontent")&"</td></tr>"");"
response.write "document.write(""<tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"");"
rs.movenext
loop
end if
rs.close
set rs=nothing
response.write "document.write(""</table>"");"
response.write "document.write(""<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"");"
Set rsp1 = Server.CreateObject("ADODB.Recordset")
sql = "select * from [Comment] where type_ID="&id&" and IsTop=1 and Commenttype=1 order by Commentid desc"
rsp1.open sql, conn, 1, 1
if not(rsp1.eof and rsp1.bof) then
do while not rsp1.eof
response.write "document.write(""<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[置顶]</font>"");"
if rsp1("IsGood")=1 then
response.write "document.write("" <font color=#FF0000>[精华]</font>"");"
end if
response.write "document.write("""&rsp1("Content")&"</td>"");"
response.write "document.write(""<td align=right width=130>"&rsp1("UserName")&"〈"&formatdatetime(rsp1("WriteTime"),2)&"〉</td>"");"
response.write "document.write(""</tr><tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"");"
rsp1.movenext
loop
end if
rsp1.close
set rsp1=nothing
Set rsp = Server.CreateObject("ADODB.Recordset")
sql = "select top 10 * from [Comment] where type_ID="&id&" and IsTop=0 and Commenttype=1 order by Commentid desc"
rsp.open sql, conn, 1, 3
if rsp.eof and rsp.bof then
response.write "document.write(""<tr><td align=center class=font>没有数据可查询</td></tr>"");"
else
do while not rsp.eof
response.write "document.write(""<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※"");"
if rsp("IsGood")=1 then
response.write "document.write("" <font color=#FF0000>[精华]</font> "");"
end if
response.write "document.write("""&rsp("Content")&"</td><td align=right width=130>"&rsp("UserName")&"〈"&formatdatetime(rsp("WriteTime"),2)&"〉</td></tr>"");"
response.write "document.write(""<tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"");"
rsp.movenext
loop
end if
rsp.close
set rsp=nothing
response.write "document.write(""</table></td></tr></table><table width=100% border=0 align=center cellpadding=0 cellspacing=0><tr><td align=center valign=top><hr noshade size=1>"");"
set rs_s=server.createobject("adodb.recordset")
sql="select Lock_lun from list_book where id="&id&""
rs_s.open sql,conn,1,1
if not(rs_s.bof and rs_s.eof) then
if rs_s("Lock_lun")=0 then
response.write "document.write(""<table border=0 cellspacing=0 cellpadding=0 width=98% align=left valign=top><form action="&SiteSystemPath&"CommentSave.asp?act=book&id="&id&" method=post name=bookup><tr><td width=100% valign=top class=font><input type=text name=001 "");"
UserID=request.cookies("CnEndWeb_User")("log_UserID")
UserName=request.cookies("CnEndWeb_User")("log_UserName")
if username="" or isnull(userid) then
response.write "document.write(""value='登陆后发表书评可获得积分，请您先进行登录!'"");"
else
response.write "document.write(""value='您已经登陆,可以发表书评!'"");"
end if
response.write "document.write("" disabled size=45>&nbsp;*</td></tr><tr><td align=left width=100% valign=top class=font><textarea rows=6 cols=80 name=Content class=think></textarea><br>"");"
response.write "document.write(""<input title=严禁使用任何html、javascript脚本或其他非法性字符，请少于"&CommentSize&"字！ type=submit value=发送书评 class=stbtm name=sendup onclick=bookupsubmit();>&nbsp; 严禁使用任何html、javascript脚本或其他非法性字符</td></tr></form></table>"");"
else
response.write "document.write(""<table width=99% border=0 align=center cellpadding=0 cellspacing=0><tr><td height=150 align=center><b><font color=#FF0000>本书评论已锁定不能发表书评，如有问题请发站内短信给管理员。</font></b></td></tr></table>"");"
end if
response.write "document.write(""</td></tr></table>"");"
end if
rs_s.close
set rs_s=nothing%>