📄 userchk.asp
字号:
<!--#INCLUDE FILE="data.asp" -->
<%
if Session("Urule")<>"a" then
response.redirect "error.asp?id=admin"
end if
%><!--#INCLUDE FILE="check.asp" -->
<HTML><HEAD><TITLE>用户管理</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<LINK href="oa.css" rel=stylesheet>
<script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
//-->
function cform(){
if(!confirm("您确认删除此用户！"))
return false;
}
function pass(){
if(!confirm("您确认该用户通过审核！"))
return false;
}
</script>
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
//-->
</script> <script language="JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>
<link href="web.css" rel="stylesheet" type="text/css">
<body leftmargin="0" topmargin="0">
<div align="center">
<table width="100%" height="88" border="0" cellspacing="0">
<tr>
<td valign="bottom" background="images/topbg.gif"> <div align="center">
<table width="50%" height="49" border="0" cellspacing="0">
<tr>
<td colspan="6"><div align="center"><b></b></div></td>
</tr>
<tr>
<td width="16%"><div align="center"><font size="2"><b><font color="#ffffff" size="3"><span class="font2"><a href="index.htm"><font color="#FFFFFF">首页</font></a></span></font></b></font></div></td>
<td width="17%"><div align="center"><font size="2"><b><font color="#ffffff" size="3"><span class="font2"> <a href="#" onClick="MM_openBrWindow('register.asp','','width=500,height=450')"><font color="#FFFFFF">用户注册</font></a></span></font></b></font></div></td>
<td width="20%"><div align="center"><font size="2"><b><font color="#ffffff" size="3"><span class="font2"><a href="addfile.asp"><font color="#FFFFFF">上报文件</font></a></span></font></b></font></div></td>
<td width="18%"><div align="center"><font size="2"><b><font color="#ffffff" size="3"><span class="font2"><a href="shouqu.asp"><font color="#FFFFFF">报文管理</font></a></span></font></b></font></div></td>
<td width="15%"><div align="center"><font size="2"><b><font color="#ffffff" size="3"><span class="font2"><a href="bk"></a></span></font><font size="2"><b><font color="#ffffff" size="3"><span class="font2"><a href="userchk.asp"><font color="#FFFFFF">用户管理</font></a></span></font></b></font></b></font></div></td>
<td width="14%"><div align="center"><font size="2"><b><font color="#ffffff" size="3"><span class="font2"><a href="http://bbs.cocms.com" target="_blank"><font color="#FFFFFF">网站留言</font></a></span></font></b></font></div></td>
</tr>
</table>
</div></td>
</tr>
</table>
<table border="0" width="513" cellspacing="0" cellpadding="0" height="372">
<tr>
<td height="60" width="48"> </td>
<td height="60" width="429"> </td>
<td height="60" width="36"> </td>
</tr><tr><td width="513" colspan="3">
<table border="0" width="513" cellspacing="0" cellpadding="0" height="291"><tr>
<td width="4"> </td><td width="504">
<table border="0" width="504" cellspacing="0" cellpadding="0" height="294">
<tr>
<td height="24" width="504" colspan="8"><B>注册用户管理:
</B><FONT
color=#ffffff><B> <a href="#" onClick="MM_openBrWindow('register.asp','','width=510,height=430')">添加新用户</a></B></FONT></td>
</tr><tr>
<%
dim page
page=request("page")
PageSize = 15
dim rs,strSQL,news
strSQL ="select * from user ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open strSQL,Conn,3,3
rs.PageSize = PageSize
totalfilm=rs.recordcount
pgnum=rs.Pagecount
if page="" or clng(page)<1 then page=1
if clng(page) > pgnum then page=pgnum
if pgnum>0 then rs.AbsolutePage=page
if rs.eof then
response.write "<font color='#ffffff' class='3dfont'>还没有任何东东</font>"
else
%><td height="25" width="504" colspan="8" bgcolor="#EFEFEF"><form method=Post action="userchk0.asp">
[<b><%=rs.pagecount%></b>/<%=page%>页] [共<%=totalfilm%>个]
<%if page=1 then%>
[首 页] [上一页]
<% else %>
[<FONT COLOR="#ffffff"><a href="userchk.asp?page=1">首 页</a></FONT>] [<FONT COLOR="#ffffff"><a href="userchk.asp?page=<%=page-1%>">上一页</a></FONT>]
<%end if%>
<%if rs.pagecount-page<1 then%>
[下一页] [尾 页]
<%else%>
[<FONT COLOR="#ffffff"><a href="userchk.asp?page=<%=page+1%>">下一页</a></FONT>]
[<FONT COLOR="#ffffff"><a href="userchk.asp?page=<%=rs.pagecount%>">尾
页</a></FONT>]
<%end if%>
<input type='text' name='page' size=2 maxlength=10 style="font-size:9pt;color:#FFFFFF;background-color:#666666;border-left: 1px solid #000000; border-right: 1px solid #000000; border-top: 1px solid #000000; border-bottom: 1px solid #000000" value="<%=page%>" align=center>
<input style="border:1 solid black;FONT-SIZE: 9pt; FONT-STYLE: normal; FONT-VARIANT: normal; FONT-WEIGHT: normal; HEIGHT: 18px; LINE-HEIGHT: normal" type='submit' value=' Goto ' size=2></td></td></tr>
<tr>
<td width="79" height="30" bgcolor="#CCCCCC" align="center"> 用户名</td>
<td width="81" height="30" bgcolor="#CCCCCC" align="center"> 注册时间</td>
<td width="102" height="30" bgcolor="#CCCCCC" align="center"> 所属单位</td>
<td width="31" height="30" bgcolor="#CCCCCC" align="center"> 级别</td>
<td width="81" height="30" bgcolor="#CCCCCC" align="center"> 审核</td>
<td width="31" height="30" bgcolor="#CCCCCC" align="center"> 修改</td>
<td width="38" height="30" bgcolor="#CCCCCC" align="center"> 删除</td>
<td width="61" height="30" bgcolor="#CCCCCC" align="center"> 权限</td>
</tr>
<%
count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize
%>
<tr>
<td width="79" height="26" bgcolor="#EFEFEF" align="center"> <%=rs("用户名")%></td>
<td width="81" height="26" bgcolor="#EFEFEF" align="center"> <%=rs("时间")%></td>
<td width="102" height="26" bgcolor="#EFEFEF" align="center"><%=rs("部门")%> </td>
<td width="31" height="26" bgcolor="#EFEFEF" align="center"> <%=rs("ilevel")%></td>
<td width="81" height="26" bgcolor="#EFEFEF" align="center"><% if rs("审核")=true then %>
已审核
<%else%> <a href="shenghe.asp?id=<%=rs("id")%>" onclick="return pass();">待审核</a>
<%end if%>
</td>
<td width="31" height="26" bgcolor="#EFEFEF" align="center"><a href="#" onClick="MM_openBrWindow('edit.asp?id=<%=rs("id")%>','','width=500,height=300')">修改 </td>
<td width="38" height="26" bgcolor="#EFEFEF" align="center"><p align="center"> <a href="dele.asp?id=<%=rs("id")%>" onclick="return cform();">
删除 </td>
<td width="61" height="26" bgcolor="#EFEFEF" align="center">
<%
if rs("权限")="a" then
response.write "超级用户"
else if rs("权限")="b" then
response.write "管理员"
else
response.write "普通用户"
end if
end if%></td>
</TR>
<%rs.movenext
count=count+1
loop
end if%></td></tr>
<tr>
<td width="79"> </td>
<td width="81"> </td>
<td width="102"> </td>
<td width="31"> </td>
<td width="81"> </td>
<td width="31"> </td>
<td width="38"> </td>
<td width="61"> </td>
</tr>
</table></td></tr>
</table></td></tr>
<tr>
<td height="16" colspan="3"> </td>
</tr>
</table>
</div>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -