📄 admin_admin.asp

📁 Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file = admin_chk.asp -->
<!--#include file = md5.asp -->
<%
If Not ChkAdmin("AdminUser") Then
	Call ArtErr("","")
End If
%><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../images/admin/style.css">
<script src="Include/Common.js" type=text/javascript></script>
</head>
<script LANGUAGE="javascript">
<!--
function FrmAddLink_onsubmit() {
if (document.FrmAddLink.username.value=="")
	{
	  alert("对不起，请输入用户名！")
	  document.FrmAddLink.username.focus()
	  return false
	 }
else if (document.FrmAddLink.username.value.length < 2)
	{
	  alert("用户名能不能长一点！")
	  document.FrmAddLink.username.focus()
	  return false
	 }
else if (document.FrmAddLink.username.value.length > 30)
	{
	  alert("用户名太长了吧！")
	  document.FrmAddLink.username.focus()
	  return false
	 }
else if (document.FrmAddLink.passwd.value=="")
	{
	  alert("对不起，请输入密码！")
	  document.FrmAddLink.passwd.focus()
	  return false
	 }
else if (document.FrmAddLink.passwd.value.length < 4)
	{
	  alert("为了安全，密码应该长一点！")
	  document.FrmAddLink.passwd.focus()
	  return false
	 }
else if (document.FrmAddLink.username.value==document.FrmAddLink.passwd.value)
	{
	  alert("为了安全，用户名与密码不应该相同！")
	  document.FrmAddLink.passwd.focus()
	  return false
	 }
else if (document.FrmAddLink.passwd2.value=="")
	{
	  alert("对不起，请您输入验证密码！")
	  document.FrmAddLink.passwd2.focus()
	  return false
	 }
else if (document.FrmAddLink.passwd2.value !== document.FrmAddLink.passwd.value)
	{
	  alert("对不起，您两次输入的密码不一致！")
	  document.FrmAddLink.passwd2.focus()
	  return false
	 }
else if (document.FrmAddLink.sex.value=="")
	{
	  alert("对不起，请选择您的性别！")
	  document.FrmAddLink.sex.focus()
	  return false
	 }	 
else if (document.FrmAddLink.fullname.value=="")
	{
	  alert("对不起，请输入该用户的真实姓名！")
	  document.FrmAddLink.fullname.focus()
	  return false
	 }
else if (document.FrmAddLink.email.value=="")
	{
	  alert("对不起，请输入您的电子邮件！")
	  document.FrmAddLink.email.focus()
	  return false
	 }
else if (document.FrmAddLink.email.value.indexOf("@",0)== -1||document.FrmAddLink.email.value.indexOf(".",0)==-1)
	  {
	  alert("对不起，您输入的电子邮件有误！")
	  document.FrmAddLink.email.focus()
	  return false
	 }
else if (document.FrmAddLink.depname.value=="")
	{
	  alert("对不起，请选择该用户的工作单位！")
	  document.FrmAddLink.depname.focus()
	  return false
	 }
else if (document.FrmAddLink.dj.value=="")
	{
	  alert("对不起，请选择该用户的权限！")
	  document.FrmAddLink.dj.focus()
	  return false
	 }
}

//-->
</script>

<table cellpadding=2 cellspacing=1 border=0 width=98% class=tableBorder align=center>
	<tr align=center>
    <th height=25 align=center colspan="2"><strong>会员系统---后台管理员管理</strong></th>
    </tr>
	<tr>
	<td width=12% height=30 class=forumRow>&nbsp;<strong>管理导航：</strong></td>
	<td width=88% height=30 class=forumRow><a href="admin_admin.asp">管理员列表</a> | <a href="admin_admin.asp?action=add">增加后台管理员</a> | <a href="admin_stat_user.asp">查看管理员文章排名</a></td>
    </tr>
</TABLE>
<%
Dim Action
Action = Request("action")

Select Case Action
Case "add"
	Call addAdministrators()
	Call AdminPageEnd()
Case "edit"
	Call editAdministrators()
	Call AdminPageEnd()
Case "del"
	Call delAdministrators()
Case "savenew"
	Call savenew()
Case "savedit"
	Call savedit()
Case "active"
	Call ActiveLock()
Case "purview"
	Call editPurview()
	Call AdminPageEnd()
Case "renew","savepurview"
	Call savePurview()
Case Else
	Call showmain()
	Call AdminPageEnd()
End Select

call CloseConn() 


Sub showmain()
	Dim Rs,page
%>

        <table cellpadding="2" cellspacing="1" border="0" width="95%" class="tableBorder" align=center>
             <form method="POST" action="<%=request.servervariables("URL")%>" onsubmit="return FrontPage_Form1_Validator(this)" language="JavaScript" name="FrontPage_Form1">
        <tr>
			<td class="forumRow" width=12%>&nbsp;<b>用户搜索：</b></td>
			<td class="forumRow">&nbsp;<!--webbot bot="Validation" s-display-name="关键字" b-value-required="TRUE" i-minimum-length="1" i-maximum-length="20" --><input type="text" name="user" size="20" maxlength="20">
				<select size="1" name="dj">
				<option value="">全部用户</option>
				<option value="1">超级管理员</option>
				<option value="2">普通管理员</option>
				<option value="3">只读管理员</option>
				
				</select>　　<input type="submit" value="搜索用户" name="B1">
			</td>
		</tr></form>
  </table>
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="table" > 
		<tr>
		  <td align=center class="bg_tr">ID</td>
		  <td align=center class="bg_tr">管理员名</td>
		  <td align=center class="bg_tr">管理员身份</td>
		  <td align=center class="bg_tr">最后登录地址</td>
		  <td align=center class="bg_tr">最后登录时间</td>
		  <td align=center class="bg_tr">登录次数</td>
		  <td align=center class="bg_tr">操作</td>
	      <td align=center class="bg_tr">状态</td>
	  </tr>
	  
	  <%
	  dim user,dj,sql
	 user=trim(request("user"))
	 dj=trim(request("dj"))
sql = "select * from admin "
if user<>""  then sql = sql & " where user like '%"&user&"%' "
if dj<>"" then  sql = sql & " and dj='"&dj&"' "
if user="" and dj<>"" then sql = "select * from admin  where dj='"&dj&"'"
sql= sql& "  order by id "
 
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open sql,conn,1,1

if rs.recordcount<>0 then
		
		page=int(request("page"))
		rs.PageSize=15
		pagecount=rs.pagesize
		if page<=0 then page=1
		if request("page")="" then page=1
		rs.AbsolutePage=page		
		for k=1 to pagecount
		
%>
		<tr onMouseOver=overColor(this) onMouseOut=outColor(this) class="tdbg" height="25">
		  <td width="47" align="center"><%=rs("id")%></td>
	    <td width="94" align="center"><a href="admin_admin_view.asp?id=<%=rs("id")%>" onMouseOver="window.status='查看用户“<%=rs("User")%>”的信息';return true;" onMouseOut="window.status='';return true;" title='查看用户“<%=rs("User")%>”的信息'>
    <%if rs("user")=request.cookies(Art2008)("adminuser") then%><font color=red><%end if%><%=rs("user")%></font></a>
			<%
			  Set rs4 = Server.CreateObject("ADODB.RecordSet")
			  rs4.Open "select * from [news] where adduser='"&rs("user")&"' order by id desc",conn,1,1
			  Response.Write "<br>("&rs4.recordcount&"篇)"
			  rs4.close:set rs4=nothing
			%>
			</td>
		  <td width="121" align="center"><%if rs("dj")=1 then%><font color="red">超级管理员</font><%end if%><%if rs("dj")=2 then%>普通管理员<%end if%><%if rs("dj")=3 then%>只读管理员<%end if%></td>
		  <td width="139" align="center"><%=rs("IP")%>&nbsp;</td>
		  <td width="145" align="center"><%=rs("lastlogin")%>&nbsp;</td>
		  <td width="96" align="center"><%=rs("logins")%></td>

			
		  <td width="227" align=center>
          <a href="admin_admin.asp?action=edit&id=<%=rs("id")%>" onMouseOver="window.status='修改用户“<%=rs("User")%>”的属性';return true;" onMouseOut="window.status='';return true;" title='修改用户“<%=rs("User")%>”的属性'>修改</a>&nbsp;&nbsp;
            <%if rs("dj")<>"1" and rs("purview")<>99999 then%>
            <a href="?action=purview&id=<%=Rs("id")%>" onMouseOver="window.status='编辑“<%=rs("User")%>”权限';return true;" onMouseOut="window.status='';return true;" title='编辑“<%=rs("User")%>”权限'>编辑权限</a>&nbsp;&nbsp;
			<a onclick='{if(confirm("您确定删除吗?此操作将不能恢复!")){return true;}return false;}' href="?action=del&delid=<%=Rs("id")%>&username=<%=rs("user")%>" onMouseOver="window.status='删除用户“<%=rs("user")%>”';return true;" onMouseOut="window.status='';return true;" title='删除用户“<%=rs("user")%>”'>删除</a>
			<%else%>--------&nbsp;&nbsp;&nbsp;----<%end if%>　　       
			
						
			</td>
						
	      <td width="61" align=center>
			<%if rs("dj")=1 and rs("purview")="99999" then%><font color=green>正常</font>
			<%else%>
			<%
			if rs("jingyong")="0" then 
				Response.Write "<a href=?action=active&jy=1&jyid="&rs("id")&"&jyname="&rs("user")&"&page="&page&"><font color=green>正常</font></a>"
			else
				Response.Write "<a href=?action=active&jy=0&jyid="&rs("id")&"&jyname="&rs("user")&"&page="&page&"><font color=red>锁定</font></a>"
			end if
			%>			
			<%end if%>
			</td>
	</tr>
       <%
		rs.movenext
		if rs.eof then exit for
		next		
		else 
		  Response.Write "<tr><td colspan=9>暂无用户</td></tr>"
		end if	
		%>
		<tr>
        <td colspan="9" align="center" class="forumRow">

<%if rs.recordcount<>0 then
  if page>1 then
    response.write "<a href="&request.servervariables("URL")&"?page=1>首页</a>　"
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -