📄 user_list.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<%dim utype,username
utype=Trim(Request.QueryString("type"))
username=Trim(Request("username"))%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="../style.css" rel="stylesheet" type="text/css">
<STYLE>
BODY {
scrollbar-face-color : #96A2AD;
scrollbar-shadow-color : #96A2AD;
scrollbar-highlight-color : #96A2AD;
scrollbar-3dlight-color : #96A2AD;
scrollbar-darkshadow-color : #96A2AD;
scrollbar-track-color : #CCCCCC;
scrollbar-arrow-color : #FFFFFF;
}
</STYLE>
<SCRIPT language=JScript>
function del(usr)
{
if ( confirm("您确定要删除此用户吗？"))
{
window.location.href = "user_del.asp?usr=" + usr +"&type=<%=utype%>"
}
}
</SCRIPT>
</head>
<body>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="0" bgcolor="#EEEEEE">
<tr align="center" bgcolor="#708090">
<td class="TdBorderRB"><font color="#FFFFFF">用户名</font></td>
<td class="TdBorderRB"><font color="#FFFFFF">权限(增,删,改,审,管理他人,高级管理)</font></td>
<td class="TdBorderRB"><font color="#FFFFFF">注册时间</font></td>
<td class="TdBorderRB"><font color="#FFFFFF">登录次数</font></td>
<td class="TdBorderRB"><font color="#FFFFFF">最后登录时间</font></td>
<td class="TdBorderRB"><font color="#FFFFFF">最后登录IP</font></td>
<td class="TdBorderRB"><font color="#FFFFFF">积分</font></td>
<td class="TdBorderRB"><font color="#FFFFFF">编辑</font></td>
<td class="TdBorderRB"><font color="#FFFFFF">删除</font></td>
<td class="TdBorderB"><font color="#FFFFFF">状态</font></td>
</tr>
<%dim sql,rs,n,totalrec,currentpage,rowcount,powers,onepage
onepage=20
select case utype
case "admin"
sql="select ID,USR,Power,RegDate,LastLogin,LastLoginIP,LockUser,LoginTimes,Point from UserInfo where IsAdmin=true and USR like '%"&username&"%' order by ID desc"
case "member"
sql="select ID,USR,Power,RegDate,LastLogin,LastLoginIP,LockUser,LoginTimes,Point from UserInfo where IsAdmin=false and USR like '%"&username&"%' order by ID desc"
end select
set rs=server.createobject("adodb.recordset")
rs.cursorlocation = 3
rs.pagesize = onepage
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write "<tr bgcolor=#EEEEEE><td colspan=10><center>没有用户！</center></td></tr>"
else
if err.number<>0 then '错误处理
response.write "数据库操作失败：" & err.description
err.clear
else
if not (rs.eof and rs.bof) then '检测记录集是否为空
totalrec = RS.RecordCount 'totalrec：总记录条数
if rs.recordcount mod onepage = 0 then '计算总页数,recordcount:数据的总记录数
n = rs.recordcount\onepage 'n:总页数
else
n = rs.recordcount\onepage+1
end if
currentpage = request("page") 'currentpage:当前页
If currentpage <> "" then
currentpage = cint(currentpage)
if currentpage < 1 then
currentpage = 1
end if
if err.number <> 0 then
err.clear
currentpage = 1
end if
else
currentpage = 1
End if
if currentpage*onepage > totalrec and not((currentpage-1)*onepage < totalrec)then
currentPage=1
end if
rs.absolutepage = currentpage 'absolutepage：设置指针指向某页开头
rowcount = rs.pagesize
do while not rs.eof and rowcount > 0
response.write "<tr align=center><td class=TdBorderRB>"&rs(1)&"</td><td class=TdBorderRB>"
powers=split(rs(2),",")
if powers(0)="1" then response.write "√ " else response.write "× " end if
if powers(1)="1" then response.write "√ " else response.write "× " end if
if powers(2)="1" then response.write "√ " else response.write "× " end if
if powers(3)="1" then response.write "√ " else response.write "× " end if
if powers(4)="1" then response.write "√ " else response.write "× " end if
if powers(5)="1" then response.write "√" else response.write "×" end if
response.write "</td><td class=TdBorderRB>"&rs(3)&"</td>"&_
"<td class=TdBorderRB>"&rs(7)&"</td><td class=TdBorderRB>"&rs(4)&"</td>"&_
"<td class=TdBorderRB>"&rs(5)&"</td><td class=TdBorderRB>"&rs(8)&"</td>"&_
"<td class=TdBorderRB><a href=user_edit.asp?id="&rs(0)&"&type="&utype&">编辑</a></td>"&_
"<td class=TdBorderRB><a href=javascript:del('"&rs(1)&"')>删除</a></td>"&_
"<td class=TdBorderB>"
if rs(6)=false then
response.write "正常[<a href=user_lock.asp?usr="&rs(1)&"&action=lock>锁定</a>]"
else
response.write "锁定[<a href=user_lock.asp?usr="&rs(1)&"&action=unlock>解锁</a>]"
end if
response.write "</td></tr>"
rowcount=rowcount-1
rs.movenext
loop
end if
end if
end if
rs.close
set rs=nothing
conn.close
set conn=nothing%>
</table>
<%call listpages()%>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="2" bgcolor="#EEEEEE">
<tr><form name="form1" method="post" action="">
<td align="center">
用户名：
<input name="username" type="text" class="input" id="username">
<input name="Submit" type="submit" class="button" value="查找">
</td>
</form>
</tr>
</table>
</body>
</html>
<%sub listPages()
if n <= 1 then exit sub
response.write("<table width=95% border=0 align=center cellpadding=2 cellspacing=1 bgcolor=#EEEEEE>")
response.write("<tr><td align=center bgcolor=#EEEEEE>共有"&totalrec&"条记录")
if currentpage = 1 then
response.write("<font color=darkgray> [首页] [上一页]</font>")
else
response.write(" [<a href="&request.ServerVariables("script_name")&"?type="&uType&"&username="&username&"&Page=1>首页</a>]")
response.write(" [<a href="&request.ServerVariables("script_name")&"?type="&uType&"&username="&username&"&Page="¤tpage-1&">上一页</a>]")
end if
if currentpage = n then
response.write(" <font color=darkgray>[下一页] [尾页]</font>")
else
response.write(" [<a href="&request.ServerVariables("script_name")&"?type="&uType&"&username="&username&"&Page="¤tpage+1&">下一页</a>]")
response.write(" [<a href="&request.ServerVariables("script_name")&"?type="&uType&"&username="&username&"&Page="&n&">尾页</a>]")
end if
response.write(" 当前为第"¤tpage&"页 共"&n&"页 "&onepage&"条记录/页 转到")
response.write("<select name=currentpage size=1 style=background-color:#eeeeee;color:#000000;font-size:12px onChange=javascript:window.location.href=this.options[this.selectedIndex].value>")
dim i
for i = 1 to n
response.write("<option value="&request.ServerVariables("script_name")&"?type="&uType&"&username="&username&"&Page="&i)
if cint(currentpage)=cint(i) then
response.write(" selected")
end if
response.write(">第"&i&"页</option>")
next
response.write("</select></td></tr></table>")
end sub
response.End()%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -