search1.asp

图书管理系统的所有程序

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
If (Request("cValue")<> "" and Request("sField")<> "") Then 
If (Request("cValue")<> "") Then 
  session("INvalue") = Request("cValue")      
End If
session("pBookName") = "BookName"
If (Request("sField")<> "") Then 
  session("pBookName") = Request("sField")      
End If
session("pBookName")=Replace(session("pBookName"), "'", "''")
session("INvalue")=Replace(session("INvalue"), "'", "''")
If (Request("mode")<> "") Then 
  session("rs_mode") = Request("mode")      
End If
end if
if session("rs_mode")<>"" then
if session("rs_mode")="==" then
	sql= "SELECT barcode, BookName, author, Price  FROM tb_Bookinfo  WHERE "_
	 + session("pBookName") + " = '" + session("INvalue") + "'"
else
	sql = "SELECT barcode, BookName, author, Price FROM tb_Bookinfo WHERE "&_
	 session("pBookName") & " Like '%" & session("INvalue") & "%'"
end if
else
sql="SELECT barcode, BookName, author, Price  FROM tb_bookinfo "
end if
set rs_search=Server.CreateObject("ADODB.RecordSet")
rs_search.open sql,conn,1,3
%>
<script language="javascript">
   function newwin1(url){
     var newwin=window.open(url,"","resizable=yes,scrollbars=yes,width=700,height=400");
	 newwin.focus();
	 return false;
   }
</script>
<table width="98%" border="0" align="center" cellpadding="6" cellspacing="-1">
  <tr> 
    <td height="37" align="center" valign="top"><table width="100%" height="49"
	 border="0" align="left" cellpadding="6" cellspacing="1" bgcolor="#CCCC33">
        <tr> 
          <td width="15%" height="25" bgcolor="#f5f5f5"> <div align="center"><strong>条形码</strong></div></td>
          <td width="33%"  height="25" bgcolor="#f5f5f5"> <div align="center"><strong>书 名</strong></div></td>
          <td width="17%" bgcolor="#f5f5f5"><div align="center"><strong>作 者</strong></div></td>
          <td width="13%" height="25" bgcolor="#f5f5f5"> <div align="center"><strong>定 价</strong></div></td>
		  <td width="13%" height="25" bgcolor="#f5f5f5"> <div align="center"><strong>现 价</strong></div></td>
          <td width="9%" height="25" bgcolor="#f5f5f5" align="center"><strong>购物</strong></td>
        </tr>
		<% if rs_search.eof then%>
		<script language="javascript">
		alert("无符合条件的图书！")
		history.back(1)
		</script>
		<%response.end() 
		end if 
		'分页'
		rs_search.pagesize=10
		page=CLng(Request("page"))
		if page<1 then page=1
		rs_search.absolutepage=page
		for i=1 to rs_search.pagesize
		    sql="select * from tb_fixprice where Barcode='"&rs_search("barcode")&"'"
            set rs1=server.CreateObject("adodb.recordset")
            rs1.open sql,conn,3,3
			%>
        <tr> 
          <td bgcolor="#FFFFFF"><%=(rs_search.Fields.Item("barcode").Value)%></td>
          <td bgcolor="#FFFFFF" ><a href="#" onClick="window.open('readbook.asp?bookID=<%=rs_search("barcode")%>','','width=600,height=300');"><%=(rs_search.Fields.Item("BookName").Value)%></a></td>
          <td bgcolor="#FFFFFF" ><%=(rs_search.Fields.Item("author").Value)%></td>
          <td bgcolor="#FFFFFF"><div align="right"><%=(rs_search("Price"))%>（元）</div></td>
<%
If rs1.eof or rs1.bof Then
	sellPrice=rs_search("price")
 Else
	sellPrice=rs1("SellPrice")
 End If%>
		  <td bgcolor="#FFFFFF"><div align="right"><%=Sellprice%>（元）</div></td>
          <td align="center" bgcolor="#FFFFFF"> <input type="image" src="images/add.gif" onclick="return newwin1('buycar_add.asp?bookID=<%=rs_search("barcode")%>')"></td>
        </tr>
			<%
			rs_search.movenext
			if rs_search.eof then exit for 
			next %>
      </table></td>
	  
  </tr>
</table>

<table width="535" border="0" cellspacing="-1" cellpadding="-1">
  <tr> 
    <td width="270" height="27"> 
			<% if page<>1 then %>&nbsp;<a href=<%=path%>?page=1>第一页</a>
			 &nbsp;<a href=<%=path%>?page=<%=(page-1)%>>上一页</a> 
			<%end if 
			if page<>rs_search.pagecount then %>
   			&nbsp;<a href=<%=path%>?page=<%=(page+1)%>>下一页</a> 
			&nbsp;<a href=<%=path%>?page=<%=rs_search.pagecount%>>最后一页</a>
			<%end if %>
    </div></td>
  </tr>
</table>
<% If rs_search.EOF And rs_search.BOF Then %>
<table width="535" height="40" border="0" cellpadding="-1" cellspacing="-1">
  <tr>
    <td><div align="center"> 
        <strong>无符合条件的记录！</strong>
    </div></td>
  </tr>
</table>
<%
End If
rs_search.Close()
Set rs_search = Nothing
%>