caigou_buadd.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim bianhao,pro_id,danjia
Dim isdataman
Dim i
Dim padd,Sql 
Dim cg,cg_id
isdataman = Manage_Level(adl) 
If isdataman = "采购员" Then

Set cg = Conn.Execute("Select ID From [HQ_User] Where User_Name='"&adu&"'")
cg_id = cg(0)
cg.Close
Set cg=Nothing

bianhao = Request.QueryString("id")

For i=1 to Request.Form("u")
 pro_id = Trim(Request.Form("pro_id"&i))
 danjia = Trim(Request.Form("danjia"&i))

  Set padd = Server.CreateObject("ADODB.RecordSet")
  Sql = "Select DanJia From [BuChuang] Where Product_ID='"&pro_id&"' and Bu_ID='"&bianhao&"'"
  padd.Open Sql,Conn,1,3
  padd("DanJia") = danjia
  padd.Update
  padd.Close
  Set padd=Nothing

Next
  Conn.Close
  Set Conn=Nothing

  Response.write "<script language='javascript'>alert('仓采购单添加成功!');" & chr(13)
  Response.write "window.document.location.href='CaiGou_BuList.asp';</script>"

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