customer_members_new_exe.asp

来自「一个比较完整的企业erp系统」· ASP 代码 · 共 42 行

<!--#include file="../config2.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 2000800	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Project_ID = request("Project_ID")
Contact_Person_ID = request("Contact_Person_ID")
Main_Job = request("Main_Job")
if not IsNot(Project_ID,"n") then
	response.write "项目编号丢失"
	response.end
end if
if not IsNot(Contact_Person_ID,"n") then
	response.write "客户联系人编号丢失"
	response.end
end if


Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "insert into Projects_Customer_Members(Project_ID,Contact_Person_ID,Main_Job,Employee_ID) values(" & Project_ID & "," & Contact_Person_ID & ",'" & Main_Job & "'," & Session("Employee_ID") & ")"
'response.write sql
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>