📄 get_set_access.asp

📁 动力商业广告Sql版本全方位的WEB开发学习应用交流共享服务
💻 ASP
字号:
<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="../../inc/verify_user.inc" -->
<!--#include file="../../inc/conn.inc" -->

<%

'===权限校验===
Set rs = Server.CreateObject("ADODB.Recordset")

sql="select global_access from user_info where userid=" + cstr(session("userid"))
rs.open sql,conn,0,1
if instr(rs("global_access"),"E")<>0 then
	result=1
		else
			result=0
end if
rs.close


if result=1 then

'===get_set_global_access===


Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection=conn
cmd.CommandText="get_set_global_access"
cmd.CommandType=&H0004

cmd.Parameters.Append cmd.CreateParameter("@role_userid",3)
cmd.Parameters.Append cmd.CreateParameter("@global_access",200,,255)


global_access_str=""
global_access=split(request("global_access"),",")
for i=0 to UBound(global_access)
	global_access_str=global_access_str+global_access(i)
next
global_access_str="0"+replace(global_access_str," ","")


cmd("@role_userid")=clng(request("userid"))
cmd("@global_access")=global_access_str

cmd.execute

set cmd=nothing





'===get_set_user_role===

Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection=conn
cmd.CommandText="get_set_user_role"
cmd.CommandType=&H0004

cmd.Parameters.Append cmd.CreateParameter("@role_userid",3)
cmd.Parameters.Append cmd.CreateParameter("@group_id",3)
cmd.Parameters.Append cmd.CreateParameter("@role_property",200,,255)

cmd("@role_userid")=clng(request("userid"))



sql="select group_id from group_info order by group_id Desc"
rs.open sql,conn,0,1

do while not rs.eof

	cmd("@group_id")=rs("group_id")
	role_property=""
	role_property_str=""
	role_property=split(request("role_property_"&cstr(rs("group_id"))),",")
	for i=0 to UBound(role_property)
		role_property_str=role_property_str+role_property(i)
	next
	role_property_str=replace(role_property_str," ","")
	
	if role_property_str="" then role_property_str="0"

	cmd("@role_property")=role_property_str
	
	cmd.execute
	
	rs.movenext
	
loop

rs.close
set cmd=nothing


end if


set rs=nothing
conn.close
set conn=nothing




%>



<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../../css/ads.css" type="text/css">
</head>




<body bgcolor="#FFFFFF" text="#000000">
<!--#include file="../../inc/top.inc" -->
<p>&nbsp;</p>
<p>&nbsp;</p>

<table width="486" border="0" cellspacing="1" cellpadding="2">
<tr> 
<td class="px14"> 
<%
if result=1 then
	response.write "<img src=../../images/right.gif width=20 height=17 align=absmiddle> <b>权限设置完成！如果被设置权限的用户已登陆，需重新登陆才生效。</b>"
		else
			response.write "<img src=../../images/wrong.gif width=16 height=17 align=absmiddle> <b>权限不足，无法完成操作！</b>"
end if
%>
</td>
</tr>
</table>
<p>&nbsp;</p>
<p>&nbsp;</p>

<!--#include file="../../inc/bottom.inc" -->

</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -