adddmts.asp

创建和运行动态、交互的Web服务器应用程序

<!--#include file="conn.asp"-->
<%
dim dt,dtindex,action,index,bkcount,dtzk,ts_bkcount,liushuihao
 
    dt     = Session("mydt") 
    dtindex= session("dtindex")

    action = request.QueryString("action")

select case action
       '//按订单找图书
       case "addhao"

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

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

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

     liushuihao = request("liushuihao")
  if liushuihao = "" then liushuihao = request.QueryString("liushuihao")

set rs=server.CreateObject("adodb.recordset")
    rs.open "SELECT shop_books.bookid,shop_books.bookname,shop_books.shichangjia,shop_dxaction.xbkcount,shop_dxaction.dxdingdan,shop_dxaction.username,shop_dxaction.dxzk FROM shop_books INNER JOIN shop_dxaction ON shop_books.bookid = shop_dxaction.bookid where shop_dxaction.dxdingdan='"&liushuihao&"' ",conn,1,1
    '//没有找到图书
if  rs.eof and rs.bof then
    response.write "<script language=javascript>alert('没有找到图书，请正确输入凭证号！');window.location.reload('showdmts.asp')</script>"
    response.end
else
    dt(0,0) = rs("dxdingdan")
    dt(0,1) = rs("username")
    dtindex = dtindex+1

    do while not rs.eof

       dt(dtindex,0) = rs("bookid")
       dt(dtindex,1) = rs("bookname")
       dt(dtindex,2) = rs("shichangjia")
       dt(dtindex,3) = rs("xbkcount")
       dt(dtindex,4) = 0
       dt(dtindex,5) = rs("dxzk")
       dtindex       = dtindex+1

     rs.movenext
     loop

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

response.redirect"showdmts.asp"

end if
 
        '//修改数据
        case "adchange"

        index     = request.form("index")
        bkcount   = request.form("bkcount")
        ts_bkcount= request.form("ts_bkcount")
        dtzk      = request.form("dtzk")
  
if cint(ts_bkcount)>cint(bkcount) then
   response.write "<script language=javascript>alert('你的退书数超过了该书的单笔销售量！');window.location.reload('showdmts.asp')</script>"
   response.End
else
   dt(index,4)= ts_bkcount
end if

Session("mydt")= dt

response.redirect"showdmts.asp"
        
        '//删除数据
        case "addelet"

        dt    = Session("mydt")
        index = request("index")

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

Session("mydt")= dt
response.redirect"showdmts.asp"

end select
%>