kuguan_bupro2.asp

have playing search print and many very good contcent

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<%
Dim bianhao,spid,pro_jg,pro_sl,pro_mone
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 = Trim(Request.Form("bianhao"))

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

  Set padd = Server.CreateObject("ADODB.RecordSet")
  Sql = "Select * From [BuChuang] Where (ID is null)"
  padd.Open Sql,Conn,1,3
  padd.addNew
  padd("KuGuan") = cg_id
  padd("Bu_ID") = bianhao
  padd("Product_ID") = spid
  padd("Shuliang") = pro_sl
  padd("Mone") = pro_mone
  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='KuGuan_BuPro.asp';</script>"

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