ku_in2.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim isadmin
Dim padd,Sql
Dim i,selsp,pro_sl,sp_Arr,pro_name
Dim rrs,pro_id
isadmin = Manage_Level(adl)

If isadmin="库管" Then

For i=1 To Request.Form("spsl")
    
    pro_id = Trim(Request.Form("spid"&i))
    pro_sl = Trim(Request.Form("pro_sl"&i))

If pro_id <> "" or pro_sl <> "" Then

Conn.Execute("Insert Into Ku_In (Product,Tui_Shuliang) values('"&pro_id&"',"&pro_sl&")")

Set padd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select ShuLiang From [Product] Where Product_ID='"&pro_id&"'"
padd.Open Sql,Conn,1,3
padd("ShuLiang") = padd("ShuLiang") + pro_sl
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_In.asp';</script>"
Else
   Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
   Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
End if
%>