<!--#include file="Conn1.asp" -->
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from JaAdmin order by UserID desc",conn1,1,1
tj=rs("tj")
session("tj")=tj
%>
<link href="other/Admin.css" rel="stylesheet" type="text/css"><br>
<table width="800" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td width="246" bgcolor="#eeeeee"><div align="center">用户名</div></td>
<td width="246" bgcolor="#eeeeee"><div align="center">E-mail</div></td>
<td width="164" bgcolor="#eeeeee"><div align="center">注册类型</div></td>
<td width="164" bgcolor="#eeeeee"><div align="center">注册时间</div></td>
<td width="164" bgcolor="#eeeeee"><div align="center">是否推荐</div></td>
<td width="247" bgcolor="#eeeeee"><div align="center">操作</div></td>
</tr>
<%
if rs.eof and rs.bof then
%>
<table width="440" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="42" align="center">暂无此内容!</td>
</tr>
</table>
<% else
rs.pagesize=15
currentpage=Clng(request("page"))
if currentpage<1 then currentpage=1
if currentpage>rs.pagecount then currentpage=rs.pagecount
rs.absolutepage=currentpage
do while not rs.eof
%>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("JaAdmin")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("UserEmail")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("Userweb")%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=rs("JaDate")%></div></td>
<td bgcolor="#FFFFFF"><div align="center">
<% if cint(session("tj"))=0 then
response.write "未推荐"
else
response.write "已推荐"
end if
%>
</div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="tj.asp?UserID=<%response.write rs("UserID") %>"onClick="{if(confirm('您确定要推荐该记录吗?')){return true;}return false;}">推荐</a>/<a href="qtj.asp?UserID=<%response.write rs("UserID") %>"onClick="{if(confirm('您确定要推荐该记录吗?')){return true;}return false;}">取消推荐</a>
</div></td>
</tr>
<%
i=i+1
rs.MoveNext
If i>=rs.pagesize Then Exit Do
Loop
end if %>
</table>
<table width="800" border="0" align="center" cellpadding="4" cellspacing="0">
<% if rs.recordcount<=15 then%>
<tr>
<td height="5"></td>
</tr>
<tr>
<td><div align="left">共有<font color=red><%=rs.recordcount%></font> 条 当前第<%=currentpage%> 页
</div></td>
</tr>
<% else%>
<tr>
<td><div align="left">共有<font color=red><%=rs.recordcount%></font>条 <a
href="Admin_User.asp">首页 </a><a href="Admin_User.asp?page=<%=currentpage-1%>">上一页 </a><a href="Admin_User.asp?page=<%=currentpage+1%>">下一页 </a> <a href="Admin_User.asp?page=<%=rs.pagecount%>">尾页 </a>当前第<font color="#FF0000"><%=currentpage%>/<%=rs.pagecount%></font>页
</div></td>
</tr>
<% end if%>
</table>