userlist.asp

本程序采用花香内核

<!--#include file="mdb.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/inc.asp"-->
<%if Request.Cookies("HX_USER")("User_Name")="" or isnull(Request.Cookies("HX_USER")("User_Name")) or Request.Cookies("HX_USER")("User_Pwd")="" or isnull(Request.Cookies("HX_USER")("User_Pwd")) 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="0" cellspacing="0" bgcolor="FFFFFF" class="table-hx66s">
<tr>
    <td height="25" align="center"><font color=red><B>会 员 列 表</B></font>(按登录次数排列)<td><tr>
<tr>
    <td>
<table width="740" border="1" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" align="center">
    <tr align="center" bgcolor="#FFFFFF">
    <td width="5%" height="23">等级</td>
    <td width="15%" height="23">用户名</td>
    <td width="5%">性别</td>
    <td width="16%">注册日期</td>
    <td width="8%">登录次数</td>
    <td width="5%">主页</td>
    <td width="5%">E-mail</td>
    <td width="5%">QQ</td>
    <td width="16%">最后登录时间</td>
    <td width="15%">发短消息</td>
    <td width="5%">状态</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="25"><%if rs("UserGrade")=0 then%> 
普通
<%end if%>
<%if rs("UserGrade")=1 then%> 
<font color=red>VIP</font>
<%end if%></td>
    <td><%=rs("UserName")%></td>
    <td><%=rs("sex")%></td>
    <td><%=rs("RegDate")%></td>
    <td><%=rs("LoginTimes")%></td>
    <td><a href="<%=rs("Homepage")%>"><img src="img/web.gif" width="11" height="11" border="0" alt="<%=rs("username")%>的主页是<%=rs("Homepage")%>"></a></td>
    <td><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><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><%=rs("LastLoginTime")%></td>
    <td><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><%if rs("userlock")=0 then%> 
正常
<%end if%>
<%if rs("userlock")=1 then%> 
<font color=red>锁定</font>
<%end if%></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" height="30"><%=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%>