auth_setup_exe.asp

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

<!--#include file="../config.asp"-->
<!--#include file="../inc/check_login.asp"-->
<!--#include file="../inc/functions.asp"-->
<%
Application_ID = 6000100	'本功能编号，含义请查看编码表
if not CheckAuth(Session("Employee_ID"),Application_ID)	then	'验证权限
	Server.Transfer "../err/un_authorized.htm"
	response.end
end if
%>
<!--**************身份验证部分****************-->
<%
Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open connstr

Employee_ID = request("Employee_ID")
if not IsNot(Employee_ID,"n") then
	response.write "员工编号丢失"
	response.end
end if
Auth_List = request("Auth_List")
'response.write Auth_List & "<hr>"
ary = split(Auth_List,"#",-1,1)
'先清除所有权限
sql = "sp_System_Del_All_Auth " & Employee_ID
conn.execute(sql)
'重新分配权限
for each Application_ID in ary
	sql = "sp_System_Auth_New " & Employee_ID & "," & Application_ID
	if IsNot(Application_ID,"n") then conn.execute(sql)
next
conn.close
set conn = nothing

'操作日志
Rec_Content = "分配权限"
Command_Line = Employee_ID & ":" & Auth_List
call Op_Rec(Rec_Content,Command_Line)
%>
权限分配成功！