admin_user.asp

这个系统是企业管理系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>

<!--#include file="Check_Sql123.asp" -->
<!--#include file="jm5.asp"-->

<!--#include file="admin_qx.asp" -->
<% call isgly_sys() %>
<!--#include file="conn_db123.asp" -->
<!--#include file="inc/Config_zd.asp"-->

<%
operate=trim(request("operate"))
isadd=trim(request("isadd"))

by=trim(request("by"))
'----------------
tiaojianclose=trim(request("tiaojianclose")) '显示项目开关
if tiaojianclose<>""then
session("tiaojianclose")=tiaojianclose
else
if session("tiaojianclose")=""then
session("tiaojianclose")="openlist"
end if
end if
'---------------------------------
if operate="delone"then

del_id=trim(request("del_id"))
'DEL ONE---------------
if del_id<>""then
	set rs_delone=server.createobject("adodb.recordset")
             sql_delone="select admin_id,admin_shenfen from admin_123 where admin_id=" & del_id
				 rs_delone.open sql_delone,conn,1,2
				  if rs_delone.eof then
 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
  response.end
   end if
   '-------
     if rs_delone("admin_shenfen")="0" then
	  set rschk1=server.createobject("adodb.recordset")
             sqlchk1="select admin_id from admin_123 where admin_shenfen='0'"
				 rschk1.open sqlchk1,conn,1,2
				 if rschk1.recordcount<2 then
 	  response.write "<script language=JavaScript>{window.alert('警告：这是系统所剩的唯一的一个“系统管理员”，“系统管理员”至少得保留一个，不得删除！\n若要删除，您只有再新添加一个“系统管理员”后，才可以删除当前的“系统管理员”\n   　　　　　　　　　请按“确定”返回!');window.history.go(-1);}</script>"
  response.end
              end if
			  	 rschk1.close
			set rschk1=nothing
      end if
	'-------
				 rs_delone.delete
				 rs_delone.close
			set rs_delone=nothing	
			
			response.Write("<script>alert('成功删除，请按“确定”返回!！');location.href='"&Request.ServerVariables("HTTP_REFERER")&"';</script>")
     response.end
 end if 
 
end if 
'----------DEL SELECT　批量删除-------
 if operate="deletselforever" then
 seljgid=trim(Request("seljgid"))'flName是多选框的名称

	 if seljgid="" then
		 		response.write "<script language=JavaScript>{window.alert('错误提示：您必须选择一条以上记录！!!');window.history.go(-1);}</script>"
				  response.end
end if
    if seljgid<>"" then
        seljgid=split(seljgid,",")
		 for i=0 to ubound(seljgid) 
	   set rsimg=server.createobject("adodb.recordset")
	
			    sqldelimg="select admin_id,admin_shenfen from admin_123 where admin_id=" & seljgid(i)

	
		rsimg.open sqldelimg,conn,1,3
		 if rsimg.eof then

 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在或已被删除的记录，请按“确定”返回后“刷新”页面!');location.href='"&Request.ServerVariables("HTTP_REFERER")&"';}</script>"
  response.end
   end if
   
    '-------
     if rsimg("admin_shenfen")="0" then
	  set rschk1=server.createobject("adodb.recordset")
             sqlchk1="select admin_id from admin_123 where admin_shenfen='0'"
				 rschk1.open sqlchk1,conn,1,2
				 if rschk1.recordcount<2 then
 	  response.write "<script language=JavaScript>{window.alert('警告：这是系统所剩的唯一的一个“系统管理员”，“系统管理员”至少得保留一个，不得删除！\n若要删除，您只有再新添加一个“系统管理员”后，才可以删除当前的“系统管理员”\n   　　　　　　　　　请按“确定”返回!');window.history.go(-1);}</script>"
  response.end
              end if
			  	 rschk1.close
			set rschk1=nothing
      end if
	'-------
   
    rsimg.delete
    	
	next	
			response.Write "<script language=javascript>{window.alert('恭喜您，成功删除所选');location.href='"&Request.ServerVariables("HTTP_REFERER")&"';}</script>"
  end if   
  end if
 
'-----------解锁与锁定----********************************************************************
if operate="islocked_T"then

id_lock=trim(request("id_lock"))
'DEL ONE---------------
if id_lock<>""then
	set rs_lock=server.createobject("adodb.recordset")
             sql_lock="select admin_id,isbelocked from admin_123 where admin_id=" & id_lock
				 rs_lock.open sql_lock,conn,1,2
				  if rs_lock.eof then
 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
  response.end
   end if
                 rs_lock("isbelocked")="T"
   				 rs_lock.update
				 rs_lock.close
			set rs_lock=nothing	
				  response.write "<script language=JavaScript>{window.alert('成功“锁定”，该用户从现在起“被禁止登录”本系统，请按“确定”返回!');window.location.href='?';}</script>"
     response.end
 end if 
 
end if 
'-----------------------------
if operate="islocked_F"then

id_lock=trim(request("id_lock"))
'DEL ONE---------------
if id_lock<>""then
	set rs_lock=server.createobject("adodb.recordset")
             sql_lock="select admin_id,isbelocked from admin_123 where admin_id=" & id_lock
				 rs_lock.open sql_lock,conn,1,2
				  if rs_lock.eof then
 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
  response.end
   end if
                 rs_lock("isbelocked")="F"
   				 rs_lock.update
				 rs_lock.close
			set rs_lock=nothing	
				  response.write "<script language=JavaScript>{window.alert('成功“解除锁定”，该用户从现在起可以“正常登录”本系统，请按“确定”返回!');window.location.href='?';}</script>"
     response.end
 end if 
 
end if 
'----------SELECT　批量-------
 if operate="locksel_T" then
 seljgid=trim(Request("seljgid"))'flName是多选框的名称

	 if seljgid="" then
		 		response.write "<script language=JavaScript>{window.alert('错误提示：您必须选择一条以上记录！!!');window.history.go(-1);}</script>"
				  response.end
end if
    if seljgid<>"" then
        seljgid=split(seljgid,",")
		 for i=0 to ubound(seljgid) 
	   set rsimg=server.createobject("adodb.recordset")
	
			    sqldelimg="select admin_id,isbelocked from admin_123 where admin_id=" & seljgid(i)
		rsimg.open sqldelimg,conn,1,3
   if rsimg.eof then
 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在或已被删除的记录，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
  response.end
   end if
  rsimg("isbelocked")="T"
  rsimg.update
    	
	next	
				  response.write "<script language=JavaScript>{window.alert('成功“锁定”所选用户，所选用户从现在起“被禁止登录”本系统，请按“确定”返回!');location.href='"&Request.ServerVariables("HTTP_REFERER")&"';}</script>"
		 response.end

  end if   
  end if
  '-----------------------------------------------------------
   if operate="locksel_F" then
 seljgid=trim(Request("seljgid"))'flName是多选框的名称

	 if seljgid="" then
		 		response.write "<script language=JavaScript>{window.alert('错误提示：您必须选择一条以上记录！!!');window.history.go(-1);}</script>"
				  response.end
end if
    if seljgid<>"" then
        seljgid=split(seljgid,",")
		 for i=0 to ubound(seljgid) 
	   set rsimg=server.createobject("adodb.recordset")
	
			    sqldelimg="select admin_id,isbelocked from admin_123 where admin_id=" & seljgid(i)
		rsimg.open sqldelimg,conn,1,3
   if rsimg.eof then
 	response.write "<script language=JavaScript>{window.alert('所选记录中有不存在或已被删除的记录，请按“确定”返回后“刷新”页面!');window.history.go(-1);}</script>"
  response.end
   end if
  rsimg("isbelocked")="F"
  rsimg.update
    	
	next	
		response.write "<script language=JavaScript>{window.alert('所选用户 成功“解除锁定”，所选用户从现在起可以“正常登录”本系统，请按“确定”返回!');location.href='"&Request.ServerVariables("HTTP_REFERER")&"';}</script>"
		 response.end
  end if   
  end if
'-----------------------******解锁解锁与锁定结束**********************************************

if isadd="addnew" then

adminlogin=trim(request("adminlogin"))
adminpwd=trim(request("adminpwd"))
adminpwd2=trim(request("adminpwd2"))

adminname=trim(request("adminname"))
admin_shenfen=trim(request("admin_shenfen"))
admv_jb_gj=trim(request("admv_jb_gj"))
adma_jb_gj=trim(request("adma_jb_gj"))
admu_jb_gj=trim(request("admu_jb_gj"))
admd_jbtorecycle_gj=trim(request("admd_jbtorecycle_gj"))
admd_jb_gj=trim(request("admd_jb_gj"))
admc_jb_gj=trim(request("admc_jb_gj"))
admin_zg_check_gj=trim(request("admin_zg_check_gj"))
admin_zg_recycle_gj=trim(request("admin_zg_recycle_gj"))

admin_bumen_big=trim(request("admin_bumen_big"))
admin_bumen_small=trim(request("admin_bumen_small"))
admv_jb_bumen=trim(request("admv_jb_bumen"))
adma_jb_bumen=trim(request("adma_jb_bumen"))
admu_jb_bumen=trim(request("admu_jb_bumen"))
admd_jbtorecycle_bumen=trim(request("admd_jbtorecycle_bumen"))
admd_jb_bumen=trim(request("admd_jb_bumen"))
admin_zg_check_bumen=trim(request("admin_zg_check_bumen"))
admin_zg_recycle_bumen=trim(request("admin_zg_recycle_bumen"))

isbelocked=trim(request("isbelocked"))
remark=trim(request("remark"))

if adminlogin="" then 
	  response.Write "<script language=javascript>{window.alert('报错：用户名不能为空!');window.history.go(-1);}</script>"
	  response.end
end if
 if adminname="" then 
	  response.Write "<script language=javascript>{window.alert('报错：真实姓名不能为空!');window.history.go(-1);}</script>"
	  response.end
end if

 if adminpwd="" and adminpwd2 =""then 
	  response.Write "<script language=javascript>{window.alert('报错：密码不能为空!');window.history.go(-1);}</script>"
	  response.end
end if
 if adminpwd<>adminpwd2 then
	  response.Write "<script language=javascript>{window.alert('报错：两次输入的密码不相同!');window.history.go(-1);}</script>"
	  response.end
end if
	if len(adminpwd)<5 or len(adminpwd)>30 then
response.Write "<script language=JavaScript>{window.alert('报错：密码长度不够，至少要输入五位，最长不超过30位!');window.history.go(-1);}</script>"
response.End()
   end if
 if admin_shenfen="" then 
	  response.Write "<script language=javascript>{window.alert('报错：请选择“访问权限身份级别”!');window.history.go(-1);}</script>"
	  response.end
end if
if admin_shenfen="2" then 
 if admin_bumen_big="" then
	 response.Write "<script language=javascript>{window.alert('报错：添加“部门管理员”，则必须选择所属部门!');window.history.go(-1);}</script>"
	  response.end
end if
end if

'检验用户名不能在系统中重复
sqlbianhao="select admin_id from admin_123 where adminlogin='"&adminlogin&"'"
set rsbianhao=server.CreateObject("adodb.recordset")
rsbianhao.open sqlbianhao,conn,1,2
if not rsbianhao.eof then
response.Write "<script language=javascript>{window.alert('报错：用户名重复！原因是该用户名已经存在于库中，请选择其他用户名！');window.history.go(-1);}</script>"
response.End
end if
rsbianhao.close
set rsbianhao=nothing

sql_add="select * from admin_123 where admin_id is null"
set rs_add=server.CreateObject("adodb.recordset")
rs_add.open sql_add,conn,1,2
rs_add.addnew
rs_add("adminlogin")=adminlogin
rs_add("adminpwd")=MD5(adminpwd)