📄 bookssaledetail.asp

📁 所在类别：随书资源/T　工业技术/TP 自动化技术、计算机技术/TP31 计算机软件其他题名：作者：夏邦贵, 刘凡馨等编著出版者：机械工业出版社出版年： 2006 I

💻 ASP

字号:

<%@ LANGUAGE="VBScript"  %><% Response.Buffer=true %>
<HTML>
<HEAD>
    <TITLE>在线图书销售管理系统</TITLE>
    <META content="text/html; charset=gb2312" http-equiv="Content-Type">
    <LINK href="adminstyle.css" rel="stylesheet" type="text/css"> 
</HEAD>
<BODY>
<!--   显示用户订阅图书详细数据 -->
<% 
dim UserID,SaleDate
UserID=request("UserID")
SaleDate= request("saledate")
'建立数据库连接
Set cn=Server.CreateObject("ADODB.Connection") 
cn.connectionstring="Provider=SQLOLEDB;UID=sa;pwd=123;" & _
              "DataBase=图书销售;Data Source=(local)"
cn.Open 
'访问数据库获得用户订阅图书详细数据
Set rstemp=Server.CreateObject("ADODB.Recordset")
querystr = "select user_name,rec_id,book_name,book_writer,book_press,book_pdate,book_sum" & _
           " from 订购记录,注册用户,图书信息 " & _
           " where 订购记录.book_id=图书信息.book_id  and 订购记录.user_id=注册用户.user_id" & _
           " and 订购记录.user_id=" & UserId & " and 订购记录.sale_date='" & SaleDate & "'" & _
           " order by sale_Date desc,user_name"
Set rstemp.ActiveConnection = cn
rstemp.CursorType =1
rstemp.LockType = 3
rstemp.Open querystr
'在无图书订阅清单被无内容时返回显示图书订单页面
if rstemp.eof then Response.Redirect "BooksSaleView.asp"
%>
<CENTER>
<H3><I><%= rstemp.fields("user_name") %></I>在
<I><%= year(request("saledate")) %>年
<%= month(request("saledate")) %>月
<%= day(request("saledate")) %>日</I>
的图书订购清单如下</H3>
<HR>
<TABLE  BORDER="0">
	<TR>
		<TD CLASS="header"></TD>    
		<TD CLASS="header" Align="Center">序号</TD>
    <TD CLASS="header" Align="Center">订单编号</TD>
    <TD CLASS="header" Align="Center">图书书名</TD>
    <TD CLASS="header" Align="Center">图书作者</TD>
    <TD CLASS="header" Align="Center">出版社</TD>
    <TD CLASS="header" Align="Center">出版日期</TD>
    <TD CLASS="header" Align="Center">订购数量</TD>
	</TR>

<% '以表格形式输出图书订阅清单
	n=1
  Do While Not rstemp.eof
		Response.Write "<TR>"		
    Response.Write "<TD ALIGN=CENTER >" 
%>
   	<FORM ACTION="BookSaleRemove.asp?SaleID=<%=rstemp.Fields(1)%>&UserID=<%=UserID%>&SaleDate=<%=SaleDate%>" METHOD="POST">       
       <INPUT TYPE="submit" VALUE="删除">
    </FORM>
<% 	Response.Write "</TD><TD align=center>"
    Response.Write n
    Response.Write "</TD><TD align=center>"
    Response.Write rstemp.Fields(1)
    Response.Write "</TD>"
    for i=2 to rstemp.Fields.count-1
        Response.Write "<TD>"
		    Response.Write rstemp.Fields(i)
		    Response.Write "</TD>"
    next		
		Response.Write "</TR>"
    n=n+1
		rstemp.MoveNext	
	LOOP
	rstemp.Close
  cn.Close
  set rstemp=nothing
  set cn=nothing
%>
</TABLE>
</CENTER>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -