search.asp

来自「ASP+SQL Server的图书馆管理系统」· ASP 代码 · 共 176 行

ASP
176 行
字号 
 <!--#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(book_id){
  var url;
  url = "Bookin.asp?book_id=" +book_id;
  newOrder(url);
}
</script>

<body>
<%
  
  Dim itype, gname, whereTo, tpid
  Set rs = Server.CreateObject("ADODB.RECORDSET")
  tpid = Request.QueryString("tpid")
  
  If tpid<>"" Then
    
    whereTo = "Where BOOK_Type=" & Cint(tpid)
    itype = iflag
  Else
    
    itype = Request.QueryString("tid")
    gname = Request.QueryString("gname")
    If isNull(gname) Or Len(gname)=0 Then
      whereTo = "Where BOOK_Type=" & Cint(itype)
    Else
      whereTo = "Where BOOK_Type=" & Cint(itype) & " And BOOK_Name Like '%" & gname & "%'"
    End If 
  End If
%>
<center>
<table border="0" width="600" cellspacing="0" cellpadding="0">

 
  <a href="index.asp"></a>

  </td></tr>
  <tr>
    <td width="100%" valign="top" align="center">
    <table border="1" width="100%" cellspacing="0" cellpadding="0" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
      <tr>
        <td width="100%" bgcolor="#63CFFF" height="18">
        
        </td>
      </tr>
      <tr>
         <td width="100%" valign="top" align="left" height="1">
          <table border="1" width="705"  cellspacing="1" bordercolorlight="#63CFFF" bordercolordark="#FFFFFF">
<%
  Dim curpage
  PERPAGE = 5
  If Request.QueryString("page")="" Then
    curpage = 1
  Else
    curpage = Cint(Request.QueryString("page"))
  End If
  Dim n
  n = 0
   Set rs = Server.CreateObject("ADODB.RECORDSET")
 
  sql = "SELECT * FROM book_info " & whereTo & " ORDER BY book_id DESC"
  rs.Open sql, conn, 3, 3
  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
   
      If (i Mod 5)=1 Then
        Response.Write "<tr>"                
      End If
%> 
    <td valign="top" align="left" bgcolor="#FFFFFF" width="126"><p align="center">
<%
      If isNull(rs("book_ImageFile")) Or rs("book_ImageFile")="" Then 
        
%>
        <img border="0" src="images/noImg.jpg" width="90" height="110">
      <%Else%>
        <a href="images/<%=rs("book_ImageFile")%>" target="blank">
        <img border="0" src="images/<%=rs("book_imageFile")%>" width="90" height="110"></a>
      <%End If%>
</center>
<br>图书名称：<%=rs("book_name")%><br>
    出版社：<%=rs("book_Press")%><br>
<center>
<a href="bookView.asp?book_id=<%=rs("book_id")%>" onclick="return newswin(this.href)">详细资料</a><br>

</center>
</td>
<center>
<%
      If (i Mod 5)=5 Then
        Response.Write "</tr>"
      End If
      rs.MoveNext
      If rs.EOF Then
        If i<5 Then
          For j=i+1 To 5
            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&"&gname="&gname&"'>首页</a>&nbsp;"
      Response.Write "<a href='Search.asp?page="&cstr(curpage-1)&"&flag="&iflag&"&tid="&itype&"&gname="&gname&"'>上一页</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&"&gname="&gname&"'>下一页</a>&nbsp;"
      Response.Write "<a href='Search.asp?page="&cstr(rs.pagecount)&"&flag="&iflag&"&tid="&itype&"&gname="&gname&"''>尾页</a>"
    End If
  End If
%>
		</td></tr>							
 </table>
 <p align=center><a href="javascript:window.close();">[关闭]</a> 
</body>
</html>

search.asp - 源码说明

本页面展示了「ASP+SQL Server的图书馆管理系统」中的 search.asp 源码文件，采用 ASP 编程语言编写，共 176 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Server相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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