📄 vieworderlists.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>
<!-- 显示图书订购清单 -->
<CENTER>
<H3>在线图书销售系统--查看图书订购清单</H3>
<HR>
<% on error resume next
dim orderid(),ordersum(),BookOrderList,idlist,n,booksum,DeleteStr
if session("BookOrderList")<>"" then
   BookOrderList=session("BookOrderList")
   if request("DeleteStr")<>"" then
      '删除订单项目
      BookOrderList=replace(BookOrderList,request("DeleteStr"),"")
      session("BookOrderList")=BookOrderList
      Response.Redirect  "ViewOrderLists.asp"
   end if
   '统计订单项目数量
   n=0
   m=0
   while instr(m+1,BookOrderList,"=")<>0
      n=n+1
      m=instr(m+1,BookOrderList,"=")
   wend
   redim orderid(n)
   redim ordersum(n)
   '获得Session对象中的订购清单
   for i=1 to n
       '获得订购图书编号
       m=instr(1,BookOrderList,"=")       
       orderid(i)=left(BookOrderList,m-1)
       BookOrderList=mid(BookOrderList,m+1)
       idlist=idlist & orderid(i) & ","
       '获得订购图书数量
       m=instr(1,BookOrderList,";")
       ordersum(i)=left(BookOrderList,m-1)
       BookOrderList=mid(BookOrderList,m+1)       
   next
   idlist=left(idlist,len(idlist)-1)
   '建立数据库连接
   Set cn=Server.CreateObject("ADODB.Connection") 
   cn.connectionstring="Provider=SQLOLEDB;UID=sa;pwd=123;" & _
              "database=图书销售;Data Source=(local)"
   cn.Open 
   '创建Recordset对象
   Set rstemp=Server.CreateObject("ADODB.Recordset")
   Set rstemp.ActiveConnection = cn
   rstemp.LockType = 3
   rstemp.PageSize=2
   if request("SaveToDB")="YES" then
      '将图书订购数据存入数据库
      querystr = "select top 1 * from 订购记录"
      rstemp.Open querystr
      for i=1 to n
          rstemp.addnew
          rstemp.fields("book_id")=orderid(i)
          rstemp.fields("book_sum")=ordersum(i)
          rstemp.fields("user_id")=session("userid")
          rstemp.fields("sale_date")=date()
          rstemp.update
      next
      response.write "<div align=center><font color=red>"
      response.write "你的图书订购数据已经提交成功，订购清单已被删除！"
      response.write "</font></div>"
      session("BookOrderList")=""
   else
      '访问数据库获得图书信息   
      querystr = "select book_id,book_name from 图书信息 Where book_id in (" & idlist & ")"
      rstemp.Open querystr
%>
<TABLE CELLPADDING="3" BORDER="0">
	<TR>
		<TD CLASS="header"></TD>    
    <TD CLASS="header"></TD>
		<TD CLASS="header" Align="Center">书名</TD>
    <TD CLASS="header" Align="Center">订购数量</TD>
	</TR>
<% '以表格形式输出图书订购清单
	Do While Not rstemp.eof
    '获得当前编号图书的订阅数量
    for i=1 to n
        if clng(orderid(i))=rstemp.Fields(0).value then exit for
    next
    booksum=ordersum(i)
    DeleteStr=orderid(i)& "=" & ordersum(i) & ";"
		Response.Write "<TR>"
		Response.Write "<TD ALIGN=CENTER>"
%>
	<FORM ACTION="BooksInfoDetail.asp?BookID=<%=rstemp.Fields(0)%>&booksum=<%=booksum%>" METHOD="POST"> 
  		<INPUT TYPE="submit" VALUE="详细信息">
	</FORM>
<%  Response.Write "</TD>"
    Response.Write "<TD ALIGN=CENTER >" 
%>
   	<FORM ACTION="ViewOrderLists.asp?DeleteStr=<%=DeleteStr%>" METHOD="POST">       
       <INPUT TYPE="submit" VALUE="删除">
    </FORM>
<% 	Response.Write "</TD><TD>"
		Response.Write rstemp.Fields(1)
    Response.Write "</TD><TD>"    
    Response.Write booksum
    Response.Write "</TD>"    
		Response.Write "</TR>"
		rstemp.MoveNext	
	LOOP %>
  <TR><TD colspan="4" align="center">
  <FORM ACTION="ViewOrderLists.asp?SaveToDB=YES" METHOD="POST">       
       <INPUT TYPE="submit" VALUE="提交图书订阅数据">
  </FORM>
  </TD></TR>
<% 
  rstemp.Close
  cn.Close
  set rstemp=nothing
  set cn=nothing
  Response.flush
%>
</TABLE>
</CENTER>
<% end if %>
<HR>
<% else %>
<DIV align="center">无图书订阅记录！</DIV>
<% end if %>
<DIV align="center"><A HREF="booksaling.htm">返回首页</A></DIV>
</BODY>
</HTML>
⌨️ 快捷键说明

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