xx_save.asp

生成防伪码,并导出为EXCEL表格,可查寻

<!--#include file=conn.asp-->
<!--#include file=function.asp-->
<!--#include file=cookies.asp-->
<%

action=request("action")
If action="GoodsUnit" then
Server.ScriptTimeout=99999999
listnum=request.form("listnum")
listuser=request.form("listuser")
listmeno=request.form("listmeno")
username=session("administrator")
id2=request("id2")
if request("id")=0 then
   sql1="insert into XX_GoodsUnit(listnum,listuser,username,listmeno) values ("&listnum&",'"&listuser&"','"&username&"','"&listmeno&"')"
    sql2="Update XX_Config set usernums=usernums+1 where id="&request("id2")&""   
   conn.ExeCute(sql1)
   conn.ExeCute(sql2)
   else
   sql="Update XX_GoodsUnit set listnum="&listnum&",listuser='"&listuser&"',listmeno='"&listmeno&"' where id="&request("id")&""
   conn.ExeCute(sql)   
   end if
   
    response.write  "<script language=javascript>alert('操作成功!');window.location.href='XX_AddGoodsUnit.asp';</script>"
  response.End
End if
If action="AddIndenture" then
listnum=request("listnum")
Spnum=request("Spnum")
Spname=request("Spname")
unit=request("unit")
Spsl=request("Spsl")
SPsj=request("SPsj")
Spjg=request("Spjg")
Spys=request("Spys")
Spgg=request("Spgg")
SPYB=request("SPYB")
meno=request("meno")
zsk=request("zsk")
sql="insert into XX_shoplist(listnum,Spnum,Spname,Spsl,Spjg,Spys,Spgg,SPYB,SPsj,meno,zsk,unit) values ('"&listnum&"','"&Spnum&"','"&Spname&"','"&Spsl&"','"&Spjg&"','"&Spys&"','"&Spgg&"','"&SPYB&"','"&SPsj&"','"&meno&"','"&zsk&"','"&unit&"')"

conn.ExeCute(sql)
    response.write  "<script language=javascript>alert('添加成功!继续添加');window.location.href='XX_AddIndenture.asp?listnum="&listnum&"';</script>"
  response.End
end if
If action="PrintConfig" then
Server.ScriptTimeout=99999999
DeliveryNum=request.form("DeliveryNum")
DeliveryLen=request.form("DeliveryLen")
if DeliveryNum="" then
 sql="Update xx_config set DeliveryLen="&DeliveryLen&" where start=0"
else
   sql="Update xx_config set DeliveryNum="&DeliveryNum&",ones=1,DeliveryLen="&DeliveryLen&",usernums=0 where start=0"
   end if
   conn.ExeCute(sql)
    response.write  "<script language=javascript>alert('操作成功!');window.location.href='xx_PrintConfig.asp';</script>"
  response.End
End if
If action="ShopUnit" then
Server.ScriptTimeout=99999999
ShopUnit=request.form("ShopUnit")
if request("id")=0 then
   sql="insert into xx_ShopUnit(ShopUnit) values ('"&ShopUnit&"')"
   else
   sql="Update xx_ShopUnit set ShopUnit='"&ShopUnit&"' where id="&request("id")&""   
   end if
   conn.ExeCute(sql)
    response.write  "<script language=javascript>alert('操作成功!');window.location.href='xx_AddShopUnit.asp';</script>"
  response.End
End if

If action="shopdel" then
Server.ScriptTimeout=99999999
   sql="delete from xx_ShopUnit where id="&request("id")&""  
   conn.ExeCute(sql)
    response.write  "<script language=javascript>alert('删除成功!');window.location.href='xx_AddShopUnit.asp';</script>"
  response.End
End if
If action="DelGoods" then
Server.ScriptTimeout=99999999
sql1="delete from XX_shoplist where listnum="&conn.execute("select top 1 listnum from XX_GoodsUnit where id="&request("id")&"")(0)&""   
   sql2="delete from XX_GoodsUnit where id="&request("id")&""        
   conn.ExeCute(sql1)
     conn.ExeCute(sql2)
    response.write  "<script language=javascript>alert('删除成功!');window.location.href='XX_AddGoodsUnit.asp';</script>"
  response.End
End if

If action="DelPros" then
Server.ScriptTimeout=99999999
   sql="delete from XX_Products where id="&request("id")&""  
   conn.ExeCute(sql)
    response.write  "<script language=javascript>alert('删除成功!');window.location.href='XX_ProList.asp';</script>"
  response.End
End if

if request("action")="ManPro" then 
Dim padd,Sql
Dim product_id,pname,Attribute,types,guige
Dim se
id = cint(Request.Form("id"))
product_id = Trim(Request.Form("product_id"))
pname = Trim(Request.Form("pname"))
Attribute = Trim(Request.Form("sunit"))
types = cint(Request.Form("type"))
GuiGe = Trim(Request.Form("spgg"))
if request("id")<>"" then
 sql="Update XX_Products set Product_ID='"&Product_ID&"',ShopName='"&pname&"',ShopUnit='"&Attribute&"',types="&types&",GuiGe='"&GuiGe&"' where id="&request("id")&""  
conn.ExeCute(sql)
response.write  "<script language=javascript>alert('操作成功!');window.location.href='XX_ProList.asp';</script>"
else
Set se=Conn.Execute("Select * From [XX_Products] Where Product_ID='"&product_id&"'")
If Not se.Eof Then
Response.Write "<script language=javascript>alert('该商品代码已存在!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"
Else
 Set padd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [XX_Products] Where (ID is null)"
padd.Open Sql,Conn,1,3
padd.addNew
padd("Product_ID") = product_id
padd("ShopName") = pname
padd("ShopUnit") = Attribute
padd("types") = types
padd("GuiGe") = GuiGe
padd.Update
padd.Close
Set padd=Nothing
Response.Write "<script language=javascript>alert('商品添加成功!');"
Response.Write "window.document.location.href='XX_ProList.asp';</script>"
End if
se.Close
Set se=Nothing
end if
end if
%>