📄 book.asp
字号:
end if
response.write "图书</div></tr></td></form>"
end if
response.write "</tr>"
'用户评级
response.write "<tr><td colspan=2> "
call pingji()
response.write " <a href=# onClick=""javascript:window.open('pingji.asp?id="&bookid&"','','width=295,height=235,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;"">发表您对本书的评级</a></td></tr>"
response.write "<tr><td><img src=images/duzhe.gif width=590 height=21></td>"
response.write "<tr><td><div align=right><a href=# onClick=""javascript:window.open('pinglun.asp?id="&bookid&"','','width=295,height=185,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=no');return false;"" ><img src=images/my_review.gif width=232 height=21 border=0 alt=我要发表评论></a></div></tr></td></tr>"
'//用户评论
dim rs1
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from shop_pinglun where bookid="&bookid&" and shenhe=1 ",conn,1,1
if rs1.eof and rs1.bof then
response.write"<tr><td colspan=2> 如果您阅读过本书，或对本书有所了解，欢迎您发表自己的评论。您的评论将被网络上成千上万的读者所共享，我们将对您的慷慨深表感谢。<br>"
response.write " 您的评论在提交后将经过我们的审核，也许您需要等待一些时间才可以看到。谢谢合作。</td></tr>"
else
do while not rs1.eof
%>
<tr>
<td colspan="2"><img src="images/b.gif" width="10" height="10" align="absmiddle">[<b><%=rs1("pinglunname")%></b>@<%=rs1("pinglundate")%>]<br>
<%=rs1("pingluncontent")%></td>
</tr>
<%rs1.movenext
loop
rs1.close
set rs1=nothing
end if%>
<tr>
<td colspan="2"> <b>本站发表读者评论，读者的评论和观点如与作者本意发生异议与本站无关。</b></td>
</tr>
</table> </td>
<td width="160" valign="top" bgcolor="#FDE6A4"><table width="160" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2"><img src="<%if request.cookies("bookshop")("username")="" then
response.write "images/login_r1_c1.gif"
else
response.write "images/GWXX.gif"
end if%>" width="170" height="26"></td>
</tr>
<tr>
<td width="1" rowspan="2"><img src="images/login_r2_c1.gif" width="6" height="164"></td>
<td width="138" height="140" background="images/login_r2_c2.gif">
<!--#include file="userinfo.asp"--></td>
</tr>
<tr>
<td><img src="images/login_r3_c2.gif" width="164" height="20"></td>
</tr>
</table>
<br> <table width="170" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="FF8E19" style="padding-left:5px"><font color="#FFFFFF">相关信息：</font></td>
</tr>
</table>
<table width="170" border="0" cellspacing="5" cellpadding="0">
<tr>
<td style="padding-left:5px">所属分类：<%
set ckxp=server.CreateObject("adodb.recordset")
ckxp.open "select nclass,anclassid from shop_nclass where nclassid="&rs2("nclassid"),conn,1,1
response.write "<a href=Class.asp?aid="&ckxp("anclassid")&"&nid="&rs2("nclassid")&" target=_blank>"&trim(ckxp("nclass"))&"</a>"
ckxp.Close
set ckxp=nothing%></td>
</tr>
<%set ckxp=server.CreateObject("adodb.recordset")
ckxp.open "select * from shop_zhuanti where zhuantiId="&rs2("zhuantiId"),conn,1,1
if not (ckxp.eof and ckxp.bof) then
response.write "<tr><td style='padding-left:5px'>所属专题："
response.write "<a href=Class.asp?zid="&ckxp("zhuantiId")&" target=_blank>"&trim(ckxp("zhuantiName"))&"</a>"
response.write "</td></tr>"
end if
ckxp.close
set ckxp=nothing
%>
</table>
<table width="170" border="0" cellpadding="0" cellspacing="2">
<tr>
<td bgcolor="#FF8E19" style="padding-left:5px"><font color="#FFFFFF">与本书相关书籍：</font> </td>
</tr>
<%dim i
i=0
set ckxp=server.CreateObject("adodb.recordset")
ckxp.open "select top 8 bookname,bookid from shop_books where guanjian like '%"&trim(rs2("guanjian"))&"%' and queshu=0 ORDER BY liulancount desc",conn,1,1 %>
<%if ckxp.eof and ckxp.bof then
response.write "没有同类书籍！"
else
do while not ckxp.eof
response.write "<tr><td style='padding-left:5px'>"
response.write "·<a href=book.asp?Id="&ckxp("bookId")&" target=_blank>"
if len(trim(ckxp("bookname")))>14 then
response.write left(trim(ckxp("bookname")),10)&"..."
else
response.write trim(ckxp("bookname"))
end if
response.write "</a>"
response.write "</td></td>"
i=i+1
if i>6 then exit do
ckxp.movenext
loop
end if
ckxp.close
set ckxp=nothing%>
<tr>
<td ><div align="right"><a href=# onClick="javascript:window.open('bookMore.asp?id=<%=rs2("bookid")%>','','width=320,height=500,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;">查看更多相关书籍</a></div></td>
</tr>
</table>
<table width="170" border="0" cellspacing="2" cellpadding="0">
<tr>
<td bgcolor="#FF8E19" style="padding-left:5px"><font color="#FFFFFF">本类本月销售Top10</font></td>
</tr>
<tr>
<td style="padding-left:5px"><%set rs=server.CreateObject("adodb.recordset")
if paihangkongzhi=0 then
rs.open "select top 10 bookid,bookname from shop_books where nclassid="&rs2("nclassid")&" order by yuexiaoshou desc",conn,1,1
else
rs.open "select top 10 bookid,bookname from shop_books where nclassid="&rs2("nclassid")&" and changxiao=1 order by bookdateorder desc",conn,1,1
end if
i=0
do while not rs.eof
response.write "·<a href=book.asp?id="&rs("bookid")&" target=_blank>"
if len(trim(rs("bookname")))>14 then
response.write left(trim(rs("bookname")),10)&"..."
else
response.write trim(rs("bookname"))
end if
response.write "</a>"
response.write "<br>"
i=i+1
if i>9 then exit do
rs.movenext
loop
rs.close
set rs=nothing
%></td>
</tr>
</table> </td>
</tr>
</table>
<%rs2.close
set rs2=nothing%>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
<%
if int(month(now)) <> benyue then
conn.execute "update shop_config set benyue="&int(month(now))
conn.execute "update shop_books set yuexiaoshou=0"
response.Write "成功"
end if
conn.close
set conn=nothing%>
</body>
</html>
<%sub pingji()
dim xx
if rs2("pingjizong")>0 and rs2("pingji")>0 then
xx=rs2("pingjizong")\rs2("pingji")
else
xx=0
end if
response.write "<img src=images/pingji/"&xx&".gif alt=评论星级>"
end sub
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -