del_yes_no.asp

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

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 5000400	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Employee_ID = request("Employee_ID")
Available = request("Available")
if not IsNot(Employee_ID,"n") then
	response.write "员工编号丢失"
	response.end
end if
if Available <> 1 and Available <> 0 then Available = 1
if Employee_ID = 1 then
	response.write "系统管理员帐号不能删除"
	response.end
end if

Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
sql = "sp_Employee_Modi_Available " & Employee_ID & "," &  Available
'response.write sql
conn.execute(sql)
conn.close
set conn = nothing

if Available then
	msg = "取消删除员工"
else
	msg = "删除员工"
end if

'操作日志
Rec_Content = "改变员工删除状态"
Command_Line = sql
call Op_Rec(Rec_Content,Command_Line)
%>
成功<%= msg %>！
<script language="JavaScript" type="text/javascript">
	parent.main.location.reload();
</script>