?? 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 + -