📄 books3.asp
字号:
<!--#include file="conn.inc"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title><STYLE type=text/css>
.inputfield {
BACKGROUND-POSITION: center; FONT-WEIGHT: bolder; FONT-SIZE: 12px; LINE-HEIGHT: 16px; FONT-STYLE: normal; FONT-FAMILY: "宋体"}
.text {
FONT-WEIGHT: normal; FONT-SIZE: 12px; WORD-SPACING: 2px; COLOR: #000000; LINE-HEIGHT: 17px; FONT-FAMILY: "宋体"; TEXT-ALIGN: justify; TEXT-DECORATION: none
}
BODY {
MARGIN: 0px
}
</STYLE>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
</head>
<body background="images/back.jpg" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="777" height="820" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="88B7E6">
<tr valign="top">
<td height="70" colspan="2" background="images/back.jpg"> <div align="center">
<TABLE height=70 cellSpacing=0 cellPadding=0 width=775 align=center
bgColor=#ffffff border=0>
<!--DWLayoutTable-->
<TBODY>
<TR>
<TD vAlign=top width=224 height=70><IMG id=logo height=70 alt=前沿科技图书
src="images/logotranDEEP.gif" width=205 name=logo></TD>
<TD
style="FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#4A91D9', gradientType='1')"
vAlign=top width=463 height=70> </TD>
<TD vAlign=top width=88
bgColor=#4a91d9><!--DWLayoutEmptyCell--> </TD>
</TR>
</TBODY>
</TABLE>
</div></td>
</tr>
<tr valign="top">
<td height="16" colspan="2" background="images/back.jpg"> <div align="center">
<Iframe width="775" height="25" id="log" src="login3.asp" frameborder=0> </IFRAME>
</div></td>
</tr>
<tr>
<td width="162" rowspan="2" valign="top" bgcolor="EFF5FC"> <div align="center">
<table width="100%" height="390" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20" colspan="2" class="inputfield"><strong> 寻 书</strong></td>
</tr>
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_anclass",conn,1,1
if rs.EOF and rs.BOF then
response.Write "<div align=center><font color=red>还没有分类</font></center>"
else
do while not rs.EOF
%>
<tr>
<td width="15" height="16"> </td>
<td width="151" class="text"><a href="books3.asp?class=<%=rs("anclass")%>&type=1" class="text"><%=rs("anclass")%></a></td>
</tr>
<%
rs.MoveNext
loop
end if
%>
<%
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from shop_nclass",conn,1,1
if rs.EOF and rs.BOF then
response.Write "<div align=center><font color=red>还没有分类</font></center>"
else
do while not rs.EOF
%>
<tr>
<td width="15" height="16"> </td>
<td width="151" class="text"><a href="books3.asp?class=<%=rs("anclass")%>&type=2" class="text"><%=rs("anclass")%></a></td>
</tr>
<%
rs.MoveNext
loop
end if
%>
<tr> </tr>
<tr>
<td height="16" colspan="2" class="inputfield"><strong> 购 书</strong></td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">前沿在线书屋</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">其他书店列表</td>
</tr>
<tr> </tr>
<tr>
<td height="16" colspan="2" class="inputfield"><strong> 读 书</strong></td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">前沿书友会</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">读者作品展示台</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">书评与建议</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">查看与提交勘误信息</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">图书补充资料下载</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">本网站常见问题解答</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">在线学习</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">每日一文</td>
</tr>
<tr>
<td height="20"> </td>
<td class="text">论坛直通车</td>
</tr>
<tr> </tr>
<tr>
<td height="2" colspan="2" class="inputfield"><strong> 写 书</strong></td>
</tr>
<tr>
<td height="2"> </td>
<td class="text">您想写书吗？</td>
</tr>
<tr>
<td height="4"> </td>
<td class="text">我们的进度及规划</td>
</tr>
<tr>
<td height="16"> </td>
<td class="text">作者指南</td>
</tr>
<tr bgcolor="88B7E6"> </tr>
</table>
</div></td>
<td height="133" valign="top" background="images/back.jpg"> <div align="right">
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="612" height="133">
<param name="movie" value="images/banner.swf">
<param name="quality" value="high">
<embed src="images/banner.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="612" height="133"></embed></object>
</div></td>
</tr>
<tr>
<td height="546" valign="top" background="images/back.jpg" class="text">
<div align="left">
<div align="center">
<table width="574" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="548" height="33" class="inputfield"><span class="text"><strong>
<%
select case request("type")
case 1:
sql= "SELECT * FROM shop_books,shop_anclass where shop_books.anclassid=shop_anclass.anclassid and shop_anclass.anclass='"&request("class")&"' order by bookid desc"
response.write("列出"&request("class")&"类所有图书")
filename="books3.asp?class="&request("class")&"&type=1"
case 2:
sql= "SELECT * FROM shop_books,shop_nclass where shop_books.xilieid=shop_nclass.anclassid and shop_nclass.anclass='"&request("class")&"' order by bookid desc"
response.write("列出"&request("class")&"所有图书")
filename="books3.asp?class="&request("class")&"&type=2"
case 3:
sql= "SELECT * FROM shop_books where newsbook=1 order by bookid Desc"
response.write("列出所有新书")
filename="books3.asp?type=3"
case 4:
sql= "SELECT * FROM shop_books where bestbook=1 order by bookid Desc"
response.write("列出所有推荐图书")
filename="books3.asp?type=4"
case 5:
select case request("action")
case "1"
sql1=" bookname like '%"&request("text")&"%'"
case "2"
sql1=" bookzz like '%"&request("text")&"%'"
case "3"
sql1=" isbn like '%"&request("text")&"%'"
end select
sql= "SELECT * FROM shop_books where "&sql1&" order by bookid Desc "
response.write("符合"&request("text")&"的查询结果")
filename="books3.asp?text="&request("text")&"&action="&request("action")&"&type=5"
end select
%>
</strong></span> </td>
</tr>
<tr>
<td height="0" valign="top" class="black12px"><span class="text">
<p align="center"><strong> </strong></p>
</span>
<%
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
%>
<p align="center" class="text">还没有此类图书！</p>
<%
else
dim MaxPerPage
dim sql
dim rs
dim gstBookID
dim totalPut
dim CurrentPage
dim TotalPages
if not isempty(request("page")) then
currentPage=cint(request("page"))
else
currentPage=1
end if
rs.pagesize=4
totalPut=rs.recordcount '记录总数
totalPage=rs.pagecount
MaxPerPage=rs.pagesize
if currentpage<1 then
currentpage=1
end if
if currentpage>totalPage then
currentpage=totalPage
end if
if currentPage=1 then
showContent
showpages1
else
if (currentPage-1)*MaxPerPage<totalPut then
rs.move (currentPage-1)*MaxPerPage
dim bookmark
bookmark=rs.bookmark '移动到开始显示的记录位置
showContent
showpages1
end if
end if
rs.close
end if
set rs=nothing
conn.close
set conn=nothing
sub showContent
dim i,j
i=1
do while not (rs.eof or err)
%>
<table width="548" border="0" align="center" cellpadding="0" cellspacing="0">
<!-- fwtable fwsrc="" fwbase="images/ty.gif" fwstyle="Dreamweaver" fwdocid = "306327581" fwnested="0" -->
<tr>
<td width="35" rowspan="2" bgcolor="#EFF5FC">
<%if rs("pic")="" then%>
<img border="0" src="emptybook.gif" width="73" height="100">
<%else%>
<a target=_blank href="<%=rs("pic1")%>"><img border="0" src="<%=rs("pic")%>" width="73" height="100"></a>
<%end if%>
</td>
<td width="10" rowspan="2" bgcolor="#EFF5FC"></td>
<td bgcolor="#EFF5FC" class="text"> <strong> <a href="books4.asp?id=<%=rs("bookid")%>" target='_self' class="black12px"><strong><%Response.Write rs("bookname")%></strong></a> </strong> <br>
作者: <%Response.Write rs("bookzz")%> <br>
出版社: <%Response.Write rs("press")%> ISBN： <%Response.Write rs("isbn")%> <br>
市场价: ￥ <%Response.Write rs("price")%> 会员价： ￥ <%Response.Write rs("huiyuanjia")%> 出版日期: <%Response.Write rs("huiyuanjia")%></td>
<td width="3" rowspan="3"><img src="images/ty.gif"></td>
</tr>
<tr>
<td bgcolor="#EFF5FC"><div align="right"><img src="images/arrow.gif" width="242" height="5" align="absmiddle"><a href="books4.asp?id=<%=rs("bookid")%>" target='_self' class="text">详细信息</a></div></td>
</tr>
<tr>
<td height="10" colspan="3" background="images/ty2.gif"></td>
</tr>
</table>
<br>
<p>
<%
if i>=MaxPerPage then exit do
i=i+1
rs.movenext
loop
end sub
%>
<%
sub showpages1()
dim n
n=totalPage
%>
<form action="<%=filename%>" method="post" align="right">
<div align="right">
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td height="30"> <div align="right"><span style="font-size:9pt">
共<font color="#FF0000"><%=totalPage%></font>页/<font color="red"><%=totalPut%></font>条信息</span>
<% If currentPage <> 1 Then %>
<A href=<%=filename%>><font color="#FF6600"><span style="font-size:9pt">[首页]</span></font></A>
<A href=<%=filename%>&Page=<%=(currentPage-1) %>><font color="#FF6600"><span style="font-size:9pt">[上一页]</span></font></A>
<% End If %>
<% If currentPage <> rs.PageCount Then %>
<A href=<%=filename%>&Page=<%=(currentPage+1) %>><font color="#FF6600"><span style="font-size:9pt">[下一页]</span></font></A>
<A href=<%=filename%>&page=<%=totalPage%>><font color="#FF6600"><span style="font-size:9pt">[尾页]</span></font></A>
<% End If %>
<span style="font-size:9pt">第<font color="#FF0000"><%=currentPage%></font>页/共<font color="#FF0000"><%=totalPage%></font>页
<%
response.write " 转到：<select name='page' size=1 class=smallselsect style='font-family: 宋体; font-size: 9pt;'>"
for i=1 to n
response.write "<option value="& i
if currentpage=i then
response.write " selected"
end if
response.write ">"& i &"</option>"
next
response.write "</select>"
response.write " <input class=buttonface type='submit' value='go' style='font-family: 宋体; font-size: 9pt;'>"
%>
</span> </div></td>
</tr>
</table>
</div>
</form>
<%end sub%>
</tr>
<tr>
<td> </td>
</tr>
</table>
</div>
</div></td>
</tr>
<tr>
<TD height=40 colspan="5"
style="FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#FFFFFF', endColorStr='#4A91D9', gradientType='1')">
<DIV align=right><span class="text">2004 北京前沿公司.前沿图书工作室.保留所有权利。</span></DIV></TD>
</tr>
</table>
<div align="center"></div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -