modi.asp

=== ==ASP销售管理系统

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 1000300	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Customer_ID = request("Customer_ID")
Customer_Name = request("Customer_Name")
State = request("State")
City = request("City")
Address = request("Address")
Zip_Code = request("Zip_Code")
Tel = request("Tel")
Fax = request("Fax")
Email = request("Email")
Homepage = request("Homepage")
Trade_Code = request("Trade_Code")
Description = request("Description")

if not IsNot(Customer_ID,"n") then
	response.write "客户编号丢失"
	response.end
end if
if not IsNot(Customer_Name,"s") then
	response.write "客户名称填写不正确"
	response.end
end if

Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "update Customers set " &_
	" Customer_Name = '" & Customer_Name & "'," &_
	" State = '" & State & "'," &_
	" City = '" & City & "'," &_
	" Address = '" & Address & "'," &_
	" Zip_Code = '" & Zip_Code & "'," &_
	" Tel = '" & Tel & "'," &_
	" Fax = '" & Fax & "'," &_
	" Email = '" & Email & "'," &_
	" Homepage = '" & Homepage & "'," &_
	" Trade_Code = " & Trade_Code & "," &_
	" Description = '" & Description & "'," &_
	" Last_Updated_Employee_ID = " & Session("Employee_ID") &_
	" where Customer_ID = " & Customer_ID
'response.write sql
conn.execute(sql)
conn.close
set conn = nothing


'操作日志
Rec_Content = "修改客户信息"
Command_Line = sql
call Op_Rec(Rec_Content,Command_Line)
%>
客户资料修改成功！