adminuser.asp

程序网络论坛HigroupBBS v4.00 默认管理员帐号密码都是Marcos

<!--#include file="MarcosCB.asp"-->
<style>
<%=skinCss%>
</style>
<%
	getConn()
	isIn()
	isAdmin()

	dim i,page,keyWord,order,userId,theAct,orderBy,userLevel
	page=getPost("page")
	order=getPost("order")
	userId=getPost("userId")
	theAct=getPost("theAct")
	orderBy=getPost("orderBy")
	keyWord=getPost("keyWord")
	userLevel=getPost("userLevel")
		
	if not isNumeric(page) then
		page=1
	end if

	if order="" and orderBy="" then
		order="desc"
		orderBy="regDate"
	end if
	
	select case theAct
		case "setLock"
			if getValue("userId")<>userId then
				conn.execute("update Marcos_User set isLocked=true where userId="&userId)
			 else
				echo "<script>alert('系统限制不能锁定自己的帐号');history.back();</script>"
				closeConn()
				response.end
			end if
		case "unLock"
			conn.execute("update Marcos_User set isLocked=false where userId="&userId)
		case "unAdmin"
			conn.execute("update Marcos_User set userLevel=1 where userId="&userId)
		case "setAdmin"
			conn.execute("update Marcos_User set userLevel=999 where userId="&userId)
		case "del"
			if getValue("userId")<>userId then
				sql="select userName from Marcos_User where userId="&userId
				set rs_sys=conn.execute(sql)
				userName=rs_sys(0)
				sql="select count(topicId),sum(replyCount),Marcos_Topic.boardId from Marcos_Topic where userName='"&userName&"' group by boardId"
				set rs_sys=conn.execute(sql)
				do until rs_sys.eof
					conn.execute("update Marcos_Board set topicCount=topicCount-"&rs_sys(0)&",replyCount=replyCount-"&rs_sys(1)&" where boardId="&rs_sys(2))
					rs_sys.movenext
				loop
				conn.execute("delete from Marcos_Reply where topicId in(select topicId from Marcos_Topic where userName='"&userName&"')")
				conn.execute("delete from Marcos_Topic where userName='"&userName&"'")
				sql="update Marcos_Reply,Marcos_Topic,Marcos_Board set Marcos_Board.replyCount=Marcos_Board.replyCount-1,Marcos_Topic.replyCount=Marcos_Topic.replyCount-1 where Marcos_Reply.userName='"&userName&"' and Marcos_Reply.topicId=Marcos_Topic.topicId and Marcos_Topic.boardId=Marcos_Board.boardId"
				conn.execute(sql)
				conn.execute("delete from Marcos_Reply where userName='"&userName&"'")
				conn.execute("delete from Marcos_User where userId="&userId)
				delPageIndex()
				closeConn()
				locate "adminUser.asp?keyWord="&keyWord&"&userLevel="&userLevel&"&order="&order&"&orderBy="&orderBy&"&page="&page
			 else
				echo "<script>alert('系统限制不能删除自己的帐号');history.back();</script>"
				closeConn()
				response.end
			end if
	end select
	
	if theAct<>"" then
		locate "adminUser.asp?keyWord="&keyWord&"&userLevel="&userLevel&"&order="&order&"&orderBy="&orderBy&"&page="&page
	end if
	
	select case userLevel
		case "allUser",""
			sql="select * from Marcos_User where userName like '%"&keyWord&"%' order by "&orderBy&" "&order
		case "allManager"
			sql="select boardManagerList from Marcos_Board where topBoardId<>0"
			set rs_sys=conn.execute(sql)
			do until rs_sys.eof
				if fixNull(rs_sys(0))<>"" then
					boardManagerList=boardManagerList&","&rs_sys(0)
				end if
				rs_sys.movenext
			loop
			if boardManagerList<>"" then
				boardManagerList=mid(boardManagerList,2)
				boardManagerList=replace(boardManagerList,",","','")
			end if
			sql="select * from Marcos_User where userName in('"&boardManagerList&"') order by "&orderBy&" "&order
		case "allAdmin"
			sql="select * from Marcos_User where userLevel=999 order by "&orderBy&" "&order
	end select
	
	if order="asc" then
		regDateStr="<a href=""?keyWord="&keyWord&"&order=desc&orderBy=regDate&userLevel="&userLevel&""">注册时间</a>"
		userNameStr="<a href=""?keyWord="&keyWord&"&order=desc&orderBy=userName&userLevel="&userLevel&""">用户名</a>"
		lastLoginStr="<a href=""?keyWord="&keyWord&"&order=desc&orderBy=lastLogin&userLevel="&userLevel&""">最后登录</a>"
		delInputStr="<a href=""?keyWord="&keyWord&"&order=desc&orderBy=isLocked&userLevel="&userLevel&""">操作</a>"
	 else
		regDateStr="<a href=""?keyWord="&keyWord&"&order=asc&orderBy=regDate&userLevel="&userLevel&""">注册时间</a>"
		userNameStr="<a href=""?keyWord="&keyWord&"&order=asc&orderBy=userName&userLevel="&userLevel&""">用户名</a>"
		lastLoginStr="<a href=""?keyWord="&keyWord&"&order=asc&orderBy=lastLogin&userLevel="&userLevel&""">最后登录</a>"
		delInputStr="<a href=""?keyWord="&keyWord&"&order=asc&orderBy=isLocked&userLevel="&userLevel&""">操作</a>"
	end if
%>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <tr align="center"> 
    <td height="22" colspan="5" class="tr">系统用户管理</td>
  </tr>
  <tr align="center" class="td"> 
    <td><%=userNameStr%></td>
    <td height="22"><%=regDateStr%></td>
    <td><%=lastLoginStr%>｜IP</td>
    <td>等级</td>
    <td height="22"><%=delInputStr%></td>
  </tr>
  <%
	rs.open sql,conn,1,1
	rs.pageSize=20
	if not rs.eof then
		rs.absolutePage=page
	end if
	for i=1 to rs.pageSize
		if rs.eof then
			exit for
		end if
		otherLink="userId="&rs("userId")&"&keyWord="&keyWord&"&userLevel="&userLevel&"&order="&order&"&orderBy="&orderBy&"&page="&page
		if rs("userLevel")=999 then
			adminStr="<input type=button value=""降"" onclick=""if(confirm('你确认要把 "&rs("userName")&" 降为普通用户吗?')){location.href='?theAct=unAdmin&"&otherLink&"';this.disabled=true;}"">"
		 else
			adminStr="<input type=button value=""管"" onclick=""if(confirm('你确认要把 "&rs("userName")&" 升为管理员吗?')){location.href='?theAct=setAdmin&"&otherLink&"';this.disabled=true;}"">"
		end if
		if rs("isLocked")=false then
			lockStr="<input type=button value=""锁"" onclick=""if(confirm('你确认要锁定 "&rs("userName")&" 吗?')){location.href='?theAct=setLock&"&otherLink&"';this.disabled=true;}"">"
		 else
			lockStr="<input type=button value=""解"" onclick=""if(confirm('你确认要解锁 "&rs("userName")&" 吗?')){location.href='?theAct=unLock&"&otherLink&"';this.disabled=true;}"">"
		end if
		delStr="<input type=button value=""删"" onclick=""if(confirm('你确认要删除 "&rs("userName")&" 吗?\n(删除前请先锁定该帐号,以免数据统计出错)')){location.href='?theAct=del&"&otherLink&"';this.disabled=true;}"">"
%>
  <tr align="center" onmouseover="javascript:this.className='trOnMOver';" onmouseout="javascript:this.className='';"> 
    <td class="td"><%="<a href=""proFile.asp?userId="&rs("userId")&""" target=_blank>"&rs("userName")&"</a>"%></td>
    <td height="22"><%=mid(rs("regDate"),3,len(rs("regDate"))-5)%></td>
    <td class="td"><%=mid(rs("lastLogin"),3,len(rs("lastLogin"))-5)%>｜<%=rs("lastIP")%></td>
    <td><%=getUserLevel(rs("userWealth"),rs("userLevel"))%></td>
    <td height="22" class="td"><%=adminStr&lockStr&delStr%></td>
  </tr>
  <%
		rs.movenext
	next

	for i=1 to rs.pageCount
		pageStr=pageStr&"<a href=""?keyWord="&keyWord&"&userLevel="&userLevel&"&order="&order&"&orderBy="&orderBy&"&page="&i&"""><font {$font"&i&"}>"&i&"</font></a> "
	next
	pageStr=replace(pageStr,"{$font"&page&"}","class=warningColor")
	
	rs.close
	closeConn()
%>
  <tr align="center">
    <td height="22" colspan="5" class="td"><%=pageStr%></td>
  </tr>
  <tr align="center"> 
    <td height="22" colspan="5" class="tr"><input type="button" name="Submit3" value="所有用户" onclick="location.href='adminUser.asp?userLevel=allUser';this.disabled=true;"> 
      <input type="button" name="Submit32" value="所有版主" onclick="location.href='adminUser.asp?userLevel=allManager';this.disabled=true;"> 
      <input type="button" name="Submit33" value="所有管理员" onclick="location.href='adminUser.asp?userLevel=allAdmin';this.disabled=true;"></td>
  </tr>
</table>
<br>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <form method="post" onsubmit="this.Submit.disabled=true" action="?">
  <tr> 
      <td height="22" colspan="2" align="center" class="tr">系统用户查找
        <input name="order" type="hidden" id="order" value="<%=order%>">
        <input name="orderBy" type="hidden" id="orderBy" value="<%=orderBy%>">
        <input name="userLevel" type="hidden" id="userLevel" value="allUser"></td>
  </tr>
  <tr> 
    <td width="241" height="22" align="right">用户名称:</td>
    <td width="353" height="22">&nbsp;  <input name="keyWord" type="text" id="keyWord" value="<%=keyWord%>"></td>
  </tr>
  <tr> 
    <td height="22" colspan="2" align="center" class="tr">
<input type="submit" name="Submit" value="查 找"> 
      <input type="reset" name="Submit2" value="重 置"></td>
  </tr>
</form>
</table>
<br>
<table width="600" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="<%=borderColor%>">
  <tr> 
    <td height="25" align="center" class="tr"> </td>
  </tr>
  <tr> 
    <td height="60" align="center" bgcolor="#FFFFFF"><font face="Wingdings">v</font> 
      HigroupBBS <font face="Wingdings">v</font><br>
      Powered By <a href="javascript:;" title="QQ 26696782">Marcos</a> 2004.10</td>
  </tr>
</table>