adddmxs.asp

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

<!--#include file="conn.asp"-->
<%
dim dxid,dx,dxindex,user_name
 
    dx      = Session("mydx") 
    dxindex = session("dxindex")

    action    = trim(request("action"))
    user_name = trim(request("user_name"))

 if action    = "" then action   = request.QueryString("action")
 if user_name = "" then user_name= request.QueryString("user_name")
 
select case action
 
       '//增加数据
       case "addbk"

       dim bookname,isbn,txm

           bookname=request("bookname")
           isbn    =request("isbn")
           txm     =request("txm")

       if bookname="" then bookname=request.QueryString("bookname")
       if isbn=""     then isbn    =request.QueryString("isbn")
       if txm=""      then txm     =request.QueryString("txm")

       set rs=server.createobject("adodb.recordset")

       if bookname="" and isbn="" and txm="" then 
          response.write "<script language=javascript>alert('您没有选择图书检索条件，请选择检索项！');window.location.reload('showdmxs.asp')</script>"
         response.end
       end if
       if (bookname<>"" and isbn<>"" and txm<>"") or (isbn<>"" and txm<>"") or (bookname<>"" and isbn<>"") or (bookname<>"" and txm<>"") then 
          response.write "<script language=javascript>alert('检索条件不能选多项，请选单个！');window.location.reload('showdmxs.asp')</script>"
          response.end
       else
          if txm<>""      then  rs.open "select * from shop_books where booktxm="&txm,conn,1,1
          if bookname<>"" then  rs.open "select * from shop_books where bookname like '%"&bookname&"%' ",conn,1,1
          if isbn<>""     then  rs.open "select * from shop_books where isbn='"&isbn&"'",conn,1,1
          '//没有找到图书
          if rs.eof and rs.bof then
             response.write "<script language=javascript>alert('没有找到该图书，请检查输入是否正确！');window.location.reload('showdmxs.asp')</script>"
             response.end
          else
             '//找到了图书
             bookid          = rs("bookid")
             bookname	     = rs("bookname")
             bkcount         = 1
             shichangjia     = rs("shichangjia")
             dxzk            = 1.00

          if bkcount <>"" then
             bkcount=Cint(bkcount)

             '//检查数组
             for i=1 to dxindex
             '//是否重复
	         if bookid=dx(i,0) then
                    dx(i,2)=dx(i,2)+bkcount

                    Session("mydx")   =  dx
                    dxindex           =  dxindex
                    session("dxindex")=  dxindex

                    response.redirect "showdmxs.asp"
                 end if
              next
              '//不重复
                 dx(dxindex,0)=bookid
                 dx(dxindex,1)=bookname
                 dx(dxindex,2)=bkcount
                 dx(dxindex,3)=shichangjia
                 dx(dxindex,4)=dxzk  
           
                 Session("mydx")   =dx
                 dxindex           =dxindex+1
                 session("dxindex")=dxindex
                 response.redirect "showdmxs.asp"
             else
	         response.write "<script language=javascript>alert('你没有选择图书数量！');window.location.reload('javascript:window.close()')</script>"
                 response.End
             end if
          end if
       end if
 
       '//修改数据
       case "adchange"
       index   = request.form("index")
       bkcount = request.form("bkcount")
       dxzk    = request.form("dxzk")

       if dxzk>1 then
          response.write "<script language=javascript>alert('折扣不能大于1！');window.location.reload('showdmxs.asp')</script>"
          response.End
       else
          dx(index,4)= dxzk
       end if

       dx(index,2)= bkcount
       Session("mydx")= dx
       response.redirect"showdmxs.asp"
        
       '//删除数据
       case "addelet"
       dx= Session("mydx")

       index= request("index")
       for i=0 to 4
	   dx(index,i)="0"
       next
       Session("mydx")= dx
       response.redirect"showdmxs.asp"
end select
%>