📄 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">
<style>
td{font-size:9pt;line-height:120%;color:#353535}
body{font-size:9pt;line-height:120%}
a:link { color: #000000; text-decoration: none }
a:visited { color: #000000; text-decoration: none }
a:active { color: #000000; text-decoration: none }
a:hover { color: #336699; text-decoration: none; position: relative; right: 0px; top: 1px }
</style>
</head>
<!--#include file="webtop.asp"-->
<%
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="780" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td background="images/bj.gif">
<table width="748" border="0" cellspacing="0" cellpadding="0" align="center" bordercolor="#CCCCCC">
<tr>
<td> <br>
<table width="748" border="1" cellspacing="0" cellpadding="0" align="center" bordercolor="#CCCCCC">
<tr>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2">
<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 border="0" align="center" cellpadding="0" cellspacing="0" height="51" width="100%">
<tr>
<td width="100%" height="97">
<p align="center"><%if trim(rs2("bookpic"))<>"" then
response.write "<a href="&trim(rs2("zhuang"))&" target=_blank><img src="&trim(rs2("bookpic"))&" width=530 height=396 border=0 alt=点击查看图片实际尺寸！></a>"
else
response.Write "<img src=images/emptybook.gif width=65 height=96 alt=暂时没有图片！>"
end if%><BR><%=trim(rs2("bookname"))%><BR><BR></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>图片说明：</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 + -