www.gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\admin\system_user_update_todata.asp

    <!--#include file="../inc/conn.asp"-->
<!--#include file="../MD5/md5.asp"-->
<!--#include file="session.asp"-->
<%if session("ad_level")<>0 then
     result=Server.urlEncode("对不起,你不是超级管理员,你没有权限完成此操作")
	 Response.Redirect"result.asp?result="&result&"&gopage=default.asp"
   else
    user_id=Request("user_id")
	rowcount=Request("rowcount")
    Set Rs=Server.CreateObject("Adodb.RecordSet")
	'存储用户权限
	 sql="delete from admin_detail where user_id="&user_id
	 'Response.Write sql
	 'Response.End
	 conn.Execute(sql)
	  Rs.Open "admin_detail",conn,3,3
	  if rowcount="" then
	   result=Server.urlEncode("对不起,意外错误,请返回")
	   Response.Redirect"result.asp?result="&result
	  end if
	  for j=1 to rowcount
	   power_id=Request("checkbox"&j)
	   if power_id<>"" then
        Rs.AddNew
		Rs("user_id")=user_id
		Rs("power_id")=power_id
	    Rs.Update
	   end if
	   Next
	  Rs.Close
	  Set Rs=nothing
	  Set conn=nothing
	  result=Server.urlEncode("成功设置该用户权限。")
	  Response.Redirect"result.asp?result="&result&"&gopage=system_user_manage.asp"
 end if 
	%>
<html></html>