📄 common.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="identify.asp"-->
<!--#include file="../conn.asp"-->
<% se_indentify(se_null)
dim tt(10)
tt(1)="<a href='../news/back/manage.asp'>宣传页实时重大新闻的管理</a>"
tt(2)="<a href='../inform/back/manage.asp'>首页信息发布的管理</a>"
tt(3)="<a href='../notice/back/manage.asp'>大学生科技活动基地通知的管理</a>"
tt(4)="<a href='../share/back/common.asp'>资源共享平台的管理</a>"
tt(5)="<a href='../teaching/eteach/back/index.asp'>电子教案的管理</a>"
tt(6)="<a href='../download/back/index.asp'>下载基地的管理</a>"
tt(7)="<a href='../manage/back/index.asp'>规章制度的管理</a>"
tt(8)="<a href='../experiment/index.asp'>研究与设计性实验的管理</a>"
tt(9)="<a href='../introduction/back/manage.asp'>教研立项的管理</a>"
tt(10)="<a href='../mm/manage/ListEdit.asp'>视频文件的管理</a>"
tta="<a href='usrmng.asp'>用户管理</a>"
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后台管理</title>
<script language="jscript">
<!--
function godel(i,j){
var re;
re=confirm("确认删除用户"+j+"?");
if(re)
document.location.href="delete.asp?back=advance.asp&proid="+i;
}
-->
</script>
</head>
<body>
<%
if session("usertype")=0 then
%>
<h3>当前您还没有得到任何权限，请等待超级管理员为您分配权限。</h3><br /><br />
<a href="logout.asp">点击此处注销并返回首页
</a>
<%else%>
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td>您可以进行的操作：<div align="right"><a href="logout.asp">注销</a></div></td>
</tr>
<% for i=1 to 10
if getbit(session("usertype"),1) or getbit(session("usertype"),15) then response.Write("<tr><td>"&tt(i)&"</td></tr>")
next
if getbit(session("usertype"),15) then Response.Write("<tr><td>"&tta&"</td></tr>")
%>
</table>
<%if getbit(session("usertype"),15) then
Dim RS
sql="select * from tbl_user where usertype='0'"
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open sql,conn,1,3
if rs.EOF or rs.BOF then
rs.Close
set rs=nothing
conn.Close
set conn=nothing
else %>
有新注册用户！
<br>
<form name="newusr" id="newusr" method="post" action="chguser.asp?back=common.asp">
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td>真实姓名</td>
<td>用户名</td>
<td>注册时间</td>
<td>授予权限</td>
<td>删除</td>
</tr>
<%
'输出数据表的所有内容
RS.MoveFirst
ActFr="<input name='utype"
ActMid="' type='checkbox' value='"
ActTl="' />"
j=0
dim ttn(7)
ttn(1)="普通管理员"
tt_super="超级管理员（慎用）"
While Not RS.EOF
j=j+1
response.Write("<tr/>")
for i=1 to 2
response.Write("<td>"&rs(i)&"</td>")
next
response.Write("<td>"&rs("datetime")&"</td>")
response.Write("<td>")
k=1
for i=1 to 1
response.Write(ActFr&j&i&ActMid&k&ActTl&ttn(i))
k=k*2
next
response.Write(ActFr&j&i&ActMid&16384&ActTl&tt_super)
response.Write("<input name='usr_id"&j&"' type='hidden' value='"&rs("id")&"' />")
response.Write("<td><input name='del' type='button' id='del' value='删除' onclick='godel("&rs("id")&","&""""&rs("username")&""""&")' /></td>")
response.Write("</tr>")
rs.movenext
wend
rs.Close
set rs=nothing
conn.Close
%>
</table>
<input name='usrnum' type='hidden' id='usrnum' value='<%=j%>' />
<br />
<input type="submit" name="Submit" value="提交" />
</form>
<%end if
end if
end if%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -