userlist.asp

来自「本程序修改自花香盈路6.0版。所有版权归原作者所有 本站修改后加入了些小偷程」· ASP 代码 · 共 123 行

<!--#include file="mdb.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/inc.asp"-->
<%if session("userlogin")="" then
response.write"<SCRIPT language=JavaScript>alert(' 请登陆后操作，谢谢你的支持 ！');"
response.write"JavaScript:window.close()</SCRIPT>"
response.end
end if
%>
<%
sql="select * from [User] order by LoginTimes desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
call head
call menu
%>
<table width="760" border="0" align="center" cellpadding="10" cellspacing="0" bgcolor="FFFFFF" class="table-hx66s">
  <tr>
    <td><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="table-zuoshang">
    <tr align="center" bgcolor="#FFFFFF">
    <td width="5%" height="23" class="table-xiayou">ID</td>
    <td width="15%" height="23" class="table-xiayou">用户名</td>
    <td width="5%" class="table-xiayou">性别</td>
    <td width="16%" class="table-xiayou">注册日期</td>
    <td width="8%" class="table-xiayou">登录次数</td>
    <td width="5%" class="table-xiayou">主页</td>
    <td width="5%" class="table-xiayou">E-mail</td>
    <td width="5%" class="table-xiayou">QQ</td>
    <td width="16%" class="table-xiayou">最后登录时间</td>
    <td width="15%" class="table-xiayou">发短消息</td>
    <td width="5%" class="table-xiayou">状态</td>
   </tr>
  <%if not rs.eof then
rs.Movefirst
rs.pagesize=adperpage
if trim(request("page"))<>"" then
    currentpage=clng(request("page"))
	if currentpage>rs.pagecount then
	   currentpage=rs.pagecount
	end if
else
    currentpage=1
end if
    totaldiary=rs.recordcount
	if currentpage<>1 then
	   if(currentpage-1)*adperpage<totaldiary then
	      rs.move(currentpage-1)*adperpage
		  dim bookmark
		  bookmark=rs.bookmark
	   end if
	end if
	if (totaldiary mod adperpage)=0 then
	   totalpages=totaldiary\adperpage
	else
	   totalpages=totaldiary\adperpage+1
	end if
i=0
do while not rs.eof and i<adperpage%>
  <tr align="center" bgcolor="#FFFFFF">
    <td height="21" class="table-xiayou"><%=rs("Userid")%></td>
    <td class="table-xiayou"><%=rs("UserName")%></td>
    <td class="table-xiayou"><%=rs("sex")%></td>
    <td class="table-xiayou"><%=rs("RegDate")%></td>
    <td class="table-xiayou"><%=rs("LoginTimes")%></td>
    <td class="table-xiayou"><a href="<%=rs("Homepage")%>"><img src="img/web.gif" width="11" height="11" border="0" alt="<%=rs("username")%>的主页是<%=rs("Homepage")%>"></a></td>
    <td class="table-xiayou"><a href="mailto:<%=rs("email")%>"><img src="img/mail.gif" width="11" height="11" border="0" alt="<%=rs("username")%>的E-mail是<%=rs("email")%>"></a></td>
    <td class="table-xiayou"><a href="http://friend.qq.com/cgi-bin/friend/user_show_info?ln=<%=rs("QQ")%>" target="_blank"><img src="img/qq.gif" width="16" height="16" border="0" alt="<%=rs("username")%>的QQ号码是<%=rs("QQ")%>"></a></td>
    <td class="table-xiayou"><%=rs("LastLoginTime")%></td>
    <td class="table-xiayou"><a href='messager.asp?action=new&touser=<%=rs("UserName")%>' onclick=""LyWindow(this.href,'dj','400','330','no','no','center');return false""><%=rs("UserName")%></a></td>
    <td class="table-xiayou">正常</td>
   </tr>
   <%i=i+1
rs.movenext
loop
else
If rs.EOF And rs.BOF Then%>
   <tr align="center" bgcolor="#FFFFFF">
    <td height="21" colspan="11">现在还没有用户！</td>
  </tr>
  <%end if
end if%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <form name="form2" method="post" action="">
    <tr>
      <td align="right"><%=currentpage%>/<%=totalpages%>页,<%=totaldiary%>条记录/<%=adperpage%>条每页.
          <%
i=1
dy10=false
showye=totalpages
if showye>10 then
dy10=true
showye=10
end if
for i=1 to showye
if i=currentpage then
%>
          <%=i%>
          <%else%>
          <a href="?page=<%=i%>"><%=i%></a>
          <%end if
next
if totalpages>currentpage then
if request("page")="" then
page=1
else
page=request("page")+1
end if%>
          <a href="?page=<%=page%>" title="下一页">>></a>
      <%end if%>&nbsp;&nbsp;</td>
    </tr>
  </form>
</table>
</td>
  </tr>
</table>
<%
rs.Close
set rs=nothing
conn.close
set conn=nothing
call footer%>