ku_out2.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim isadmin
Dim padd,Sql
Dim i,mone,order_id,shuliang,pro_name,outsl
isadmin = Manage_Level(adl)

If isadmin="管理员" or isadmin="库管" Then

order_id = Trim(Request.Form("order_id"))

For i=1 To Request.Form("jj")
    pro_name = Trim(Request.Form("pro_name"&i))
    shuliang = Trim(Request.Form("shuliang"&i))
    outsl = Trim(Request.Form("outsl"&i))
    mone = Trim(Request.Form("mone"&i))

    If Cint(outsl)>Cint(shuliang) Then
    Response.write "<script language='javascript'>alert('出库数量不能超过出库数量订单数量!');"
    Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
    exit for
    Else

Conn.Execute("Insert Into Ku_Out (Product,Out_Shuliang,Mone) values('"&pro_name&"',"&outsl&",'"&mone&"')")

Conn.Execute("Update [Order2] Set isOut=isOut+"&outsl&" Where Order_ID='"&order_id&"' and Product_ID='"&pro_name&"'")

Set padd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select ShuLiang From [Product] Where Product_ID='"&pro_name&"'"
padd.Open Sql,Conn,1,3
padd("ShuLiang") = padd("ShuLiang") - outsl
padd("isOrder") = padd("isOrder") - outsl
padd.Update
padd.Close
Set padd=Nothing

    End if
Next
   
   Response.write "<script language='javascript'>alert('出库成功!');" & chr(13)
   Response.write "window.document.location.href='Ku_Out.asp';</script>"
Else
   Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
   Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
%>