📄 book.asp
字号:
<tr>
<td>
<div align="center"></div>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
<td width="173" height="97">
<table width="100%" border="0" cellspacing="1" cellpadding="3">
<tr>
<td>
<!--#include file="userinfo.asp"-->
</td>
</tr>
<tr>
<td height="19">
<div align="center">
<%response.write "<a href=# onClick=""javascript:window.open('shopping.asp?id="&rs2("bookid")&"','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;""><img src=images/cart.gif width=175 height=34 border=0></a>"%>
</div>
</td>
</tr>
<tr>
<td height="19">
<div align="center">
<%response.write "<a href=# onClick=""javascript:window.open('shoucang.asp?id="&rs2("bookid")&"&action=add','','width=632,height=388,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;""><img src=images/favorite.gif width=175 height=34 border=0></a>"%>
</div>
</td>
</tr>
</table>
<center>
<%if trim(rs2("bookpic"))<>"" then
response.write "<a href="&trim(rs2("zhuang"))&" target=_blank>查看商品实际尺寸</a>"
end if%>
</center>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table width="748" border="1" cellspacing="0" cellpadding="0" bordercolor="#CCCCCC" align="center">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="9" rowspan="2"></td>
<td class="12v">
<table width="100%" border="0" cellspacing="0" cellpadding="0" class="12v">
<tr>
<td class="12v" >
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" id="AutoNumber3" height="0" width="100%">
<tr>
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<tr>
<td colspan="2" >
<%if rs2("bookcontent")<>"" then
response.write "<font color=red>"&trim(rs2("nr"))&"</font><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 "<font color=red>"&trim(rs2("ml"))&"</font><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% >会员评级</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("bookname"))&"<input type=hidden name=selectaction value=2>"
response.write "<a href=research.asp?action=1&searchkey="&trim(rs2("bookname"))&" target=_blank>查看更多关于<font color=red>"&trim(rs2("bookname"))&"</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>会员评论</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">[<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>
</table>
</td>
</tr>
</table>
</td>
<td class="12v" width="9" rowspan="2"></td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<!--#include file="service.asp"-->
</td>
</tr>
</table>
<!--#include file="copyright.asp"-->
</td>
</tr>
</table>
</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
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -