modi_exe.asp

一个比较完整的企业erp系统

<!--#include file="../config2.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 5000300	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Employee_ID = request("Employee_ID")
Employee_Name = request("Employee_Name")
Gender = request("Gender")
Birthday = request("Birthday")
Branch_ID = request("Branch_ID")
Department_ID = request("Department_ID")
Funcs = request("Funcs")
Tel = request("Tel")
Email = request("Email")
Available = request("Available")
if not IsNot(Employee_ID,"n") then
	response.write "员工编号丢失"
	response.end
end if
'如果是系统管理员，则不删除
if Employee_ID = 1 then Available = 1

Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
'update Employee set Employee_Name = @Employee_Name, Gender = @Gender, Birthday = @Birthday, Branch_ID = @Branch_ID, Department_ID = @Department_ID, Funcs = @Funcs, Tel = @Tel, Email = @Email, Available = @Available where Employee_ID = @Employee_ID
'sql = "sp_Employee_Modi " & Employee_ID & ",'" & Employee_Name & "'," & Gender & ",'" & Birthday & "'," & Branch_ID & "," & Department_ID & ",'" & Funcs & "','" & Tel & "','" & Email & "'," & Available
'response.write sql
sql = "update Employee set Employee_Name = '" & Employee_Name & "', Gender = " & Gender & ", Birthday = '" & Birthday & "', Branch_ID = " & Branch_ID & ", Department_ID = " & Department_ID & ", Funcs = '" & Funcs & "', Tel = '" & Tel & "', Email = '" & Email & "', Available = " & Available & " where Employee_ID = " & Employee_ID
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>