📄 usermanage.asp

📁 zheng fu wang zhan gong neng qi quan
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="conn.asp"-->
<!--#include file="ConnUser.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!--#include file="chkuser.asp" -->
<!--#include file="ChkManage.asp" -->
<%
if not(request.cookies(eChuang)("ManageKEY")="super" or request.cookies(eChuang)("ManageKEY")="typemaster" or request.cookies(eChuang)("ManageKEY")="bigmaster") then
	Show_Err("对不起，您的后台管理权限不够操作！")
	response.end
else
	dim oskey
	dim rs,tsql
	dim rst
	if (request.form("action")="del") and (request.form("selectdel")<>"") then
		if (request.cookies(eChuang)("ManageKEY")="super") then
			conn.execute "delete from "& db_User_Table &" where "& db_User_ID &" in ("&request.form("selectdel")&")"
			response.Redirect "UserManage.asp"
		else
			Show_Err("对不起，您不能进行用户的批理删除！")
			response.end
		end if
	end if
	oskey=ChkRequest(request("oskey"),0)	'防注入
	set rst=server.CreateObject("ADODB.RecordSet")
	if request.cookies(eChuang)("key")="super" then
		if oskey="" then
			rst.Source="select * from "& db_User_Table &" order by "& db_User_ID &""
		else
			rst.Source="select * from "& db_User_Table &" where oskey='"&oskey&"' order by "& db_User_ID &""
		end if
	else
		if oskey="" then
			rst.Source="select * from "& db_User_Table &" where adder='"&request.cookies(eChuang)("username")&"' order by "& db_User_ID &""
		else
			rst.Source="select * from "& db_User_Table &" where adder='"&request.cookies(eChuang)("username")&"' and oskey='"&oskey&"' order by "& db_User_ID &""
		end if
	end if

	PageShowSize = 10		'每页显示多少个页
	MyPageSize   = 10		'每页显示多少用户

	If Not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Or Request("page") <=0 Then
		MyPage=1
	Else
		MyPage=Int(Abs(Request("page")))
	End if

	rst.Open rst.Source,ConnUser,3,1	
	If Not rst.eof then
		PageSize     = MyPageSize
		MaxPages         = rst.PageCount
		rst.absolutepage = MyPage
		total            = rst.RecordCount
		%>
<html><head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href=site.css rel=stylesheet>
<title><%=copyright%><%=version%>&nbsp;<%=ver%> - 用户管理_建站铺修正版_bbs.jzpu.com</title>
<script language=javascript>
function CheckFormUserLogin()
{
	if(document.SeahUser.UserName.value=="")
	{
		alert("请输入用户名！");
		document.SeahUser.UserName.focus();
		return false;
	}
}
</script>
<script language="JavaScript">
<!--
function CheckAll(form){
	for (var i=0;i<form.elements.length;i++) {
		var e = form.elements[i];
		if (e.name != 'chkall') e.checked = form.chkall.checked; 
	}
}
//-->
</script>
</head>
<body topmargin="0">
<!--#include file=Admin_Top.asp-->
<table border="1" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#FFDFBF" width="100%" id="AutoNumber1">
<tr align="center"  height=25>
	<td colspan="12" height=25 class="TDtop">┊ <B>用户管理</B> ┊ </td>
</tr>
<tr align="center"  height=25>
	<td colspan="12" height=25 >
		<p align=center>用户列表(<font color=red>红色</font>表示当前用户)，点击用户名可查看更多信息 <a href="useradd1.asp">添加用户</a>  <a href="UserManage.asp">全部用户</a>
	</td>
</tr>
<tr align="center" class="TDtop1"  height=20> 
	<td width="4%">ID号</td>
	<td width="11%">用户名</td>
	<td width="10%">权限</td>
	<td width="14%">最后登录地址</td>
	<td width="15%">最后登录时间</td>
	<td width="5%">登录</td>
	<td width="6%">发文数</td>
	<td width="6%">修改</td>
	<td width="6%">删除</td>
	<td width="9%">会员等级</td>
	<td width="10%">会员状态</td>
	<td width="4%" >选择</td>
  </tr> 
  <%response.write "<form name='formdel' method='post' action='UserManage.asp'>"
  for i=1 to PageSize
		if not rst.eof then
			if rst("purview")<>"99999" or request.cookies(eChuang)("purview")="99999" then
				response.write "<tr align='center' height=20>"& chr(10)
				if (request.cookies(eChuang)("key")="bigmaster" and rst("oskey")="smallmaster") or (request.cookies(eChuang)("key")="typemaster" and (rst("oskey")="bigmaster" or rst("oskey")="smallmaster")) or request.cookies(eChuang)("key")="super" then
		
					response.write "<td align='center'>" &(rst(db_User_ID))& "</td>"
	
					response.write "<td align='center' bgcolor='#FFFFFF'>"
					response.write "<a href='list.asp?id=" &(rst(db_User_ID)) &"' title=" &(rst(db_User_Password)) &">"
					if rst(db_User_Name)=request.cookies(eChuang)("username") then
						response.write "<font color=red>" &(rst("Username"))& "</font>"
					else
						response.write (rst("Username"))
					end if
					response.write "</a>"
					response.write "</td>"& chr(10)
	
					response.write "<td align='center' bgcolor='#FFFFFF'>"
					
					if rst("oskey")="super" and rst("purview")="99999" then
						response.write "<font color='red'>超级用户</font>"
					else
						oskey1=rst("oskey")
						select case oskey1
							case "super" response.write "系统用户"
							case "check" response.write "<a href='UserManage.asp?oskey="& oskey1 &"'>审核用户</a>"
							case "typemaster" response.write "<a href='UserManage.asp?oskey="& oskey1 &"'>总栏用户</a>"
							case "bigmaster" response.write "<a href='UserManage.asp?oskey="& oskey1 &"'>大类用户</a>"
							case "smallmaster" response.write "<a href='UserManage.asp?oskey="& oskey1 &"'>小类用户</a>"
							case "selfreg" response.write "<a href='UserManage.asp?oskey="& oskey1 &"'>注册用户</a>"
						end select
					end if
					response.write "</td>"& chr(10)
	
					response.write "<td align='center'>" &(rst(db_User_LastLoginIP))& "</td>"& chr(10)
	
					response.write "<td >" &(rst(db_User_LastLoginTime))& "</td>"& chr(10)
	
					response.write "<td align='center'>" &(rst(db_User_LoginTimes))& "</td>"& chr(10)
	
					response.write "<td align='center'>" &(rst("number"))& "</td>"& chr(10)
	
					response.write "<td align='center' bgcolor='#FFFFFF'>"
					response.write "<a href='UserEdit.asp?ID=" &(rst(db_User_ID))& "' title='修改用户“" &(rst(db_User_Name))& "”的属性'>修改</a>"
					response.write "</td>"& chr(10)
					
					response.write "<td align='center' bgcolor='#FFFFFF'>"
					if trim(request.cookies(eChuang)("username"))=trim(rst(db_User_Name)) then
						response.write "----"
					else
						response.write "<a href='userdel.asp?id=" &(rst(db_User_ID))& "&amp;name=del' title='删除用户“" &(rst(db_User_Name))& "”'>删除</a>"
					end if
					response.write "</td>"& chr(10)
				end if
				response.write "<td>"
				if rst("oskey")="selfreg" then
					reglevel1=rst("reglevel")
					select case reglevel1
						case 1
							response.write "普通<br>"
							response.write "<a href=UserLevel.asp?ID=" &(rst(db_User_ID))& chr(38) &"reglevel=2 title='现等级为‘普通’，点击将置为‘高级’'>高级</a><br>"
							response.write "<a href=UserLevel.asp?ID=" &(rst(db_User_ID))& chr(38) &"reglevel=3 title='现等级为‘普通’，点击将置为‘特级’'>特级</a><br>"
						case 2
							response.write "<a href=UserLevel.asp?ID=" &(rst(db_User_ID))& chr(38) &"reglevel=1 title='现等级为‘高级’，点击将置为‘普通’'>普通</a><br>"
							response.write "高级<br>"
							response.write "<a href=UserLevel.asp?ID=" &(rst(db_User_ID))& chr(38) &"reglevel=3 title='现等级为‘高级’，点击将置为‘特级’'>特级</a><br>"
						case 3
							response.write "<a href=UserLevel.asp?ID=" &(rst(db_User_ID))& chr(38) &"reglevel=1 title='现等级为‘特级’，点击将置为‘普通’'>普通</a><br>"
							response.write "<a href=UserLevel.asp?ID=" &(rst(db_User_ID))& chr(38) &"reglevel=2 title='现等级为‘特级’，点击将置为‘高级’'>高级</a><br>"
							response.write "特级<br>"
					end select
				end if
				response.write "</td>"
				response.write "<td>"
				if rst("oskey")="selfreg" then
					jingyong1=rst("jingyong")
					response.write "<a href=UserJingYong.asp?ID=" &(rst(db_User_ID))&chr(38)& "jingyong="
					Select Case jingyong1
						case 0 response.write "1 title='现状态为‘启用’，点击将禁用该用户'>启用</a>"
						case 1 response.write "0 title='现状态为‘禁用’，点击将启用该用户'>禁用</a>"
					end Select
				end if
				response.write "</td>"
					response.write "<td align='center'>"
					if trim(request.cookies(eChuang)("username"))=trim(rst(db_User_Name)) or rst("oskey")<>"selfreg" then
						response.write "--"
					else
						response.write "<input type=checkbox name=selectdel id=selectdel value=" &(rst(db_User_ID))& ">"
					end if
					response.write "</td>"
				response.write "</tr>"& chr(10)
			end if
			rst.MoveNext
		end if
	next
	response.write "<tr align='right' ><td colspan=13  height=20>"%>
	<input type=hidden name=action value='del'>
	<input type=checkbox name=chkall value=on onClick="CheckAll(this.form)" style="font-size: 9pt;  color: #000000; background-color: #ffff; solid #EAEAF4">选中所有显示用户&nbsp;
	<input type=submit name=action1 onClick="{if(confirm('删除选定的用户吗？')){this.document.check.submit();return true;}return false;}" value="删除用户" style="font-size: 9pt;  color: #000000; background-color: #EAEAF4; solid #EAEAF4" onMouseOver ="this.style.backgroundColor='#ffffff'" onMouseOut ="this.style.backgroundColor='#EAEAF4'">
	<%response.write "</td></tr>"& chr(10)
	response.write "</form>"& chr(10)
	rst.close
	set rst=nothing%>
<tr height=20>
<td colspan=12 class="TDtop1" >
<p align=center height=25>共 <%=total%> 名，当前第 <%=Mypage%>/<%=Maxpages%> 页，每页 <%=MyPageSize%> 名 
	<%
	if oskey="" then
		url="UserManage.asp?"
	else
		url="UserManage.asp?oskey="& oskey &"&"
	end if
12 下一页
💿 文件大小 5445 K
👤 上传用户 sunqingyan
📂 所属分类其他
🏷️ 相关标签

#zheng #wang #gong #neng
⌨️ 快捷键说明

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