transfer_exe.asp

来自「=== ==ASP销售管理系统」· ASP 代码 · 共 47 行

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 6000200	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
From_Employee_ID = request("From_Employee_ID")
To_Employee_ID = request("To_Employee_ID")
Check_Employee_ID = request("Check_Employee_ID")
Transfer_Reason = request("Transfer_Reason")
if not IsNot(From_Employee_ID,"n") then
	response.write "移交人编号丢失"
	response.end
end if
if not IsNot(To_Employee_ID,"n") then
	response.write "接交人编号丢失"
	response.end
end if
if not IsNot(Check_Employee_ID,"n") then
	response.write "监交人编号丢失"
	response.end
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "sp_Employee_Transfer " & From_Employee_ID & "," & To_Employee_ID & "," & Check_Employee_ID & ",'" & Transfer_Reason & "'"
'response.write sql
conn.execute(sql)
'更新每个表，将 Employee_ID 字段用 To_Employee_ID 取代 From_Employee_ID
'conn.execute(存储过程名)
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>