dtlist.asp

来自「创建和运行动态、交互的Web服务器应用程序」· ASP 代码 · 共 129 行

ASP
129 行
字号 
<!--#include file="conn.asp"-->
<html>
<head>
<title><%=webname%>--图书退书小票单</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css2.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
dim action,shijian,dtdingdan,dt,dtindex,bookid,bookname,shichangjia,bkcount,ts_bkcount,dtzk,rs_t,rs_x,i,j,rs_list

    action = request.QueryString("action")
    
    shijian = now()
    dtdingdan = "At"&year(shijian)&month(shijian)&day(shijian)&hour(shijian)&minute(shijian)&second(shijian)

    dt      = Session("mydt") 
    dtindex = session("dtindex")



for i=1 to dtindex-1

    bookid      =dt(i,0)   
    bookname    =dt(i,1)
    shichangjia =dt(i,2)
    bkcount     =dt(i,3)
    ts_bkcount  =dt(i,4)
    dtzk        =dt(i,5) 

 if dt(i,4)<>0 then

set rs_t=server.CreateObject("adodb.recordset")
    rs_t.open "select * from shop_dtaction",conn,1,3

    rs_t.addnew
    rs_t("dtdingdan")  = dtdingdan
    rs_t("dxdingdan")  = dt(0,0)
    rs_t("username")   = dt(0,1)
    rs_t("bookid")     = bookid
    rs_t("tbkcount")   = -ts_bkcount
    rs_t("dtmy")       = shichangjia*(-ts_bkcount)
    rs_t("dtzk")       = dtzk 
    rs_t("dtsy")       = shichangjia*(-ts_bkcount)*dtzk
    rs_t("dtactiondate") = date
    rs_t.update
    
set rs_x=server.CreateObject("adodb.recordset")
    rs_x.open "SELECT * from shop_dxaction where dxdingdan='"&dt(0,0)&"' and bookid="&bookid,conn,1,3

    rs_x("xbkcount") = rs_x("xbkcount")-ts_bkcount
    rs_x("dxmy")     = formatnumber( (rs_x("dxmy")-(shichangjia*ts_bkcount)),2)
    rs_x("dxsy")     = formatnumber( (rs_x("dxsy")-(shichangjia*ts_bkcount*dtzk)),2)
    rs_x.update

    conn.execute "delete from shop_dxaction where xbkcount=0" 
end if

next

for i=0 to dtindex 
    for j=0 to 5
    dt(i,j)=""
    next
next

Session("mydt")=dt 
session("dtindex")=0

'//显示
set rs_list=server.CreateObject("adodb.recordset")
    rs_list.open "select shop_books.bookid,shop_books.bookname,shop_books.isbn,shop_books.shichangjia,shop_dtaction.username,shop_dtaction.dtdingdan,shop_dtaction.dxdingdan,shop_dtaction.tbkcount,shop_dtaction.dtsy,shop_dtaction.dtactiondate FROM shop_dtaction INNER JOIN shop_books ON shop_dtaction.bookid = shop_books.bookid where shop_dtaction.dtdingdan='"&dtdingdan&"' ",conn,1,1
%>
<table width="90%" height="450" border="0"  cellpadding="0" cellspacing="0">
   <tr><td><br>
       <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr><td height=5></td></tr> 
          <tr>
             <td align="center" colspan="4"><font color=blue size=3><b><%=webname%>图书退书小票单</b></font></td>
          </tr>
          <tr><td colspan=4 align="center"><hr noshade color=#cccccc size=1></td></tr>
          <tr> 
             <td STYLE='PADDING-LEFT: 30px'>日期：  <font color=#ff3300><%=rs_list("dtactiondate")%></font></td>
             <td STYLE='PADDING-LEFT: 30px'>退书号：<font color=#ff3300><%=rs_list("dtdingdan")   %></font></td>
             <td STYLE='PADDING-LEFT: 30px'>会员号：<font color=#ff3300><%=rs_list("username")    %></font></td>
             <td STYLE='PADDING-LEFT: 30px'>收银员：<font color=#ff3300><%=session("admin")  %></font></td>
          </tr>
          <tr><td height=5></td></tr> 
          </tr> 
       </table>

       <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#cccccc">
          <tr>
             <td width="37%" bgcolor="#ece9d8" align="center">书名</td>
             <td width="8%"  bgcolor="#ece9d8" align="center">定价</td>
             <td width="10%" bgcolor="#ece9d8" align="center">退书数</td>
             <td width="12%" bgcolor="#ece9d8" align="center">金额</td>
          </tr>
          <%do while not rs_list.eof%> 
          <tr>
             <td width="37%" bgcolor="#ffffff" align="center"><%=rs_list("bookname")%></td>
             <td width="8%"  bgcolor="#ffffff" align="center"><%=formatnumber(rs_list("shichangjia"))%></td>
             <td width="10%" bgcolor="#ffffff" align="center"><%=rs_list("tbkcount")%></td>
             <td width="12%" bgcolor="#ffffff" align="center"><%=formatnumber(rs_list("dtsy"),2)%></td>
            <%
              total1 = total1+rs_list("tbkcount")
              total2 = total2+rs_list("dtsy")
             %>           
          </tr> 
            <%
          rs_list.movenext
             loop
          rs_list.movefirst
            %>
          </tr>
       </table>
       <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr height=40> 
             <td width="15%" align="right">售书流水号&nbsp;</td><td><font color="#FF0000"><%=rs_list("dxdingdan")%></font></td>
             <td align="right">总退数量&nbsp;  </td><td><font color="#FF0000"><%=total1%></font>&nbsp;册</td>
             <td align="right">总退书金额&nbsp;</td><td><font color="#FF0000"><%=formatnumber(total2,2)%></font>&nbsp;元</td>
          </tr>
      </table>

    </tr>
</table>
</body>
</html>

dtlist.asp - 源码说明

本页面展示了「创建和运行动态、交互的Web服务器应用程序」中的 dtlist.asp 源码文件，采用 ASP 编程语言编写，共 129 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

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

⌨️ 快捷键说明

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