📄 dealuser.asp
字号:
<%
If Session("admin_id")<>"" Then
%>
<!--#include file="conndata_dd.asp"-->
<html>
<head>
<title>显示注册信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../../css/style2.css" rel=stylesheet type=text/css>
</head>
<body bgcolor="#FFFFFF" text="#000000">
<div align="center">
<table width="550" border="0" cellspacing="1" cellpadding="1" height="30" bgcolor="#996600">
<tr>
<td bgcolor="#E2E9E9" height="25">
<div align="center"><b> [<a href="dealuser.asp">所有注册信息</a>]</b></div>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" bgcolor="#f3f3f3">
<%
Dim sql
sql="SELECT * FROM userinfo ORDER by regdate DESC"
'找留言板表中对象是公共型的打出来
set rlist=server.CreateObject("adodb.recordset")
rlist.Open sql,dbconn,1,3
rlist.pagesize=maxpagesize
checkpage rlist,intpage
%>
<%displayPageLinks rlist,intpage,snum%>
共<%=rlist.pagecount%>页 注册人数[<%=rlist.RecordCount %>]
[<a href="main.asp">返回</a> ]</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" bgcolor="#f3f3f3">
<table width="100%" border="0" cellspacing="1" cellpadding="1" height="25" bgcolor="#666600">
<tr bgcolor="#EDF1F1">
<td width="80" bgcolor="#EDF1F1" height="25">
<div align="center"><font color="#990000">用户昵称</font></div>
</td>
<td width="120">
<div align="center"><font color="#990000">注册时间</font></div>
</td>
<td width="200">
<div align="center"><font color="#990000">电子邮件</font></div>
</td>
<td>
<div align="center"><font color="#990000">上次ＩＰ</font></div>
</td>
</tr>
<%
Dim CountI
if not(rlist.eof or rlist.bof) then
rlist.absolutepage=intpage
for CountI=1 to rlist.pagesize
%>
<tr bgcolor="#f3f3f3">
<td height="25">
<div align="left"> <%=rlist("username")%> </div>
</td>
<td >
<div align="left"><%=rlist("regdate")%></div>
</td>
<td >
<div align="left"> <%=rlist("email")%> </div>
</td>
<td >
<div align="left"> <%=rlist("lastip")%></div>
</td>
</tr>
<%
rlist.movenext
if rlist.eof then exit for
next
else
Response.Write("<tr><td bgcolor=#FFFFFF height=50 align=center><font color=red><b>今天没有收到注册信息！</b></font></td></tr>")
end if
%>
</table>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="26" bgcolor="#f3f3f3">
<%displayPageLinks rlist,intpage,snum%>
共<%=rlist.pagecount%>页</td>
</tr>
</table>
</div>
</body>
<% htmlend %>
</html>
<%
Else
Response.Write "非法操作！"
%>
<%
End If
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -