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>