📄 usrmng.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="identify.asp"-->
<!--#include file="../conn.asp"-->
<% se_indentify(se_super)%>
<!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="javascript">
<!--
function godel(i,j){
var re;
re=confirm("确认删除用户: "+j+" ?");
if(re)
document.location.href="delete.asp?back=usrmng.asp&proid="+i;
}
function fillCheckbox()
{
for(var i=1;i<=users.usrnum.value;i++){
type=document.getElementById("usr_type"+i).value
for(var j=1;j<2;j++)
if(getbit(type,j))
document.getElementById("utype"+i+j).checked=true;
if(getbit(type,15))
document.getElementById("utype"+i+j).checked=true;
}
}
function u_confirm(un,othis)
{
var re;
if(othis.checked){
re=confirm("确认将用户: "+un+" 提升为超级管理员?");
if(!re)
othis.checked=false;
}
else{
re=confirm("确认取消用户: "+un+" 的超级管理员权限?");
if(!re)
othis.checked=true;
}
}
function getbit(num,b){
num=Math.floor(num/Math.pow(2,(b-1)));
return num % 2;
}
-->
</script>
</head>
<body onload="fillCheckbox()">
<%
Set RS=Server.CreateObject("ADODB.RecordSet")
RS.Open "tbl_user",conn,1,3
%>
<form name="users" id="users" method="post" action="chguser.asp?back=usrmng.asp" >
<table width="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td colspan="5" align="center">用户管理</td>
</tr>
<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 tt(1)
tt(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&tt(i))
k=k*2
next
response.Write(ActFr&j&i&ActMid&"16384"&"' onclick='u_confirm("&""""&rs("username")&""""&",this)'/>"&tt_super) '管理员
response.Write("<input name='usr_id"&j&"' type='hidden' value='"&rs("id")&"' />")
response.Write("<input name='usr_type"&j&"' type='hidden' value='"&rs("usertype")&"' />")
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 name="submit" type="submit" value="提交" />
<a href="common.asp">返回</a>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -