order_add2.asp

一个做得非常精美的进存销系统,可惜某些功能上做了限制．

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim padd,Sql
Dim order_id,adddate,selkehu,selprona,wuliu,yunfei,message,yudj
Dim isdataman
Dim pr,pr_sl,pr_mon,pr_id,pr_od
Dim i,pro_jg,pro_sl,pro_mone,selsp
Dim spid
DIm pro_na
Dim kh,kh_id,kh_lev,kh_man
DIm kh2,kh2_disc
Dim allmoney
Dim yw,yw_id
Dim flag
flag = flase

isdataman = Manage_Level(adl) 
If isdataman = "业务员" Then


order_id = Trim(Request.Form("order_id"))
adddate = Trim(Request.Form("adddate"))
selkehu = Trim(Request.Form("ke_na"))
yudj = Trim(Request.Form("yudj"))
wuliu = Trim(Request.Form("wuliu"))
yunfei = Trim(Request.Form("yunfei"))

Set kh = Conn.Execute("Select Manage,Customer_ID,Levels From [Customer] Where Customer='"&selkehu&"'")
kh_man = kh(0)
kh_id = kh(1)
kh_lev = kh(2)
kh.Close
Set kh=Nothing

Set yw=Conn.Execute("Select ID From [HQ_User] Where User_Name='"&kh_man&"'")
yw_id = yw(0)
yw.Close
Set yw=Nothing

Set kh2 = Conn.Execute("Select Discount From [Customer_Level] Where Customer_Levels='"&kh_lev&"'")
kh2_disc= kh2(0)
kh2.Close
Set kh2=Nothing

For i=1 to Request.Form("spsl")
 spid = Trim(Request.Form("spid"&i))
 pro_jg = Trim(Request.Form("pro_jg"&i))
       If pro_jg = "" Then pro_jg=0
 pro_sl = Trim(Request.Form("pro_sl"&i))
 pro_mone = Trim(Request.Form("pro_mone"&i))

  Set pr=Conn.Execute("Select Product_ID,ShuLiang,Money,isOrder From [Product] Where Product_ID='"&spid&"'")
  If pr.Eof Then
     Response.Write "<script language=javascript>alert('商品代码为"&spid&"有错,请检查是否存在该商品!');"
     Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
     exit for
  Else
     pr_id = pr(0)
     pr_sl = pr(1)
     pr_mon = pr(2)
     pr_od = pr(3)
  End if
  pr.Close
  Set pr=Nothing
    If Cint(pro_sl) > Cint(pr_sl)-Cint(pr_od) Then
    Response.Write "<script language=javascript>alert('商品代码为"&spid&"的商品库存不足!');"
    Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
    exit for
    Else
      If Cint(pro_jg)>Cint(pr_mon) Then
      Response.Write "<script language=javascript>alert('商品代码为"&spid&"的折扣价大于零售价!');"
      Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
      exit for
      Else
If pro_jg<>"" or pro_sl<>"" or pro_mone<>"" Then
Conn.execute("Insert into Order2(Order_ID,Product_ID,Out_ShuLiang,Discount,Mone) values('"&order_id&"','"&spid&"',"&pro_sl&","&pro_jg&",'"&pro_mone&"')")

Conn.Execute("Update [Product] Set isOrder=isOrder+"&pro_sl&" Where Product_ID='"&spid&"'")
          If pro_jg=0 Then
          allmoney = allmoney + Cint(pr_mon*(kh2_disc/100)*pro_sl)
          Else
          allmoney = allmoney + Cint(pr_mon*pro_jg*pro_sl)
          End if
    flag = true
      End if
    End if
    End if
Next


If flag Then

Conn.Execute("Update [Customer] Set AllMoney=AllMoney+"&allmoney&" Where Customer_ID='"&kh_id&"'")
Conn.Execute("Update [HQ_User] Set Money=Money+"&allmoney&" Where ID="&yw_id)


  Set padd = Server.CreateObject("ADODB.RecordSet")
  Sql = "Select * From [Order] Where (ID is null)"
  padd.Open Sql,Conn,1,3
  padd.addNew
  padd("Order_ID") = order_id
  padd("Out_Time") = adddate
  padd("Manage_ID") = yw_id
  padd("Customer_ID") = kh_id
  padd("DingJin") = yudj
  padd("WuLiu") = wuliu
  padd("YunFei") = yunfei
  padd.Update
  padd.Close
  Set padd=Nothing
  Conn.Close
  Set Conn=Nothing

  Response.Write "<script language=javascript>alert('销售订单添加成功!');"
  Response.Write "window.document.location.href='Order_List.asp';</script>"
End if

Else
  Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
  Response.write "window.document.location.href='Order_List.asp';</script>"
End if
%>