<!--#include file= "conn.asp "-->
<% set rs=server.CreateObject( "adodb.recordset ")
sql= "select * from user "
if session( "userlimit ") <1 then sql=sql& " where user_name= ' "&session( "username ")& " ' "
sql=sql& " order by user_name desc "
rs.open sql,conn,1,1
rs.pagesize=2
PageNo=request( "PageNo ")
if request( "pagerno ")= " "or request( "pageno ") <=1 then pageno=1
totalpages=rs.pagecount
if request.servervariables( "content_length ") > 0 then
currentpage=1
else
currentpage=clng(PageNo)
end if
if currentpage> totalpages then currentpage=totalpages
if not(rs.eof) then rs.absolutepage = currentpage
%>
<html>
<head>
<meta http-equiv= "Content-Type " content= "text/html; charset=gb2312 " />
<title> 显示用户 </title>
</head>
<body>
<table width= "98% " border= "0 " align= "center " cellpadding= "0 " cellspacing= "0 ">
<tr>
<td>
<table width= "100% " border= "0 " cellpadding= "0 " cellspacing= "1 " bgcolor= "#F4F9FF ">
<tr bgcolor= "#E3E8F9 ">
<td width= "20 " height= "15 "> </td>
<td height= "15 "> <div align= "center "> <font size= "2 "> <strong> 用 户 名 </strong> </font> </div> </td>
<td width= "80 " height= "15 "> <div align= "center "> <font size= "2 "> <strong> 用户类型 </strong> </font> </div> </td>
<td width= "80 " height= "15 "> <div align= "center "> <font size= "2 "> <strong> 管理 </strong> </font> </div> </td>
</tr>
<%
rowcount=(currentpage - 1)*rs.pagesize
for i=1 to rs.pagesize
if rs.eof then exit for
%>
<tr bgcolor= "#F4F8FF ">
<td> <div align= "center "> <img src= "images/icon9.gif " width= "8 " height= "10 "> </div> </td>