product_add2.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Char.asp"-->
<%
Dim padd,Sql
Dim product_id,pname,adddate,guige,money
Dim shuliang,minn,from,types,message
Dim isdataman
Dim se

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

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"))
from = Trim(Request.Form("from"))
types = Trim(Request.Form("type"))
message =  HTMLEncode2(Request.Form("message"))

Set se=Conn.Execute("Select * From [Product] 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 [Product] Where (ID is null)"
padd.Open Sql,Conn,1,3
padd.addNew
padd("Product_ID") = product_id
padd("Name") = pname
padd("InTime") = adddate
padd("GuiGe") = guige
padd("ShuLiang") = shuliang
If minn<>"" Then padd("Min") = minn
padd("Money") = money
padd("Froms") = from
padd("Type") = types
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>"

End if
se.Close
Set se=Nothing

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