contact_person_modi_exe.asp

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

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 1001800	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Contact_Person_ID = request("Contact_Person_ID")
Contact_Person_Name = request("Contact_Person_Name")
Gender = request("Gender")
Dept = request("Dept")
Rank = request("Rank")
Tel = request("Tel")
Fax = request("Fax")
Mobile = request("Mobile")
Email = request("Email")
if not IsNot(Contact_Person_ID,"n") then
	response.write "客户联系人编号丢失"
	response.end
end if
if not IsNot(Contact_Person_Name,"s") then
	response.write "客户联系人姓名填写不正确"
	response.end
end if
if not IsNot(Gender,"n") then
	response.write "客户联系人性别填写不正确"
	response.end
end if
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr
'修改客户采购记录
sql = "sp_Customer_Modi_Contact_Person " & Contact_Person_ID & ",'" & Contact_Person_Name & "'," & Gender & ",'" & Dept & "','" & Rank & "','" & Tel & "','" & Fax & "','" & Mobile & "','" & Email & "'"
conn.execute(sql)
conn.close
set conn = nothing

'操作日志
Rec_Content = "修改客户联系人"
Command_Line = sql
call Op_Rec(Rec_Content,Command_Line)
%>
客户联系人修改成功！
<script language="JavaScript" type="text/javascript">
	parent.main.location.reload();
</script>