📄 search.asp

📁 精通SQL Server 2005数据库应用系统开发立即下载第12章书店有数据库写的很好
💻 ASP
字号:
<!--#include File="conndb.asp"-->

<html>
<head>
<link href=style.css rel=STYLESHEET type=text/css>
</head>
<script language="javascript">
function newswin(url) {
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=500,height=400";
  var newswin=window.open(url,"newswin",oth);
  newswin.focus();
  return false;
}
function newOrder(url) {
  var oth="toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,left=200,top=200";
  oth = oth+",width=500,height=150";
  var newOrder=window.open(url,"newOrder",oth);
  newOrder.focus();
  return false;
}

//放入购物车
function OpenBask(bid){
  var url;
  url = "shop/BasketIn.asp?id=" + bid;
  newOrder(url);
}
</script>
<body>
<%
  '取得查询条件
  Dim itype, bname, whereTo, tpid
  Set rs = Server.CreateObject("ADODB.RECORDSET")
  tpid = Request.QueryString("tpid")
  '根据不同情况生成WHERE子句whereTo
  If tpid<>"" Then
    '显示指定分类的所有图书信息，tpid代表分类编号
    whereTo = " Where TypeId=" & Cint(tpid)
    itype = iflag
  Else
    '在指定分类中，查询指定图书
    itype = Request.QueryString("tid")
    bname = Request.QueryString("bname")
    If isNull(bname) Or Len(bname)=0 Then
      whereTo = "Where TypeId=" & Cint(itype)
    Else
      whereTo = "Where TypeId=" & Cint(itype) & " And BookName Like '%" & bname & "%'"
    End If 
  End If
%>
<center>
<table border="0" width="760" cellspacing="0" cellpadding="0">
 <tr><td colspan="3" height="80"><img src="images/shop.jpg" border="0"></td></tr>
  <tr><td colspan="3" bgcolor="#c2c9e0" height="19" valign="middle" align="right">
  <a href="index.asp">主页</a>
  <a href="shop/Basket.asp?pageid=0">去购物车</a>
  <a href="shop/Basket.asp?pageid=1">去收银台</a>
  <a href="shop/Basket.asp?pageid=2">我的订单</a>
  </td></tr>
  <tr>
    <td width="100%" valign="top" align="center">
    <table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#c2c9e0" bordercolordark="#FFFFFF">
      <tr>
        <td width="100%" bgcolor="#c2c9e0" height="18">
          查询图书列表
        </td>
      </tr>
      <tr>
         <td width="100%" valign="top" align="left" height="1">
          <table border="1" width="760"  cellspacing="1" bordercolorlight="#c2c9e0" bordercolordark="#FFFFFF">
<%
  '处理分页显示，每页显示每种图书
  Dim curpage
  PERPAGE = 6
  If Request.QueryString("page")="" Then
    curpage = 1
  Else
    curpage = Cint(Request.QueryString("page"))
  End If
  '读取并显示图书信息
  Dim n
  n = 0
  '设置SELECT语句，将满足条件（whereTo）图书数据读取到记录集rs中
  sql = "SELECT * FROM Books " & whereTo & " ORDER BY id DESC"
  rs.Open sql, conn, 1, 1
  If rs.EOF Then
%>
    <tr><td width="100%" valign="top" align="left" colspan="6" bgcolor="#FFFFFF">暂且没有图书</td></tr>
<%
  Else
    '如果记录集不为空，则显示图书信息
    Dim i
    rs.PageSize = PERPAGE
    rs.AbsolutePage = curpage			 
    For i = 1 To rs.pagesize
      '如果设置每页超过6个图书，则每显示6个图书则换行
      If (i Mod 6)=1 Then
        Response.Write "<tr>"                
      End If
%> 
    <td valign="top" align="left" bgcolor="#FFFFFF" width="126"><p align="center">
<%
      If isNull(rs("ImageFile")) Or rs("ImageFile")="" Then 
        '处理无图片的情况
%>
        <img border="0" src="images/noImg.jpg" width="90" height="110">
      <%Else%>
        <a href="admin/images/<%=rs("ImageFile")%>" target="blank">
        <img border="0" src="admin/images/<%=rs("imageFile")%>" width="90" height="110"></a>
      <%End If%>
</center>
<br>图书名称：<%=rs("BookName")%><br>
    ISBN：<%=rs("ISBN")%><br>
    图书价格：<%=rs("SalePrice")%>元<br>
    浏览次数：<%=rs("ReadCount")%><br>
<center>
<a href="BookView.asp?id=<%=rs("id")%>" onclick="return newswin(this.href)">详细资料</a><br>
<a href='javascript:OpenBask(<%=rs("id")%>)'><img border="0" src="images/order.gif"></a> 
</center>
</td>
<center>
<%
      If (i Mod 6)=6 Then
        Response.Write "</tr>"
      End If
      rs.MoveNext
      If rs.EOF Then
        If i<6 Then
          For j=i+1 To 6
            Response.Write "<td>&nbsp;</td>"
          Next
        End If
        i = i + 1
        Exit For
      End If
    Next
%>
            </tr>
          </table>
</center>
         </td>
      </tr>
      <tr>
         <td width="100%" valign="top" align="left" height="5"></td>
      </tr>
      <tr>
        <td width="100%" valign="top" align="left" height="1"></td>
      </tr>
      <tr><td width='100%' height=15 colspan=3><center> 第<%=Cstr(curpage)%>页/总<%=Cstr(rs.pagecount) %>页
本页<%=Cstr(i-1)%>条/总<%=Cstr(rs.recordcount) %>条
<%
    If curpage = 1 Then 
      Response.Write "首页&nbsp;上一页 "
    Else
      Response.Write "<a href='Search.asp?page=1&flag="&iflag&"&tid="&itype&"&bname="&bname&"'>首页</a>&nbsp;"
      Response.Write "<a href='Search.asp?page="&cstr(curpage-1)&"&flag="&iflag&"&tid="&itype&"&bname="&bname&"'>上一页</a>&nbsp;"
    End If
    If curpage = rs.pagecount then
      Response.Write "下一页&nbsp;尾页"
    Else
      Response.Write "<a href='Search.asp?page="&cstr(curpage+1)&"&flag="&iflag&"&tid="&itype&"&bname="&bname&"'>下一页</a>&nbsp;"
      Response.Write "<a href='Search.asp?page="&cstr(rs.pagecount)&"&flag="&iflag&"&tid="&itype&"&bname="&bname&"''>尾页</a>"
    End If
  End If
%>
		</td></tr>							
 </table>
 <p align=center><a href="javascript:window.close();">[关闭]</a> 
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -