order_huiadd2.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim padd,Sql
Dim order_id,huikuan,feiyong,mone,havehk
Dim isdataman

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

order_id = Trim(Request.Form("order_id"))
huikuan = Cint(Request.Form("huikuan"))
feiyong = Trim(Request.Form("feiyong"))
mone = Trim(Request.Form("mone"))
havehk = Trim(Request.Form("havehk"))
    
  If Clng(huikuan) > Clng(havehk) Then
Response.write "<script language='javascript'>alert('回款数目不能超过应收账款!');" & chr(13)
Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
  Else
Conn.Execute("Update [Order] Set HuiKuan=HuiKuan+"&huikuan&" Where Order_ID='"&order_id&"'")

Set padd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [OrderHui] Where (ID is null)"
padd.Open Sql,Conn,1,3
padd.addNew
padd("Order_ID") = order_id
padd("HuiKuan") = huikuan
padd("FeiYong") = feiyong
padd("Mone") = mone
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_HuiAdd.asp';</script>"
  End if
Else
  Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
  Response.write "window.document.location.href='Order_HuiAdd.asp';</script>"
End if
%>