📄 book.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="webtop.asp"-->
<html>
<head>
<title><%=bkname%>_详细资料_<%=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" onMouseOver="window.status='【<%=webname%>】<%=weburl%> 如果您喜欢本站,别忘了把本站介绍给您的好友哦！：）';return true">
<%
dim bookid,key_ip,rs2,bkname,bkzz,bknclassid
bookid = request.QueryString("id")
key_ip = Request.ServerVariables("remote_addr")
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
bkname = rs2("bookname")
bkzz = rs2("bookzz")
bknclassid = rs2("nclassid")
//评星级函数
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
dim rs_ip,rs1,rs3,rs4,rs_rq,rs_xs,rs_xg,rs_zz,rs_list_ip,i_h
//判断是否是同一品种且是同一IP号
set rs_ip=server.CreateObject("adodb.recordset")
rs_ip.open "select * from shop_hisurl where his_url_ip='"&key_ip&"' and his_url="&bookid&" order by his_url_id ",conn,1,3
if rs_ip.bof and rs_ip.eof then
rs_ip.addnew
rs_ip("his_url_name")=rs2("bookname")
rs_ip("his_url")=bookid
rs_ip("his_url_ip")=Request.ServerVariables("remote_addr")
rs_ip.update
end if
rs_ip.close
set rs_ip=nothing
//删除最早的历史浏览
set rs_ip_dele=server.CreateObject("adodb.recordset")
rs_ip_dele.open "select * from shop_hisurl where his_url_ip='"&key_ip&"' order by his_url_id ",conn,1,3
if rs_ip_dele.recordcount>5 then
rs_ip_dele.movefirst
rs_ip_dele("bln_dele")=1
rs_ip_dele.update
conn.execute "delete from shop_hisurl where bln_dele=1"
end if
rs_ip_dele.close
set rs_ip_dele=nothing
%>
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="155" valign="top"><br>
<table width=155 border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width=155 border='0' align='center' cellpadding='0' cellspacing='0'>
<tr>
<td width="100%" valign="top">
<%
set rs_xg=server.CreateObject("adodb.recordset")
rs_xg.open "select top 10 * from shop_books where nclassid like '%"&bknclassid&"%' and bestbook=1 and bookid<>"&bookid,conn,1,1
%>
<table width='155' border='0' cellspacing='0' cellpadding='0' bgcolor='#6699ff'>
<tr>
<td width='6'><img src='imgside/ss_050910_lll_05.gif' width='6' height='18' alt=''></td>
<td align=center><font color='#ffffff' size=2>同类图书推荐</font></td>
<td width='6'><img src='imgside/ss_050910_lll_06.gif' width='6' height='18' alt=''></td>
</tr>
</table>
<tr>
<td width='100%' height=41 background=imgside/bg_cartinfo3.gif>
<table width='155' border='0' cellspacing="0" cellpadding="0">
<%
if rs_xg.eof and rs_xg.bof then
response.write"<tr><td align='center'><font size=2 color=red>暂无同类推荐！</font></td></tr>"
else
i=0
do while not rs_xg.eof
response.write "<tr><td>·<a href=book.asp?id="&rs_xg("bookid")&" title=此图书已被浏览"&rs_xg("liulancount")&"次>"&"<font color=#0000ff>"
if len(trim(rs_xg("bookname")))>12 then
response.write left(trim(rs_xg("bookname")),11)&"..."
else
response.write trim(rs_xg("bookname"))
end if
response.write "</a></td></tr>"
i=i+1
if i>9 then exit do
rs_xg.movenext
loop
rs_xg.close
set rs_xg=nothing
end if
%>
<tr>
<td height=3>
</tr>
</table>
<tr>
<td height=3><img src=imgside/pic_cartinfobottom3.gif width=155 height=3></td>
</tr>
</table>
<tr>
<td height=5>
</tr>
<tr>
<td valign="top">
<table width=155 border='0' align='center' cellpadding='0' cellspacing='0'>
<tr>
<td width="100%" valign="top">
<%
set rs_zz=server.CreateObject("adodb.recordset")
rs_zz.open "select top 11 * from shop_books where bookzz like '%"&bkzz&"%' and bookid<>"&bookid,conn,1,1
%>
<table width='155' border='0' cellspacing='0' cellpadding='0' bgcolor='#6699ff'>
<tr>
<td width='6'><img src='imgside/ss_050910_lll_05.gif' width='6' height='18' alt=''></td>
<td align=center><font color="#ff3300" size="2">
<%if len(bkzz)>5 then
response.write left((bkzz),4)&"等"
else
response.write bkzz
end if
%></font>
<font color="#FFffff" size="2">的其它图书</font></td>
<td width='6'><img src='imgside/ss_050910_lll_06.gif' width='6' height='18' alt=''></td>
</tr>
</table>
<tr>
<td width='100%' height=41 background=imgside/bg_cartinfo3.gif>
<table width='155' border='0' cellspacing='0'>
<%
if rs_zz.eof and rs_zz.bof then
response.write"<tr><td align='center'><font size=2 color=red>目前还没有相关作品！</font></td></tr>"
else
i=0
do while not rs_zz.eof
response.write "<tr><td>·<a href=book.asp?id="&rs_zz("bookid")&" title=此图书已被浏览"&rs_zz("liulancount")&"次>"&"<font color=#0000ff>"
if len(trim(rs_zz("bookname")))>12 then
response.write left(trim(rs_zz("bookname")),11)&"..."
else
response.write trim(rs_zz("bookname"))
end if
response.write "</a></td></tr>"
i=i+1
if i>10 then exit do
rs_zz.movenext
loop
rs_zz.close
set rs_zz=nothing
end if
%>
<tr>
<td height=3>
</tr>
</table>
<tr>
<td height=3><img src=imgside/pic_cartinfobottom3.gif width=155 height=3></td>
</tr>
</table>
<tr><td height=5>
<tr><td>
<table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="bkorder_guz.asp"--></td>
</tr>
</table>
<tr><td height=5>
<tr><td>
<table width="100%" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td><!--#include file="bkorder_xis.asp"--></td>
</tr>
</table>
<tr><td height=5>
<tr><td>
<table width=155 border='0' align='center' cellpadding='0' cellspacing='0'>
<tr>
<td width="100%" valign="top">
<%
set rs_list_ip=server.CreateObject("adodb.recordset")
rs_list_ip.open "select * from shop_hisurl where his_url_ip='"&key_ip&"' order by his_url_id desc",conn,1,1%>
<table width='155' border='0' cellspacing='0' cellpadding='0' bgcolor='#6699ff'>
<tr>
<td width='6'><img src='imgside/ss_050910_lll_05.gif' width='6' height='18' alt=''></td>
<td align=center><font color='#ffffff' size=2>您曾浏览过的图书</font></td>
<td width='6'><img src='imgside/ss_050910_lll_06.gif' width='6' height='18' alt=''></td>
</tr>
</table>
<tr>
<td width='100%' height=41 background=imgside/bg_cartinfo3.gif>
<table width='155' border='0' cellspacing='0'>
<%
do while not rs_list_ip.eof
response.write "<tr><td>·<a href=book.asp?id="&rs_list_ip("his_url")&"><font color=#0000ff>"
if len(trim(rs_list_ip("his_url_name")))>11 then
response.write left(trim(rs_list_ip("his_url_name")),10)&"..."
else
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -