📄 book.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<%
dim bookid
bookid=request.QueryString("id")
%>
<html>
<head>
<title><%=webname%>--图书详细资料</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<!--#include file="webtop.asp"-->
<%
dim rs2
set rs2=server.CreateObject("adodb.recordset")
rs2.open "select * from shop_books where bookid="&bookid,conn,1,3
rs2("liulancount")=rs2("liulancount")+1
rs2.update%>
<table width="778" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="610" height="232" valign="top" bgcolor="#9BBDE5"><table width="96%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="5" colspan="3"></td>
</tr>
<tr bgcolor="#99CCFF">
<td width="16%" height="20"> </td>
<td width="49%" height="14"><div align="right"></div></td>
<td width="35%" height="14"> </td>
</tr>
<tr>
<td height="199" valign="top" bgcolor="#9C9AFF"><TABLE cellSpacing=0 cellPadding=0 width=140 border=0>
<TBODY>
<TR>
<TD colSpan=3 height=14> </TD>
</TR>
<TR>
<TD width=5> </TD>
<TD width=129 height="128" align=middle bgcolor="#9C9AFF"><div align="center">
<%if trim(rs2("bookpic"))<>"" then
response.write "<img src="&trim(rs2("bookpic"))&" width=100 height=150>"
else
response.Write "<img src=images/emptybook.gif width=65 height=96>"
end if%>
</div></TD>
<!--图书封面end-->
<TD width=6> </TD>
</TR>
<TR>
<TD colSpan=3> </TD>
</TR>
<TR align=right bgColor=#9C9AFF>
<TD colSpan=3> </TD>
</TR>
</TBODY>
</TABLE></td>
<td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="1" cellspacing="1">
<tr>
<td><%=trim(rs2("bookname"))%></td>
</tr>
<tr>
<td>作 者：<%=trim(rs2("bookzz"))%></td>
</tr>
<tr>
<td>出版社：<%=trim(rs2("bookchuban"))%></td>
</tr>
<tr>
<td>日 期：<%=trim(rs2("bookdate"))%></td>
</tr>
<tr>
<td>开 本：<%=trim(rs2("kaiben"))%> 版 次：<%=rs2("banci")%>次</td>
</tr>
<tr>
<td>页 数：<%=rs2("yeshu")%>页</td>
</tr>
<tr>
<td>装 帧：<%=trim(rs2("zhuang"))%></td>
</tr>
<tr>
<td>ISBN ：<%=trim(rs2("isbn"))%></td>
</tr>
</table></td>
<td><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#9C9AFF">
<tr>
<td height="53" bgcolor="#9C9AFF"><table width="96%" height="48" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td bgcolor="#9966FF">市场价：</td>
</tr>
<tr>
<td bgcolor="#9966FF"><div align="center"><%=formatnumber(rs2("shichangjia"),2)%>元</div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="52" bgcolor="#9C9AFF">
<table width="96%" height="48" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td bgcolor="#9CCFFF">折扣价：</td>
</tr>
<tr>
<td bgcolor="#9CCFFF"><div align="center"><%response.write rs2("dazhe")*100&".00%"%></div></td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="51" bgcolor="#C6C3C6"><table width="96%" height="48" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td bgcolor="#99CCFF">会员价：</td>
</tr>
<tr>
<td bgcolor="#99CCFF"><div align="center"><font color=#FF3300><%=formatnumber(rs2("huiyuanjia"),2)%>元</font></div></td>
</tr>
</table></td>
</tr>
<tr>
<td height="51" bgcolor="#9C9AFF"><table width="96%" height="48" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td bgcolor="#9999FF">为您节省：</td>
</tr>
<tr>
<td bgcolor="#9999FF"><div align="center"><font color=#ffffff><%=formatnumber(round(rs2("shichangjia")-rs2("huiyuanjia"),2),2)%>元</font></div></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
<td width="136" bgcolor="#9C9AFF"><table width="91%" border="0" align="center" cellpadding="3" cellspacing="1">
<tr>
<td><!--#include file="userinfo.asp"--></td>
</tr>
<tr>
<td height="19"><div align="center"><a href="shopping.asp?id=<%=rs2("bookid")%>" target="_blank">购买</a></div></td>
</tr>
<tr>
<td height="19"><div align="center"><a href="shoucang.asp?id=<%=rs2("bookid")%>&action=add" target="_blank">收藏</a></div></td>
</tr>
</table></td>
<td width="32" bgcolor="#9999FF"> </td>
</tr>
</table>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top" bgcolor="#F7F7F7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="9" valign="top"><img src="images/book_left_0.gif" width="12" height="9"></td>
<td width="17" height="9" background="images/book_right_line1.gif"></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top" background="images/book_bg.gif" bgcolor="#F7F7F7"><div align="right"></div>
<table width="90%" border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td colspan="2" >
<%if rs2("bookcontent")<>"" then
response.write "<img src=images/brief.gif width=70 height=20 alt=图书简介><table width=19 height=4 border=0 cellpadding=0 cellspacing=0><tr><td height=4></td></tr></table>"&trim(rs2("bookcontent")&"<table width=19 height=6 border=0 cellpadding=0 cellspacing=0><tr><td height=6></td></tr></table>")
end if
if rs2("bookmulu")<>"" then
response.write "<img src=images/list.gif width=70 height=20 alt=图书目录><table width=19 height=4 border=0 cellpadding=0 cellspacing=0><tr><td height=4></td></tr></table>"&trim(rs2("bookmulu"))&"<table width=19 height=6 border=0 cellpadding=0 cellspacing=0><tr><td height=6></td></tr></table>"
end if
%>
</td>
</tr>
<tr>
<td colspan="2"></td>
</tr>
<%'查看作者更多作品
response.write "<tr><td width=70% ><img src=images/xing.gif width=70 height=20></td>"
if rs2("bookzz")<>"" then
response.write "<form name=searchbookzz method=post action=research.asp>"
response.write "<td width=30% ><div align=right><input type=hidden name=searchkey value="&trim(rs2("bookzz"))&"<input type=hidden name=selectaction value=2>"
response.write "<a href=research.asp?action=2&searchkey="&trim(rs2("bookzz"))&" target=_blank>查看更多关于<font color=red>"&trim(rs2("bookzz"))&"</font>图书</a></div></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>"
rs2.close
set rs2=nothing
response.write "<tr><td><img src=images/duzhe.gif width=70 height=20></td>"
response.write "<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=93 height=20 border=0 alt=用户评论></a></div></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>
</tr>
<tr>
<td height="10" valign="top" bgcolor="#F7F7F7"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top" background="images/jb_info_bc_bg.gif"><img src="images/jb_info_bcl.gif" width="12" height="10"></td>
<td valign="top" background="images/jb_info_bc_bg.gif"><div align="right"><img src="images/jb_info_bcr.gif" width="17" height="10"></div></td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="service.asp"-->
<!--#include file="copyright.asp"-->
</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
select case xx
case "1"
response.write "<img src=images/pingji/1.gif alt=评论星级>"
case "2"
response.write "<img src=images/pingji/2.gif alt=评论星级>"
case "3"
response.write "<img src=images/pingji/3.gif alt=评论星级>"
case "4"
response.write "<img src=images/pingji/4.gif alt=评论星级>"
case "5"
response.write "<img src=images/pingji/5.gif alt=评论星级>"
case "6"
response.write "<img src=images/pingji/6.gif alt=评论星级>"
case "7"
response.write "<img src=images/pingji/7.gif alt=评论星级>"
case "8"
response.write "<img src=images/pingji/8.gif alt=评论星级>"
case "9"
response.write "<img src=images/pingji/9.gif alt=评论星级>"
case "10"
response.write "<img src=images/pingji/10.gif alt=评论星级>"
case "0"
response.write "<img src=images/pingji/0.gif alt=评论星级>"
end select
end sub
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -