📄 user_manage.asp
字号:
<!--#include file="conn.asp" -->
<!--#include file="Cookies.asp"-->
<html>
<head>
<title>无标题文档</title>
<META name="VI60_defaultClientScript" content="VBScript">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<h1><center>注册用户管理</center>
</h1>
<%
dim rs,us,filedsNum
set rs=server.CreateObject("adodb.recordset")
us="select * From user"
rs.Open us,conn,1
%>
<table border="1" bordercolor="#00cc99" width="98%" >
<tr>
<th width="50" scope="col">
用户ID</th>
<th width="40" scope="col">
帐号</th>
<th width="77" scope="col">
真实姓名</th>
<th width="40" scope="col">
类型</th>
<th width="147" scope="col">
email</th>
<th width="163" scope="col">
地址</th>
<th width="44" scope="col">
积分</th>
<th width="49" scope="col">
虚拟币</th>
<th width="55" scope="col">
登陆次数</th>
<th width="114" scope="col">
注册时间</th>
<th width="114" scope="col">查看</th>
</tr>
<%
if Not rs.EOF and Not rs.BOF then
if Request.QueryString("page_no")="" then
page_no=1
else
page_no=cint(Request.QueryString("page_no"))
end if
rs.PageSize=20
rs.AbsolutePage=page_no
dim I
I=rs.PageSize
do while Not rs.EOF and I>0
I=I-1
%>
<tr>
<th>
<%=rs("user_id")%>
</th>
<th>
<%=rs("username")%>
</th>
<th>
<%=rs("name")%>
</th>
<th>
<%=rs("usertype")%>
</th>
<th>
<%=rs("email")%>
</th>
<th>
<%=rs("adress")%>
</th>
<th>
<%=rs("cumulation")%>
</th>
<th>
<%=rs("dum")%>
</th>
<th>
<%=rs("entnum")%>
</th>
<th>
<%=rs("regdate") %>
</th>
<th><a href="userinfo.asp?user_id=<%=rs("user_id") %>">查看</a></th>
</tr>
<%
rs.MoveNext
loop
%>
</table>
<table width="" border="0">
<tr>
<th width="835" height="32" scope="col">请选择页面：
<%
for I=1 to rs.PageCount
if I=page_no then
Response.Write I & " "
else
Response.Write ("<p> </p>")
Response.Write ("<a href='user_manage.asp?page_no=" & I & "'>" & I & "</a> ")
end if
next
else
Response.Write "没有用户!"
end if
%> </th>
</tr>
</table>
<%
rs.close
set rs=nothing
call closedb()
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -