📄 look_book.asp
字号:
<td align="center" valign="top"><hr size="3"><b> 关于此作品的评论（只显示10条）
[
<a target="_blank" href="commentlist.asp?info=book&id=<%=rs_s("id")%>">
查看全部书评</a> ] [
<a target="_blank" href="goodcommentlist.asp?info=book&id=<%=rs_s("id")%>">
查看精华书评</a> ]</b><hr size="1">
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="30" align="center"><%
pencat="<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"
set rs=server.CreateObject("adodb.recordset")
if IsSqlDataBase = 2 then
sql="select id,txttitle,txttime,username,Islink,hits from news where Istop = 1 and Iscontent = 0 and Ntype=1 order by id desc limit 2"
else
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"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
pencat=pencat&"<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>"
pencat=pencat&"<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
pencat=pencat&"<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>"
pencat=pencat&"<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")
if IsSqlDataBase = 2 then
sql="select id,txttitle,txtcontent,txttime,username,Islink,hits from news where Istop = 0 and Iscontent = 0 and Ntype=1 order by id desc limit 2"
else
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"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
if rs("Islink")=1 then
pencat=pencat&"<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[公告]</font> <a href="&rs("txtcontent")&">"&rs("txttitle")&"</a></td>"
pencat=pencat&"<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
pencat=pencat&"<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>"
pencat=pencat&"<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")
if IsSqlDataBase = 2 then
sql="select txtcontent from news where Iscontent=1 and Ntype=1 order by id desc limit 1"
else
sql="select top 1 txtcontent from news where Iscontent=1 and Ntype=1 order by id desc"
end if
rs.open sql,conn,1,1
if rs.eof and rs.bof then
else
do while not rs.eof
pencat=pencat&"<tr><td colspan=2 style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[公告]</font> "&rs("txtcontent")&"</td></tr>"
pencat=pencat&"<tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"
rs.movenext
loop
end if
rs.close
set rs=nothing
response.write pencat&"</table>"
response.write "<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"
Set rsp1 = Server.CreateObject("ADODB.Recordset")
if IsSqlDataBase = 2 then
sql = "select IsGood,Content,UserName,WriteTime from Comment where type_ID="&rs_s("id")&" and IsTop=1 and Commenttype=1 order by Commentid desc"
else
sql = "select IsGood,Content,UserName,WriteTime from Comment where type_ID="&rs_s("id")&" and IsTop=1 and Commenttype=1 order by Commentid desc"
end if
rsp1.open sql, conn, 1, 1
if rsp1.eof and rsp1.bof then
else
do while not rsp1.eof
response.write "<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※ <font color=#FF0000>[置顶]</font>"
if rsp1("IsGood")=1 then
response.write " <font color=#FF0000>[精华]</font> "
end if
response.write rsp1("Content")&"</td><td align=right width=130>"&rsp1("UserName")&"〈"&formatdatetime(rsp1("WriteTime"),2)&"〉</td></tr>"
response.write "<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")
if IsSqlDataBase = 2 then
sql = "select IsGood,Content,UserName,WriteTime from Comment where type_ID="&rs_s("id")&" and IsTop=0 and Commenttype=1 order by Commentid desc limit 10"
else
sql = "select top 10 IsGood,Content,UserName,WriteTime from Comment where type_ID="&rs_s("id")&" and IsTop=0 and Commenttype=1 order by Commentid desc"
end if
rsp.open sql, conn, 1, 1
if rsp.eof and rsp.bof then
response.write "<tr><td colspan=2 align=center class=font>没有数据可查询</td></tr>"
else
do while not rsp.eof
response.write "<tr><td style='PADDING-BOTTOM: 3px;PADDING-top: 5px;line-height:150%;'>※"
if rsp("IsGood")=1 then
response.write " <font color=#FF0000>[精华]</font> "
end if
response.write rsp("Content")&"</td><td align=right width=130>"&rsp("UserName")&"〈"&formatdatetime(rsp("WriteTime"),2)&"〉</td></tr>"
response.write "<tr><td colspan=2 bgcolor=#666666 align=center height=1></td></tr>"
rsp.movenext
loop
response.write "</table>"
end if
rsp.close
set rsp=nothing%> </td>
</tr>
</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"><%if rs_s("Lock_lun")=0 then%>
<table width="99%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="27" align="left">
<table border="0" cellspacing="0" cellpadding="0" width="98%" align="left" valign="top">
<form action="CommentSave.asp?act=book&id=<%=rs_s("id")%>" method="post" name="bookup">
<tr>
<td width="100%" class="xt" 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("value='您没有登陆,注册用户发表评论可得积分!'") else response.write("value='您已经登陆,请发表书评!'")%> disabled size="38">
*<%if WebpinglunLOCKNum=1 then
randomize
randm=Int((900000*rnd)+100000)
response.write "验证码：<input name=randm1 type=text class=form size=10 maxlength=20><input type=hidden name=randm2 value="&randm&">"
response.write "<span style='font-family: Georgia;border: 1 solid #808080;background-color: #e8e8e8'> <b>"&randm&"</b></span>"
end if%></td>
</tr>
<tr>
<td align="left" width="100%" class="xt" valign="top" class="font">
<textarea rows="6" cols="60" name="Content" class="think" style="width: 600; height: 100"></textarea><br>
<input type="button" value="计算字数" class="stbtm" onclick="javascript:alert("帖子内容长度: "+document.bookup.Content.value.length+" 个字，\n最多允许<%=CommentSize%>字。");">
<input title="严禁使用任何html、javascript脚本或其他非法性字符，请少于<%=CommentSize%>字！" type="submit" value="发送书评" class="stbtm" name="sendup" onclick="bookupsubmit();">
严禁使用任何html、javascript脚本或其他非法性字符
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
<%else%>
<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%> </td>
</tr>
</table>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -