customer_add2.asp

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

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Char.asp"-->
<%
Dim padd,Sql
Dim kehu_id,kename,selkelev,tel,address,mone,lianxi
Dim isdataman

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

kehu_id = Trim(Request.Form("kehu_id"))
kename = Trim(Request.Form("kename"))
selkelev = Trim(Request.Form("selkelev"))
lianxi = Trim(Request.Form("lianxi"))
tel = Trim(Request.Form("tel"))
address = Trim(Request.Form("address"))
mone = HTMLEncode2(Request.Form("mone"))


Set padd = Server.CreateObject("ADODB.RecordSet")
Sql = "Select * From [Customer] Where (ID is null)"
padd.Open Sql,Conn,1,3
padd.addNew
padd("Manage") = adu
padd("Customer_ID") = kehu_id
padd("Customer") = kename
padd("LianXi") = lianxi
padd("Levels") = selkelev
padd("Telphone") = tel
padd("Address") = address
padd("Mone") = mone
padd.Update
padd.Close
Set padd=Nothing
Conn.Close
Set Conn=Nothing

Response.Write "<script language=javascript>alert('客户添加成功!');"
Response.Write "window.document.location.href='Customer_List.asp';</script>"

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