buyhistory.asp

图书管理系统的所有程序

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn/conn.asp"-->
<%
if session("passed1")=false or session("passed1")="" then
  response.Redirect("userlogin.asp")
  response.End
end if
  strsql="select tb_regdelivermaster.*,tb_regdeliverdetail.*,tb_bookinfo.* "&_
  "from tb_regdelivermaster inner join (tb_regdeliverdetail inner join tb_bookinfo"&_
  " on tb_regdeliverdetail.barcode = tb_bookinfo.barcode) on"&_
  " tb_regdelivermaster.deliverID = tb_regdeliverdetail.deliverID "&_
  "WHERE tb_regdelivermaster.userID ='"+session("ID1")+"'"
  set rs=Server.CreateObject("ADODB.Recordset")
  rs.open strsql,conn,3
  if not rs.eof then
%>
<link rel="stylesheet" href="css/style.css" type="text/css">
<style type="text/css">
<!--
.style4 {
	color: #99CC00;
	font-weight: bold;
}
.style5 {color: #000000}
.style7 {color: #000000; font-weight: bold; }
-->
</style>

<title><%=session("username1")%>的订单一览表</title><table border="0" cellpadding="4" cellspacing="1" bgcolor="#CCCC33" width="100%">
   <tr>
     <td valign="middle" bgcolor="#FFCC66"><h3 align="center"><font color="#FF3333">
     <%=session("username1")%></font><span class="style5">的订单一览表</span></h3></td>
   </tr>
   <tr>
     <td bgcolor="#FFFFFF">
	     <br>
		 <table width="98%" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#0099CC">
		    <tr bgcolor="#F3F3F3">
		      <td><div align="center" class="style4 style5">订单号</div></td><td><div align="center" class="style7">书号</div></td><td><div align="center" class="style7">书名</div></td><td><div align="center" class="style7">价格</div></td><td><div align="center" class="style7">数量</div></td><td><div align="center" class="style7">金额</div></td><td><div align="center" class="style7">购书日期</div></td>
			</tr>
				<%
				rs.pagesize=7
				page=CLng(Request("page"))
				if page<1 then page=1
				rs.absolutepage=page
				for i=1 to rs.pagesize	
				       sql="select * from tb_fixprice where Barcode='"&rs("barcode")&"'"
	   set rs1=server.CreateObject("adodb.recordset")
	   rs1.open sql,conn,3,3
				%>
                  <tr valign="middle" bgcolor="#FFFFFF">
                    <td>&nbsp;
                      <div align="center"><%=(rs("deliverID"))%></div></td>
                    <td>&nbsp;
                      <div align="center"><%=(rs("barcode"))%></div></td>
                    <td>&nbsp;
                      <div align="center"><%=(rs("BookName"))%></div></td>
                    <td><div align="center"><%=(rs1("Sellprice"))%></div></td>
                    <td><div align="center"><%=(rs("num"))%></div></td>
                    <td><div align="center"><%=(rs("money"))%></div></td>
                    <td><div align="center"><%=(rs("timeDate"))%></div></td>
                  </tr>
					<% 
					rs.movenext
					if rs.eof then exit for 
				    next
				  %>
				  <tr bgcolor="#FFFFFF">
				    <td colspan="7">
				    <% 
					if page=1 then
					%>
					&nbsp;第一页
					<%
					end if
					if page<>1 then %>					<a href=buyhistory.asp?page=1> 第一页</a>
				<a href=buyhistory.asp?page=<%=(page-1)%>>上一页</a> 
				<%end if 
				if page<>rs.pagecount then %>
   				<a href=buyhistory.asp?page=<%=(page+1)%>>下一页</a> 
				<a href=buyhistory.asp?page=<%=rs.pagecount%>>最后一页</a> 
				<%end if %>	
				    </td>
				  </tr>
       </table>
     </td>
   </tr>
</table>

<p>
  <%
else
response.write "您没有购书记录"
end if
%>
</p>
<p align="center"><input type="button" value="关闭窗口" onClick="window.close();" style="border:1px solid;border-color:#000000;background-color:#FFCC66"></p>