📄 admin_manager.asp
字号:
<%@LANGUAGE="VBScript" CODEPAGE="936"%>
<!--#include file="session.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="CHAR.asp" -->
<%
if session("username")<>"" and session("usergroup")<>3 then
response.write"<script>alert('对不起，你无权进入！');location='"&request.ServerVariables("HTTP_REFERER")&"'</script>"
response.end
end if
if request.ServerVariables("REQUEST_METHOD")="POST" then
userid=request("userid")
method=request("submit")
select case method
case "踢出班级"
strsql="delete from primsg where primsguser='"&userid&"'"
conn.execute(strsql)
strsql="update [user] set isvalid=false where username='"&userid&"'"
conn.execute(strsql)
case "升为管理员"
strsql="update [user] set usergroup='3' where username='"&userid&"'"
conn.execute(strsql)
case "降为班级成员"
strsql="select count(username) as adminnum from [user] where usergroup='3'"
set rs=conn.execute(strsql)
if rs("adminnum")>1 then
strsql="update [user] set usergroup='2' where username='"&userid&"'"
conn.execute(strsql)
end if
end select
end if
strsql="SELECT loginfo.logtime, user.userid,user.realname, user.email, user.username,user.regtime,user.usergroup,user.logno FROM [user] INNER JOIN loginfo ON user.username = loginfo.loguser where isvalid=true order by regtime desc"
set rs=server.CreateObject("adodb.recordset")
rs.open strsql,conn,1,1
if not rs.eof then
rs.PageSize =15 '每页记录条数
result_num=rs.RecordCount '记录总数
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
else
result_num=0
maxpage=0
page=0
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<title><%=classname%>同学录--班级管理</title>
<link href="css/class.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="js/go.js"></script>
</head>
<body background="images/1.GIF" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="776" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="3"><img src="images/top_t.gif" width="776" height="43"></td>
</tr>
<tr>
<td width="138"><img src="images/top_l.gif" width="138" height="39"></td>
<td width="584" align="right" bgcolor="#666B52"><a href="index.asp"><img src="images/toplogo.gif" alt="<%=classname%>同学录" width="200" height="39" border="0"></a></td>
<td width="54"><img src="images/top_r.gif" width="54" height="39"></td>
</tr>
<tr>
<td colspan="3"><table width="776" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="120" rowspan="2" valign="top" background="images/left_x.gif"><img src="images/left_img.gif" width="120" height="480"></td>
<td rowspan="2" valign="top" bgcolor="#F2F2EA"> <div align="center">
<!--#include file="top.asp" -->
</div>
<table width="618" border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top"> <div align="center"><br>
<!--#include file="left.asp" -->
</div></td>
<td width="10"> </td>
<td width="418" valign="top"><table width="400" border="0" align="center" cellpadding="3" cellspacing="3" class="font1">
<tr>
<td>您的位置>班级管理</td>
</tr>
</table>
<table width="400" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="400" border="0" cellpadding="0" cellspacing="0" background="images/gnymtbz.gif">
<tr>
<td width="135"><img src="images/bjgl.gif" width="135" height="36"></td>
<td> </td>
<td width="100"><img src="images/gnymtyb.gif" width="100" height="36"></td>
</tr>
</table></td>
</tr>
<tr>
<td><table width="400" border="0" cellpadding="0" cellspacing="0" background="images/n_bk.gif">
<tr>
<td align="center" class="information"><br>
<table width="380" border="0" cellpadding="0" cellspacing="0" bgcolor="666b52">
<tr>
<td>
<table width="100%" border="0" cellpadding="2" cellspacing="1">
<form name="form1" method="post" action="">
<tr>
<td height="18" colspan="6"><font color="#FFFFFF"><strong>用户管理</strong></font></td>
</tr>
<tr>
<td height="16" colspan="6" align="center" bgcolor="E3E3CF"><input type="submit" name="Submit" value="踢出班级">
<input name="Submit" type="submit" id="Submit" value="升为管理员">
<input name="Submit" type="submit" id="Submit" value="降为班级成员">
</td>
</tr>
<tr>
<td width="20" align="center" bgcolor="E3E3CF"> </td>
<td align="center" bgcolor="E3E3CF">
<div align="center"><strong>状态</strong></div></td>
<td bgcolor="E3E3CF"> <div align="center"><strong>姓名</strong></div></td>
<td bgcolor="E3E3CF"> <div align="center"><strong>联系方式</strong></div></td>
<td bgcolor="E3E3CF"> <div align="center"><strong>来访</strong></div></td>
<td bgcolor="E3E3CF"> <div align="center"><strong>上次访问</strong></div></td>
</tr>
<%if not rs.eof then
for i=1 to rs.PageSize
usergroup=rs("usergroup")
select case usergroup
case 1'等待验证的班级成员
usergroup="验证中"
case 2 '班级成员
usergroup="成员"
case 3 '管理员
usergroup="<font color='#FF0000'>管理员</font>"
end select
%>
<tr align="center">
<td valign="middle" bgcolor="#f1f1eb">
<input name="userid" type="radio" value="<%=rs("username")%>">
</td>
<td height="16" valign="middle" bgcolor="#f1f1eb"><%=usergroup%> </td>
<td bgcolor="#FFFFFF"><a href="member.asp?id=<%=rs("username")%>"><%=rs("realname")%></a></td>
<td bgcolor="#f1f1eb"><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a></td>
<td width="40" bgcolor="#FFFFFF"><%=rs("logno")%></td>
<td bgcolor="#f1f1eb"><%=formatdate(rs("logtime"))%></td>
</tr>
<%rs.movenext
if rs.EOF then Exit For
next
end if
rs.close
set rs=nothing%>
</form>
</table></td>
</tr>
</table>
<br>
<table width="380" border="0" cellpadding="0" cellspacing="1" bgcolor="#666B52">
<tr>
<td><table width="380" border="0" align="center" cellpadding="0" cellspacing="0" class="font1">
<tr>
<td align="center" bgcolor="#f1f1eb">
<% call LastNextPage(maxpage,page,result_num) %>
</td>
</tr>
</table></td>
</tr>
</table>
<br> </td>
</tr>
</table></td>
</tr>
<tr>
<td><img src="images/n_foot.gif" width="400" height="10"></td>
</tr>
</table>
<div align="center"></div></td>
</tr>
</table></td>
<td width="38" valign="top" background="images/right_b.gif"><img src="images/right_b.gif" width="38" height="5"></td>
</tr>
</table></td>
</tr>
<tr>
<td colspan="3"><img src="images/z_f.gif" width="776" height="26"></td>
</tr>
<tr>
<td colspan="3"> </td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -