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 
	%>