product_edit2.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Char.asp"-->
<%
Dim padd,Sql
Dim product_id,pname,adddate,guige,money,minn,shuliang,froms,ptype,message,hide_id
Dim id

Dim isdataman
isdataman = Manage_Level(adl) 
If isdataman = "财务员" Then

id = Request("id")
hide_id = Trim(Request.Form("hide_id"))
product_id = Trim(Request.Form("product_id"))
pname = Trim(Request.Form("pname"))
adddate = Trim(Request.Form("adddate"))
guige = Trim(Request.Form("guige"))
money = Trim(Request.Form("money"))
shuliang = Trim(Request.Form("shuliang"))
minn = Trim(Request.Form("min"))
froms = Trim(Request.Form("from"))
ptype = Trim(Request.Form("type"))
message = HTMLEncode2(Request.Form("message"))

'COnn.Execute("Update [Order] Set Product_ID='"&hide_id&"' Where Product_ID='"&hide_id&"'")

Set padd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [Product] Where ID="&id
padd.Open Sql,Conn,1,3
padd("Product_ID") = product_id
padd("Name") = pname
padd("InTime") = adddate
padd("GuiGe") = guige
padd("Money") = money
If Manage_Level(adl)="管理员" Then padd("ShuLiang") = shuliang
If minn<>"" Then 
padd("Min") = minn
Else
padd("Min") = null
End if
padd("Froms") = froms
padd("Type") = ptype
padd("Mone") = message
padd.Update
padd.Close
Set padd=Nothing
Conn.Close
Set Conn=Nothing

Response.Write "<script language=javascript>alert('商品修改成功!');"
Response.Write "window.document.location.href='Product_List.asp';</script>"

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