addjshk.asp

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

<!--#include file="conn.asp"-->
<%
dim s_gyid,hk,hkindex
 
    hk     = Session("myhk") 
    hkindex= session("hkindex")

    action = request.QueryString("action")

select case action
       case "addgy"

if request.QueryString("gyid")="" then
   s_gyid=request("gyid")
else 
   s_gyid=request.QueryString("gyid")
end if

set rs=server.CreateObject("adodb.recordset")
    rs.open "select * from shop_gongyi where gyid="&s_gyid,conn,1,3

    hk(0,0) = s_gyid
    hk(0,1) = rs("zk")

    hkindex = hkindex+1

set rs_hk=server.CreateObject("adodb.recordset")
    rs_hk.open "SELECT shop_books.bookid,shop_books.bookname,shop_books.shichangjia,shop_cgaction.cgid,shop_cgaction.cgzk,shop_cgaction.xiaoshoufangshi,shop_cgaction.yhkcount, Sum(shop_cgaction.tscount)*shop_books.shichangjia*shop_cgaction.cgzk AS Sum_sumts, Sum(shop_cgaction.kccount)*shop_books.shichangjia*shop_cgaction.cgzk AS Sum_sumkc FROM shop_books INNER JOIN shop_cgaction ON shop_books.bookid = shop_cgaction.bookid WHERE shop_cgaction.gyid="&s_gyid&" and shop_cgaction.xiaoshoufangshi=2 and shop_cgaction.yhkcount<>0 GROUP BY shop_books.bookid, shop_books.bookname, shop_books.shichangjia, shop_cgaction.cgid, shop_cgaction.cgzk, shop_cgaction.xiaoshoufangshi, shop_cgaction.yhkcount, shop_cgaction.tscount, shop_cgaction.kccount",conn,1,1

    if rs_hk.bof and rs_hk.eof then
       response.write "<script language=javascript>alert('该供货商目前还没有要付的进书款！');window.location.reload('showjshk.asp')</script>"
       response.End
    else                      
       do while not rs_hk.eof 

          hk(hkindex,0)=rs_hk("bookid")
          hk(hkindex,1)=rs_hk("cgid")
          hk(hkindex,2)=rs_hk("bookname")
          hk(hkindex,3)=rs_hk("shichangjia")
          hk(hkindex,4)=rs_hk("yhkcount")
          hk(hkindex,5)=rs_hk("yhkcount")*rs_hk("shichangjia")*hk(0,1)

          hkindex      =hkindex+1

       rs_hk.movenext
       loop

       Session("myhk") =hk
       session("hkindex")=hkindex

       response.redirect"showjshk.asp?action=gylist"
    end if      
          
       '//修改数据
       case "adchange"

       index      = request.form("index")
       yhkcount   = request.form("yhkcount")
       b_yhkcount = request.form("b_yhkcount")

       if yhkcount>b_yhkcount then 
          hk(index,4)=b_yhkcount 
       else
          hk(index,4)= yhkcount
       end if

       Session("myhk")= hk
       response.redirect"showjshk.asp?action=gylist"
      
        
       '//删除数据
       case "addelet"

       hk   = Session("myhk")
       index= request("index")

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

       Session("myhk")= hk
       response.redirect"showjshk.asp?action=gylist"
end select
%>