?? dispuser.asp
字號:
<%response.expires=0%>
<%
Server.ScriptTimeOut=9999
if session("0382")="" then
Response.Write("登錄信息過期, 請重新登錄!")
response.end
end if
%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>注冊用戶管理</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<p align="center" style="margin-top: 5; margin-bottom: 5"><font color="#FF0000" size="3"><br>
注冊用戶管理<br></font></p>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select id,yhm,mm,lc,mc1,lx1,url1 from userinfo",conn,1,1
set rs1=server.createobject("adodb.recordset")
rs1.open "select sum(looksums) as usersums from userinfo",conn,1,1
pagenum=cint(request("page"))
if rs.RecordCount <=20 then
pagesums=1
elseif (rs.recordcount mod 20)=0 then
pagesums=rs.recordcount/20
else
pagesums=int(rs.RecordCount/20)+1
end if
if pagenum<1 then
pagenum=1
end if
if pagenum>pagesums then
pagenum=pagesums
end if
if pagenum>1 then
rs.movefirst
num=(pagenum-1)*20
rs.move num
end if
if (rs.recordcount-(pagenum-1)*20)>=20 then
movenum=20
else
movenum=rs.recordcount-(pagenum-1)*20
end if
%>
<td width="556">--第<font color="#0000ff"><%=pagenum%></font>頁，共<font color="#0000ff"><%=rs.RecordCount%></font>條記錄，共<font color="#0000ff"><%=pagesums%></font>頁，每頁20條--
<%
if pagesums>1 then
if pagenum>1 then
%>
<a href="dispuser.asp?page=1">首 頁</a>
<a href="dispuser.asp?page=<%=pagenum-1%>">上一頁</a>
<%
end if
if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="dispuser.asp?page=<%=pagenum+1%>">下一頁</a>
<a href="dispuser.asp?page=<%=pagesums%>">尾 頁</a>
<%
end if
end if
%>
<table border="0" cellpadding="1" cellspacing="1" width="615" bordercolorlight="#000000" bordercolordark="#fdf0f0">
<tr>
<td height="25" width="25" align="left" valign="center" bgcolor="#eeeeee">編號</td>
<td height="25" width="46" align="left" valign="center" bgcolor="#eeeeee">用戶名</td>
<td height="25" width="53" align="left" valign="center" bgcolor="#eeeeee">密碼</td>
<td height="25" width="65" align="left" valign="center" bgcolor="#eeeeee">昵稱</td>
<td height="25" width="90" align="left" valign="center" bgcolor="#eeeeee">網(wǎng)站名稱</td>
<td height="25" width="61" align="left" valign="center" bgcolor="#eeeeee">網(wǎng)站類型</td>
<td height="25" width="205" align="left" valign="center" bgcolor="#eeeeee">網(wǎng)址</td>
<td height="25" width="25" align="middle" valign="center" bgcolor="#eeeeee">工具</td></tr>
<%
sums=0
if rs.recordcount<=0 then
response.write("<p align=center>還沒有用戶注冊！</p>")
else
number=1
do while number<=movenum
if number mod 2=0 then
color="#eeeeee"
else
color="#ffffff"
end if
%>
<tr>
<td height="25" width="25" align="left" valign="center" bgcolor="<%=color%>"><%=number %></td>
<td height="25" width="46" align="left" valign="center" bgcolor="<%=color%>"><%=server.htmlencode(rs("yhm"))%></td>
<td height="25" width="53" align="left" valign="center" bgcolor="<%=color%>"><%=rs("mm")%></td>
<td height="25" width="65" align="left" valign="center" bgcolor="<%=color%>"><%=server.htmlencode(rs("lc"))%></td>
<td height="25" width="90" align="left" valign="center" bgcolor="<%=color%>"><%=rs("mc1")%></td>
<td height="25" width="61" align="left" valign="center" bgcolor="<%=color%>"><%=rs("lx1")%></td>
<td height="25" width="205" align="left" valign="center" bgcolor="<%=color%>"><a href="<%=rs("url1")%>" target="_blank"><font color=#0000ff><%=rs("url1")%></font></a></td>
<td height="25" width="25" align="middle" valign="center" bgcolor="<%=color%>">
<p align="center"><a href="javascript:if (confirm('真的要刪除該站點嗎？')){location.href='deleuser.asp?id=<%=rs("id")%>'}"><img border="0" src="../qqpic/menu.gif" width="16" height="16" alt="刪除該站點"></a>
</td></tr>
<%
rs.movenext
number=number+1
loop
end if
%>
<p align="right">
<%
if pagesums>1 then
if pagenum>1 then
%>
<a href="dispuser.asp?page=1">首 頁</a>
<a href="dispuser.asp?page=<%=pagenum-1%>">上一頁</a>
<%
end if
if pagenum>=1 and pagenum+1<=pagesums then
%>
<a href="dispuser.asp?page=<%=pagenum+1%>">下一頁</a>
<a href="dispuser.asp?page=<%=pagesums%>">尾 頁</a>
<%
end if
end if
%>
</table>
<center><font color="#ff0000" size=+1>總訪問量：<%=rs1("usersums")%></font></center>
</body>
</html>
<%
rs.close
conn.close
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -