?? yhgl.asp
字號:
<%
user=request("user")
del=request("del")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<%
set conn=server.createobject("ADODB.CONNECTION")
conn.open "DBQ="+server.mappath("pfcr1015.asp")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs1=server.createobject("adodb.recordset")
sql1="SELECT * from admin"
rs1.open sql1,conn,2,3
cjpass=rs1("password")
if session("root")<>cjpass then
response.redirect "index.asp?user="&user&""
end if
if del="yes" then
set rs2=server.createobject("adodb.recordset")
sql2="delete * from user where user='"&user&"'"
rs2.open sql2,conn,1,1
set rs=server.createobject("adodb.recordset")
sql="delete * from txt where 用戶='"&user&"'"
rs.open sql,conn,1,1
user=""
end if
if logo="" or isnull(logo) then logo="images/girl.gif"
set rs2=server.createobject("adodb.recordset")
sql2="SELECT * from user order by sm desc"
rs2.open sql2,conn,1,1
set rs=server.createobject("adodb.recordset")
sql="SELECT * from txt where 用戶='"&user&"' order by 年*10000+月*100+日 desc"
rs.open sql,conn,1,1
%>
<title>用戶列表</title>
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<style>
BODY {scrollbar-track-color:#ffffff; SCROLLBAR-FACE-COLOR: #ffffff; FONT-SIZE: 9pt; SCROLLBAR-HIGHLIGHT-COLOR: #ffffff; SCROLLBAR-SHADOW-COLOR: #eeeeee; SCROLLBAR-3DLIGHT-COLOR: #eeeeee; SCROLLBAR-ARROW-COLOR: #dddddd; FONT-FAMILY: "Verdana"; SCROLLBAR-DARKSHADOW-COLOR: #ffffff
}
select{font-size:8pt;font-family:verdana;background-color:#ffffff;border:1px dotted #cccccc; color:#333333;}
input{font-size:8pt;font-family:verdana;background-color:#ffffff;border-bottom:1px solid #cccccc;border-left:1px solid #cccccc; border-top:0px solid #cccccc;border-right:0px dotted #cccccc;color:#333333;}
textarea{font-size:8pt; font-family:verdana;background-color:#ffffff;border:1px dotted #cccccc;color:#333333;letter-spacing : 1pt ;line-height : 150%}
A {
COLOR: #333333; TEXT-DECORATION: none ;border-bottom:1px dotted
}
A:hover {
COLOR: #333333; background-color:#C0FFFF;
}
td {FONT-SIZE: 9pt; FONT-FAMILY: "Verdana"; color:#3333333;letter-spacing : 1pt ;line-height : 150%}
.td{border:1px dotted #999999}
</style>
</head>
<body topmargin="3" leftmargin="0" bgcolor="#FFFFFF" >
<div align="center">
<center>
<table border="0" width="95%" cellspacing="5" cellpadding="0">
<tr>
<td>用戶列表 <img border="0" src="images/08.gif" width="11" height="10">
<a href="adminindex.asp">返回管理頁面</a> </td>
<td align=right><a href="admchangpass.asp">修改所有日記參數</a></td>
</tr>
</table>
</center>
</div>
<div align="center">
<center>
<%if rs2.eof and rs2.bof then
response.write "<p>還 沒 有 一 則 日 記</p>"
else%>
<table border="1" width="95%" cellspacing="2" cellpadding="2" bordercolorlight="#51bfe0" bordercolordark="#ffffff">
<tr>
<td bgcolor="#51bfe0">
<p align="center"><font size="2">序號</font></td>
<td bgcolor="#51bfe0">
<p align="center"><font size="2">用戶</font></td>
<td bgcolor="#51bfe0">
<p align="center"><font size="2">密碼</font></td>
<td bgcolor="#51bfe0">
<p align="center"><font size="2">主頁</font></td>
<td bgcolor="#51bfe0">
<p align="center"><font size="2">郵箱</font></td>
<td bgcolor="#51bfe0">
<p align="center"><font size="2">日記數目</font></td>
<td bgcolor="#51bfe0">
<p align="center"><font size="2">申請日期</font></td>
<td bgcolor="#51bfe0">
<p align="center"><font size="2">操作</font></td>
</tr>
<%
cc=1
if not isempty(request("page")) then
pagecount=cint(request("page"))
else
pagecount=1
end if
rs2.PageSize=rs1("page")
rs2.AbsolutePage=pagecount
For iPage = 1 To rs2.PageSize
If rs2.EOF Then Exit For
if cc mod 2=1 then
Response.Write "<tr bgcolor=#ffffff>"
else
Response.Write "<tr BGCOLOR=#ffffff>"
end if
%>
<td><center><font size="2"><%=iPage+rs2.PageSize*(pagecount-1)%></center></td>
<td><center><font size="2"><a href=adminindex.asp?user=<%=rs2("user")%>><font color=ff0000><%=rs2("user")%></font></center></td>
<td align="center"><%=rs2("pass")%> </td>
<td align="center"><%=rs2("url")%> </td>
<td align="center"><%=rs2("mail")%> </td>
<td align="center"><%=rs2("sm")%> </td>
<td><center><font size="2"><%=rs2("time")%></td>
<td><center><font size="2"><a href=yhgl.asp?user=<%=rs2("user")%>&del=yes><font color=ff0000>刪除</font></td>
</tr>
<font size="2">
<%
cc=cc+1
rs2.movenext
Next
Response.Write "</table><p>共"&rs2.recordcount&"個用戶，每頁"
Response.Write rs2.PageSize
Response.Write "個，共"
Response.Write int(rs2.recordcount/rs2.PageSize+.999999)
Response.Write "個，這是第"
Response.Write PageCount
Response.Write "頁 "
if rs2.PageCount>1 Then
If pagecount<>1 Then
Response.Write "<A HREF=list.asp?user="&user&">首頁</A> "
Response.Write "<A HREF=list.asp?Page="&(pagecount-1)&"&user="&user&">前頁</A> "
End If
If pagecount<>rs2.PageCount Then
Response.Write "<A HREF=list.asp?Page="&(pagecount+1)&"&user="&user&">后頁</A> "
Response.Write "<A HREF=list.asp?Page="&rs.PageCount&"&user="&user&">尾頁</A>"
End If
End If
end if
%>
</font>
</center>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</body>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -