www.gusucode.com > ASP+ACCESS在线人才招聘网(源代码+论文) > ASP+ACCESS在线人才招聘网(源代码+论文)\admin\system_user_add.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 login=Replace(Request("login"),"'","''") passwd=Replace(Request("passwd"),"'","''") rowcount=Request("rowcount") if login="" or passwd="" then result=Server.urlEncode("对不起,帐号或者密码为空,请返回") Response.Redirect"result.asp?result="&result end if Set Rs=Server.CreateObject("Adodb.RecordSet") sql="select * from admin where login='"&login&"'" Rs.Open sql,conn,1,1 if Not Rs.Eof then result=Server.urlEncode("系统里面已经存在该管理员帐号,不能完成操作,请返回") Response.Redirect"result.asp?result="&result else Rs.Close Rs.Open "admin",conn,3,3 Rs.AddNew Rs("login")=login Rs("passwd")=md5(passwd) Rs("ad_level")=1 Rs.Update Rs.MoveLast if not Rs.Eof then user_id=Rs("id") end if Rs.Close '存储用户权限 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 Response.Redirect"system_user_manage.asp" end if end if %>