📄 usermanage.asp
字号:
<!--#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(Forcast_SN)("ManageKEY")="super" or request.cookies(Forcast_SN)("ManageKEY")="typemaster" or request.cookies(Forcast_SN)("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(Forcast_SN)("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(Forcast_SN)("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='"& ChkRequest(request.cookies(Forcast_SN)("name"), 0) &"' order by "& db_User_ID &""
else
rst.Source="select * from "& db_User_Table &" where adder='"& ChkRequest(request.cookies(Forcast_SN)("name"), 0)&"' 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%> <%=ver%> - 用户管理完美设计网络科技有限公司 完美政府网站管理系统 http://www.wmgov.cn</title>
<style type=text/css>
body { background:#555555; margin:0px; font-family: Verdana, Arial, sans-serif, 宋体; font-size: 9pt; text-decoration: none; color:#555555;
SCROLLBAR-FACE-COLOR: #55919A;
SCROLLBAR-HIGHLIGHT-COLOR: #cccccc;
SCROLLBAR-SHADOW-COLOR: #cccccc;
SCROLLBAR-3DLIGHT-COLOR: #cccccc;
SCROLLBAR-ARROW-COLOR: #555555;
SCROLLBAR-TRACK-COLOR: #555555;
SCROLLBAR-DARKSHADOW-COLOR: #cccccc;}
table { border:0px; }
td { font:normal 12px; }
img { vertical-align:bottom; border:0px; }
a { font:normal 12px; color:#555555; text-decoration:none; }
a:hover { color:#ff6600;text-decoration:underline; }
.sec_menu { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#eeeeee; }
.menu_title { }
.menu_title span { position:relative; top:2px; left:8px; color:#555555; font-weight:bold; }
.menu_title2 { }
.menu_title2 span { position:relative; top:2px; left:8px; color:#ff6600; font-weight:bold; }
</style>
<script language=javascript>
function CheckFormUserLogin()
{
if(document.SeahUser.name.value=="")
{
alert("请输入用户名！");
document.SeahUser.name.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" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#C0C0C0" 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(Forcast_SN)("purview")="99999" then
response.write "<tr align='center' height=20>"& chr(10)
if (request.cookies(Forcast_SN)("key")="bigmaster" and rst("oskey")="smallmaster") or (request.cookies(Forcast_SN)("key")="typemaster" and (rst("oskey")="bigmaster" or rst("oskey")="smallmaster")) or request.cookies(Forcast_SN)("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(Forcast_SN)("name") then
response.write "<font color=red>" &(rst("name"))& "</font>"
else
response.write (rst("name"))
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(Forcast_SN)("name"))=trim(rst(db_User_Name)) then
response.write "----"
else
response.write "<a href='userdel.asp?id=" &(rst(db_User_ID))& "&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(Forcast_SN)("name"))=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">选中所有显示用户
<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
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -