📄 tb_gl.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<title>【112宿舍~~乱谈】---------后台-------人员审批</title>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<meta name="author" content="广西民族学院4坡9栋112宿舍淡国乾,Goking" />
<meta name="description" content="广西民族学院,艺术学院,播音与主持,04级,男生宿舍,4坡9栋" />
<meta name="description" content="广西民族学院艺术学院04级播音与主持艺术专业淡国乾,BLOG," />
<meta name="keywords" content="广西民族学院04级,淡国乾" />
<link rel="stylesheet" href="style.css" type="text/css">
</head>
<body>
<%id=request.querystring("id")
xm=request.querystring("xm")
yhm=request.querystring("yhm")
jb=request.querystring("jb")
cz=request.querystring("cz")
if id<>"" and cz="sp" then
exec="update admin set jb='admin' where id="+id
conn.execute exec
end if
if id<>"" and cz="cx" then
exec="update admin set jb='1' where id="+id
conn.execute exec
end if
if id<>"" and cz="sc" then
exec="delete from admin where id="+id
conn.execute exec
exec="delete from lt where yhm='"+yhm+"'"
conn.execute exec
conn.close
response.redirect "tb_gl.asp"
end if
set rs=server.createobject("adodb.recordset")
if session("yhm")<>"" or session("jb")="admin" then
exec="select count(*) as ooo from admin"
rs.open exec,conn,1,1
zts=rs("ooo")
rs.close
exec="select * from admin order by id desc"
rs.open exec,conn,1,1
page =int(Request.QueryString("page"))
rs.PageSize =20
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
if not rs.eof then rs.AbsolutePage =page%>
<center>
<a href="http://112.ygwz.cn">【112宿舍】</a> 共注册<font color="#FF0000"><%=zts%></font>人
<a href="index.asp">返回乱谈</a>
</center>
<table width="778" border="0" cellpadding="1" cellspacing="1" bgcolor="#0099cc" align="center">
<tr>
<td align="center" background="images/bg.gif">用户名</td>
<td align="center" background="images/bg.gif">级别</td>
<td align="center" background="images/bg.gif" colspan="3" width="20%">处理</td>
</tr>
<%For i = 1 To rs.PageSize
If rs.EOF Then Exit For
if rs("jb")="1" then
jb="普通"
else
jb="管理员"
end if%>
<tr>
<td align="center" background="images/bg.gif"><%=rs("yhm")%></td>
<td align="center" background="images/bg.gif"><%=jb%></td>
<td align="center" background="images/bg.gif">
<a href="tb_gl.asp?id=<%=rs("id")%>&cz=sp" onClick="javascript:return confirm('如确认此用户将拥有超级权限?')"><font color="#FF0000">管理权限</font></a></td>
<td align="center" background="images/bg.gif">
<a href="tb_gl.asp?id=<%=rs("id")%>&cz=cx" onClick="javascript:return confirm('如确认此用户将降为普通用户?')"><font color="#FF0000">普通权限</font></a></td>
<td align="center" background="images/bg.gif">
<a href="tb_gl.asp?id=<%=rs("id")%>&cz=sc&yhm=<%=rs("yhm")%>" onClick="javascript:return confirm('确定删除此用户吗?')"><font color="#FF0000">删除</font></a></td>
</tr>
<%rs.movenext
next%>
</table>
<center>
每页<%=rs.PageSize%>条记录
第
<%for i=1 to rs.PageCount%>
<a href="tb_gl.asp?lx=<%=lx%>&page=<%=i%>">
<%if i=page then
response.write i
else
response.write "["+cstr(i)+"]"
end if%>
</a>
<%next%>
页
</p>
</center>
<%end if
rs.close
conn.close
set conn=nothing%>
</body>
</html>
<script language='javascirpt'>
function sptg(id)
{
window.location="tb_gl.asp?id="+id;
}
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -