数据库编程

开发平台：
ASP/ASPX

SysAdmin_List.asp：源码内容
							<% Option Explicit %>
<!--#include file="../FS_Inc/Const.asp" -->
<!--#include file="../FS_InterFace/MF_Function.asp" -->
<!--#include file="../FS_Inc/Function.asp" -->
<!--#include file="../FS_Inc/Cls_Cache.asp" -->
<!--#include file="../FS_Inc/Func_page.asp" -->
<%
Dim Conn,strShowErr
MF_Default_Conn
MF_Session_TF
if not MF_Check_Pop_TF("MF_Pop") then Err_Show
Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo
int_RPP=20 '设置每页显示数目
int_showNumberLink_=8 '数字导航显示数目
showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
str_nonLinkColor_="#999999" '非热链接颜色
toF_="<font face=webdings title=""首页"">9</font>"  			'首页 
toP10_=" <font face=webdings title=""上十页"">7</font>"			'上十
toP1_=" <font face=webdings title=""上一页"">3</font>"			'上一
toN1_=" <font face=webdings title=""下一页"">4</font>"			'下一
toN10_=" <font face=webdings title=""下十页"">8</font>"			'下十
toL_="<font face=webdings title=""最后一页"">:</font>"
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<HEAD>
<TITLE>FoosunCMS</TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
</HEAD>
<script language="JavaScript" src="../FS_Inc/PublicJS.js" type="text/JavaScript"></script>
<link href="images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
<BODY LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 scroll=yes>
<%
Dim obj_admin_Rs,strpage,select_count,select_pagecount,i,Tmp_adminname,Tmp_super,Tmp_Lock,tmp_my,SQL
strpage=request("page")
'if len(strpage)=0 Or strpage<1 or trim(strpage)=""Then:strpage="1":end if
Set obj_admin_Rs = server.CreateObject(G_FS_RS)
if Trim(Request.QueryString("Parent_Admin"))<>"" then:Tmp_adminname = " and Admin_Parent_Admin = '"& Trim(Request.QueryString("Parent_Admin")) &"'":Else:Tmp_adminname = "":End if
if Trim(Request.QueryString("Is_Super"))="1" then:Tmp_super =  " and Admin_Is_Super=1":Else:Tmp_super = "":End if
if Trim(Request.QueryString("islock"))="1" then
	Tmp_Lock =  " and Admin_Is_Locked=1"
Elseif  Trim(Request.QueryString("islock"))="0" then
	Tmp_Lock =  " and Admin_Is_Locked=0"
Else
	Tmp_Lock =  ""
End if
if trim(Request.QueryString("my"))="1" then:tmp_my = " and Admin_Parent_Admin='"& Session("Admin_Name") &"'":else:tmp_my="":end if
SQL = "Select ID,Admin_Name,Admin_Parent_Admin,Admin_Is_Super,Admin_Real_Name,Admin_Is_Locked  from FS_MF_Admin where id>0 "& Tmp_adminname &Tmp_super&Tmp_Lock&tmp_my&" Order by id desc"
obj_admin_Rs.Open SQL,Conn,1,1
%>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <tr class="xingmu">
    <td class="xingmu"><a href="#" onMouseOver="this.T_BGCOLOR='#404040';this.T_FONTCOLOR='#FFFFFF';return escape('<div align='center'>FoosunCMS4.0<br> Code by Simpwind.Xie <BR>Copyright (c) 2006 Foosun Inc</div>')" class="sd"><strong>管理员管理</strong></a></td>
  </tr>
  <tr class="hback">
    <td><a href="SysAdmin_List.asp">管理员首页</a> | <a href="SysAdmin_List.asp?Is_Super=1">超级管理员</a> 
      | <a href="SysAdmin_List.asp?islock=1">锁定的管理员</a> | <a href="SysAdmin_List.asp?islock=0">开放的管理员</a> 
      | <a href="SysAdmin_List.asp?my=1">我的管理员</a></td>
  </tr>
</table>
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <form name="form1" method="post" action="">
    <tr class="hback"> 
      <td width="17%" height="25" class="xingmu"> <div align="center">管理员</div></td>
      <td width="19%" height="25" class="xingmu"> <div align="center">父级管理员</div></td>
      <td width="14%" height="25" class="xingmu"> <div align="center">系统管理员</div></td>
      <td width="15%" height="25" class="xingmu"> <div align="center">真实姓名</div></td>
      <td width="8%" height="25" class="xingmu"> <div align="center">状态</div></td>
      <td width="27%" height="25" class="xingmu"> <div align="center">操作</div></td>
    </tr>
<%
if obj_admin_Rs.eof then
   obj_admin_Rs.close
   set obj_admin_Rs=nothing
   Response.Write"<tr  class=""hback""><td colspan=""6""  class=""hback"" height=""40"">没有管理员。</td></tr>"
else
	obj_admin_Rs.PageSize=int_RPP
	cPageNo=NoSqlHack(Request.QueryString("Page"))
	If cPageNo="" Then cPageNo = 1
	If not isnumeric(cPageNo) Then cPageNo = 1
	cPageNo = Clng(cPageNo)
	If cPageNo>obj_admin_Rs.PageCount Then cPageNo=obj_admin_Rs.PageCount 
	If cPageNo<=0 Then cPageNo=1
	obj_admin_Rs.AbsolutePage=cPageNo
	for i=1 to obj_admin_Rs.pagesize
		if obj_admin_Rs.eof Then exit For 
%>
    <tr class="hback"> 
      <td height="25"><% = obj_admin_Rs("Admin_Name")%></td>
      <td height="25"><div align="center"> 
<%
	  Dim obj_admin_Rs_1
	  set obj_admin_Rs_1 = Conn.execute("select Admin_Name from FS_MF_Admin where Admin_Name = '"& obj_admin_Rs("Admin_Parent_Admin")&"'")
	 if Not obj_admin_Rs_1.eof then
		 Response.Write "<a href=""SysAdmin_List.asp?Parent_Admin="& obj_admin_Rs_1("Admin_Name") &""">" & obj_admin_Rs_1("Admin_Name")&"</a>"
	 Else
	 	Response.Write("--")
	 End if
%>
        </div></td>
      <td height="25"><div align="center">
 <%if  obj_admin_Rs("Admin_Is_Super")=1 then:response.Write("是"):else:response.Write("否"):end if%>
        </div></td>
      <td height="25"><div align="center">
 <% = obj_admin_Rs("Admin_Real_Name")%>
        </div></td>
      <td height="25"><div align="center">
 <%if obj_admin_Rs("Admin_Is_Locked")=0 then:response.Write("开放"):else:response.Write("<span class=""tx"">锁定</span>"):end if%>
        </div></td>
      <td height="25"><div align="center"><a href="SysAdmin_SetPop.asp?AdminID=<% = obj_admin_Rs("id")%>">设置权限</a>｜<a href="SysAdmin_Add.asp?Action=edit&AdminID=<% = obj_admin_Rs("id")%>">修改</a>｜<a href="SysAdmin_List.asp?Action=del&AdminID=<% = obj_admin_Rs("id")%>"  onClick="{if(confirm('确定要删除吗?n如果此管理员下有子管理员n此管理员下的隶属管理员将重新指定父级管理员!!')){return true;}return false;}">删除</a> 
          ｜<a href="SysAdmin_List.asp?Action=Lock&AdminID=<% = obj_admin_Rs("id")%>">锁定</a>｜<a href="SysAdmin_List.asp?Action=UnLock&AdminID=<% = obj_admin_Rs("id")%>">解锁</a> 
        </div></td>
    </tr>
 <%
		obj_admin_Rs.movenext
	Next
 %>
    <tr class="hback"> 
      <td height="25" colspan="6"><div align="right"> 
          <input name="Action" type="hidden" id="Action">
          <input type="button" name="Submit" value="添加新管理员" onClick="location.href='SysAdmin_Add.asp'">
        </div></td>
    </tr>
    <tr class="hback">
      <td height="25" colspan="6">
    <%
			response.Write "<p>"&  fPageCount(obj_admin_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)
	%>
      </td>
    </tr>
<%
	obj_admin_Rs.close
	set obj_admin_Rs = nothing
End if
%>
  </form>
</table>
<script language="javascript" type="text/javascript" src="../../FS_Inc/wz_tooltip.js"></script>
</body>
</html>
<%
if Request.QueryString("Action")="del" then
	Dim obj_admin_rs_2,tmp_str_d,tmp_str_adminname
	Set obj_admin_rs_2 = Conn.execute("Select Admin_Parent_Admin,Admin_Name,Admin_Is_Super,Admin_Add_Admin From FS_MF_Admin where ID="&NoSqlHack(Request.QueryString("AdminID")))
	tmp_str_d = obj_admin_rs_2("Admin_Name")
	tmp_str_adminname= obj_admin_rs_2("Admin_Name")
	'判断是否有隶属管理员
	Dim obj_adminTF_rs_2
	Set obj_adminTF_rs_2 = Conn.execute("Select Admin_Parent_Admin,Admin_Name From FS_MF_Admin where Admin_Parent_Admin='"& tmp_str_d &"'")
	if Not obj_adminTF_rs_2.eof then
		if session("Admin_Is_Super")<>1 then
			if obj_admin_rs_2("Admin_Name")<>session("Admin_Name") then
				if obj_admin_rs_2("Admin_Is_Super")=1 then
					strShowErr = "<li>您不能删除系统管理员</li>"
					Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
					Response.end
				end if
				if obj_admin_rs_2("Admin_Add_Admin")<>session("Admin_Name") then
					strShowErr = "<li>您不能删除别人的管理员。</li>"
					Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
					Response.end
				end if
			end if
		end if
		Response.Redirect "SysAdmin_Del_submit.asp?id="& NoSqlHack(Request.QueryString("AdminID")) &""
		Response.end
	Else
		if session("Admin_Is_Super")<>1 then
			if obj_admin_rs_2("Admin_Name")<>session("Admin_Name") then
				if obj_admin_rs_2("Admin_Is_Super")=1 then
					strShowErr = "<li>您不能删除系统管理员</li>"
					Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
					Response.end
				end if
				if obj_admin_rs_2("Admin_Add_Admin")<>session("Admin_Name") then
					strShowErr = "<li>您不能删除别人的管理员。</li>"
					Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
					Response.end
				end if
			end if
		end if
		Conn.execute("Delete From FS_MF_Admin where id="&NoSqlHack(Request.QueryString("AdminID")))
	End if
	'插入日志
	'删除静态目录
	Dim p_FSO,tmp_path
	Set p_FSO = Server.CreateObject(G_FS_FSO)
	tmp_path = ".."& G_UP_FILES_DIR &"adminFiles"& tmp_str_adminname
	 tmp_path = Server.MapPath(tmp_path)
	if p_FSO.FolderExists(tmp_path) = true then p_FSO.DeleteFolder tmp_path
	set p_FSO = nothing
	Call MF_Insert_oper_Log("删除管理员","删除了管理员ID("& tmp_str_d &")："&Request.QueryString("AdminID")&",同时锁定了此管理员下所有的隶属管理员",now,session("admin_name"),"MF")
	obj_admin_rs_2.close:set obj_admin_rs_2 = nothing
	strShowErr = "<li>删除管理员成功</li>"
	Response.Redirect("Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
	Response.end
End if
if Request.QueryString("Action")="Lock" then
	if Request.QueryString("AdminID")="" then
		strShowErr = "<li>错误参数</li>"
		Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
		Response.end
	else
		dim rs
		set rs= Server.CreateObject(G_FS_RS)
		rs.open "select Admin_Add_Admin,Admin_Is_Super,Admin_Name From FS_MF_Admin where Id="&NoSqlHack(Request.QueryString("AdminId")),Conn,1,3
		if session("Admin_Is_Super")<>1 then
			if rs("Admin_Name")<>session("Admin_Name") then
				if rs("Admin_Is_Super")=1 then
					strShowErr = "<li>您不能锁定系统管理员</li>"
					Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
					Response.end
				end if
				if rs("Admin_Add_Admin")<>session("Admin_Name") then
					strShowErr = "<li>您不能锁定别人的子管理员。</li>"
					Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
					Response.end
				end if
			end if
		end if
		rs.close:set rs=nothing
		Conn.execute("Update FS_MF_Admin set Admin_Is_Locked=1 where ID="&NoSqlHack(Request.QueryString("AdminId")))
		strShowErr = "<li>锁定成功</li>"
		Response.Redirect("success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
		Response.end
	end if
end if
if Request.QueryString("Action")="UnLock" then
	if Request.QueryString("AdminID")="" then
		strShowErr = "<li>错误参数</li>"
		Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
		Response.end
	else
		set rs= Server.CreateObject(G_FS_RS)
		rs.open "select Admin_Add_Admin,Admin_Is_Super,Admin_Name From FS_MF_Admin where Id="&NoSqlHack(Request.QueryString("AdminId")),Conn,1,3
		if session("Admin_Is_Super")<>1 then
			if rs("Admin_Name")<>session("Admin_Name") then
				if rs("Admin_Is_Super")=1 then
					strShowErr = "<li>您不能操作系统管理员</li>"
					Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
					Response.end
				end if
				if rs("Admin_Add_Admin")<>session("Admin_Name") then
					strShowErr = "<li>您不能解锁别人的子管理员。</li>"
					Response.Redirect("error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
					Response.end
				end if
			end if
		end if
		rs.close:set rs=nothing
		Conn.execute("Update FS_MF_Admin set Admin_Is_Locked=0 where ID="&NoSqlHack(Request.QueryString("AdminId")))
		strShowErr = "<li>解锁成功</li>"
		Response.Redirect("success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=SysAdmin_list.asp")
		Response.end
	end if
end if
Set Conn = Nothing
%>

						