www.gusucode.com > 共享世纪内容管理系统 2.1 build 080704 全站开源版 > admin/user_list.asp
<!--#include file="top.asp"--> <%Admin="UserSee"%> <!--#include file="check.asp"--> <!--#include file="mdb_path_user.asp"--> <html> <head> <title>管理中心 - 共享世纪新闻文章管理系统</title> <meta copy="WWW.2KY.CN 共享世纪"> <link rel="stylesheet" href="admin.css" type="text/css"> </head> <script language="javascript"> function xoYuStudio() { for (var i=0;i<document.xoYuStudioH.xoYuStudioID.length;i++) { var e=document.xoYuStudioH.xoYuStudioID[i]; e.checked=!e.checked; } } </script> <body> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <tr> <th width="100%"><b>会员管理-> <% if request("dj")="0" then response.write "普通会员" if request("dj")="1" then response.write "高级会员" if request("dj")="2" then response.write "栏目管理员" if request("dj")="3" then response.write "系统管理员" if request("k")<>"" then response.write "所有用户-> 搜索结果("&request("k")&")" if request("dj")<>"0" and request("dj")<>"1" and request("dj")<>"2" and request("k")="" then response.write "所有用户"%></b> ①:普通会员 ②:认证会员 ③:栏目管理员 ④:系统管理员</th> </tr> </table> <% if not isempty(request("page")) then currentPage=cint(request("page")) else currentPage=1 end if MaxPerPage=20 '###每页显示条数 set rs=server.CreateObject("ADODB.RecordSet") if request("k")<>"" then kkk=" and user like '%"&request("k")&"%'" end if if request("dj")<>"" then sql="select * from userinfo where dj="&request("dj")&" and dj<>4"&kkk&" order by id desc" else 'sql="select * from userinfo where dj<>4"&kkk&" order by id desc" sql="select * from userinfo where user like '%"&request("k")&"%' order by id desc" end if rs.open sql,conn,1,1 if rs.eof and rs.bof then response.write "<p align='center'>还没找到任何用户</p>" else totalPut=rs.recordcount rs.move (currentPage-1)*MaxPerPage rs.pagesize=MaxPerPage '得到每页数 mpage=rs.pagecount '得到总页数 %> </table> <table width="95%" border="0" cellspacing="1" cellpadding="3" align=center class="tableBorder"> <form action="user_save.asp?dj=<%=request("dj")%>&page=<%=currentPage%>&k=<%=request("k")%>" method=post name="xoYuStudioH"> <tr> <td width="100%" colspan="9" class=forumrow><%call page()%></td> </tr> <tr align="center"> <td width="8%" class=forumHeaderBackgroundAlternate>ID</td> <td width="8%" class=forumHeaderBackgroundAlternate><a href="javascript:xoYuStudio()">选择</a></td> <td class=forumHeaderBackgroundAlternate>用户名</td> <td width="8%" class=forumHeaderBackgroundAlternate>邮箱</td> <td width="15%" class=forumHeaderBackgroundAlternate>OICQ</td> <td width="8%" class=forumHeaderBackgroundAlternate>级别</td> <td width="20%" class=forumHeaderBackgroundAlternate>注册时间</td> <td width="8%" class=forumHeaderBackgroundAlternate>状态</td> </tr> <% i=0 do while not rs.EOF%> <tr align="center"> <td width="8%" class=forumrow><%=rs("id")%></td> <td width="8%" class=forumrow><input type="checkbox" name="xoYuStudioID" value="<%=rs("id")%>"></td> <td class=forumrow><a href="user_edit.asp?id=<%=rs("id")%>"><%=rs("user")%></td> <td width="8%" class=forumrow><%if rs("email")<>"" then%><a href="mailto:<%=rs("email")%>">e-mail</a><%end if%></td> <td width="15%" class=forumrow><%=rs("oicq")%></a></td> <td width="8%" class=forumrow><% if rs("dj")=0 then response.write "<font color=""#808080"">①</font>" if rs("dj")=1 then response.write "<font color=""#0000FF"">②</font>" if rs("dj")=2 then response.write "<font color=""#FF0000"">③</font>" if rs("dj")=3 then response.write "<font color=""#FF0000"">④</font>" %></td> <td width="20%" class=forumrow><%=rs("regdate")%></td> <td width="8%" class=forumrow><%if rs("lock")=1 then%><font color=#FF0000>锁定</font><%else%>正常<%end if%></td> </tr> <%i=i+1 if i>=MaxPerPage then exit do rs.movenext loop %> <tr align="center"> <td width="8%" class=forumHeaderBackgroundAlternate>ID</td> <td width="8%" class=forumHeaderBackgroundAlternate><a href="javascript:xoYuStudio()">选择</a></td> <td class=forumHeaderBackgroundAlternate>用户名</td> <td width="8%" class=forumHeaderBackgroundAlternate>邮箱</td> <td width="15%" class=forumHeaderBackgroundAlternate>OICQ</td> <td width="8%" class=forumHeaderBackgroundAlternate>级别</td> <td width="20%" class=forumHeaderBackgroundAlternate>注册时间</td> <td width="8%" class=forumHeaderBackgroundAlternate>状态</td> </tr> <tr> <td width="100%" colspan="9" class=forumrow><input onClick="{if(confirm('确定删除选定用户吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" type="submit" value="删除" name="xoYuStudioDo"> | <input onClick="{if(confirm('确定锁定选定用户吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" type="submit" value="锁定" name="xoYuStudioDo"> | <input onClick="{if(confirm('确定激活选定用户吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" type="submit" value="激活" name="xoYuStudioDo"> | <select size="1" name="newdj"> <option value=""></option> <option value="0">①:普通会员</option> <option value="1">②:认证会员</option> <option value="2">③:栏目管理员</option> <option value="3">③:系统管理员</option> </select><input onClick="{if(confirm('确定修改选定用户级别吗!?')){this.document.xoYuStudioH.submit();return true;}return false;}" type="submit" value="等级" name="xoYuStudioDo"> | <input type="text" name="k" size="13"><input type="submit" value="搜索用户名" name="xoYuStudioDo"></td> </tr> <tr> <td width="98%" colspan="9" class=forumHeaderBackgroundAlternate><% call page() sub page()%>页次:<b><font color="#FF0000"><%=currentPage%></font>/<%=mpage%></b>,每页<b><%=MaxPerPage%></b>个,<%if request("k")<>"" then%><font color="#FF0000">搜到</font><%else%>当前<%end if%>用户<b><%=totalPut%></b>个 <% pageno=currentPage if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then pageno=1 end if %> [ <%if cint(pageno)>1 then%><a href=user_list.asp?id=<%=request("id")%>&k=<%=request("k")%>><%end if%><<-</a> <%if cint(pageno)>1 then%><a href=user_list.asp?id=<%=request("id")%>&page=<%=pageno-1%>&k=<%=request("k")%>><%end if%><-</a><% pp=cint(pageno)-3 if pp<1 then pp=1 end if for pno=pp to mpage p=p+1 if pno=cint(pageno) then%> <font color="#FF0000"><%=pno%></font><%else%> <a href=user_list.asp?id=<%=request("id")%>&page=<%=pno%>&k=<%=request("k")%>><%=pno%></a><%end if%> <% if p>=7 then exit for next%> <%if cint(pageno)< mpage then%> <a href=user_list.asp?id=<%=request("id")%>&page=<%=pageno+1%>&k=<%=request("k")%>><%end if%>-></a> <%if cint(pageno)< mpage then%><a href=user_list.asp?id=<%=request("id")%>&page=<%=mpage%>&k=<%=request("k")%>><%end if%>->></a> ]<% end sub%></td> </tr> </form> </table> <%end if%> <% set rs=nothing conn.close set conn=nothing%> </body> </html>