?? userchk.asp
字號:
<!--#INCLUDE FILE="connection.asp" -->
<%
if Session("Urule")<>"a" then
response.redirect "error.asp?id=admin"
end if
%><!--#INCLUDE FILE="check.asp" -->
<HTML><HEAD><TITLE>uesercheck</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>
</HEAD>
<BODY bgColor=#ffffff leftMargin=0 topMargin=0>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD bgColor=#4e5960 class=heading colSpan=2 height=3></TD></TR>
<TR>
<TD bgColor=#4e5960 class=heading> <FONT
color=#ffffff><B>注冊用戶管理</B></FONT></TD>
</TR>
<TR>
<FORM action="userchk.asp" method=post name=sele>
<TD vAlign=top>
<TABLE border=0 cellPadding=2 cellSpacing=1 width="100%">
<TBODY>
<TR bgColor=#999999>
<TD class=heading colspan=8>
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR>
<TD align=right width="2%"><IMG height=18
src="images/adorn.gif" width=10></TD>
<TD align=right><%
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
%> <table border="0" cellspacing="0" cellpadding="0" width="100%">
<tr> <form method=Post action="userchk.asp"><FONT COLOR="#ffffff">
[<b><%=rs.pagecount%></b>/<%=page%>頁] [共<%=totalfilm%>個] <%if page=1 then%> [首 頁] [上一頁] <% else %> [<a href="userchk.asp?page=1">首 頁</a>]
[<a href="userchk.asp?page=<%=page-1%>">上一頁</a>]<%end if%><%if rs.pagecount-page<1 then%> [下一頁] [尾 頁] <%else%> [<a href="userchk.asp?page=<%=page+1%>">下一頁</a>] [<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>
</tr>
</table></TD>
<TD width="3%"><IMG height=18
src="images/adorn.gif"
width=10></TD>
</TR>
</TBODY>
</TABLE>
</TD>
</TR>
<TR bgColor=#bfbfbf align=center>
<TD><b>姓名</b></TD>
<TD><b>用戶名</b></TD>
<TD><b>注冊時間</b></TD>
<TD><b>所屬單位</b></TD>
<TD><b>審核</b></TD>
<TD><b>修改</b></TD>
<TD><B>刪除</B></TD>
<TD><b>權限</b></TD>
</TR>
<%
count=0
do while not (rs.eof or rs.bof) and count<rs.PageSize
%>
<TR>
<td height="23" bgColor=#efefef>
<p align="center"><%=rs("姓名")%>
</td>
<td bgColor=#efefef>
<p align="center"><%=rs("用戶名")%>
</td>
<td bgColor=#efefef>
<p align="center"><%=rs("時間")%>
</td>
<td bgColor=#efefef>
<p align="center"><%=rs("部門")%>
</td>
<td align="center" bgColor=#efefef><% if rs("審核")=true then %>已審核<%else%><a href="shenghe.asp?id=<%=rs("id")%>" onclick="return pass();">待審核</a><%end if%></td>
<td bgColor=#efefef>
<p align="center"><a href="#" onClick="MM_openBrWindow('edit.asp?id=<%=rs("id")%>','','width=500,height=300')">修改
</a>
</td>
<td bgColor=#efefef>
<p align="center"> <a href="dele.asp?id=<%=rs("id")%>" onclick="return cform();">刪除</a>
</td>
<td bgColor=#efefef><%
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%>
<tr>
<td colspan=8 bgcolor=#9c9a9c style="color:red">（注：可以通過修改用戶資料來更改用戶權限）
</td>
</tr>
</TBODY>
</TABLE>
<BR>
</TD></FORM></TR></TBODY></TABLE></BODY></HTML>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -