📄 list.asp
字号:
<%
user=request("user")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="Content-Language" content="zh-cn">
<%
session("root")="http://blueyr.com/"
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,1,1
if user="" then user=rs1("name")
if logo="" or isnull(logo) then logo="images/girl.gif"
set rs2=server.createobject("adodb.recordset")
sql2="SELECT * from user where bm<>'0' order by sm desc"
rs2.open sql2,conn,1,1
set rs3=server.createobject("adodb.recordset")
sql3="SELECT * from user order by sm desc"
rs3.open sql3,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 5.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: "Arial"; color:#3333333}
.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 width="638">用户列表 <img border="0" src="images/08.gif" width="11" height="10">
<a href="index.asp?user=<%=user%>">返回<%=user%>的日记</a> </td>
<td width=102 align="right"><a href="reg.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="98%" cellspacing="0" cellpadding="4" bordercolorlight="#51bfe0" bordercolordark="#ffffff">
<tr bgcolor="#51bfe0">
<td bgcolor="#51bfe0">
<p align="center"><font size="2" color="#FFFFFF">序号</font>
</td>
<td>
<p align="center"><font size="2" color="#FFFFFF">用户</font>
</td>
<td>
<p align="center"><font size="2" color="#FFFFFF">日记数目</font>
</td>
<td>
<p align="center"><font size="2" color="#FFFFFF">申请日期</font>
</td>
<td>
<p align="center"><font size="2" color="#FFFFFF">访问次数</font>
</td>
<td>
<p align="center"><font size="2" color="#FFFFFF">最新日记</font>
</td>
<td>
<p align="center"><font size="2" color="#FFFFFF">内容摘要</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
set rs4=server.createobject("adodb.recordset")
sql4="SELECT * from txt where 用户='"&rs2("user")&"' order by 年*10000+月*100+日 desc"
rs4.open sql4,conn,1,1
if not rs4.eof then
usernew=rs4("日记内容")
usertime=rs4("年")&"."&rs4("月")&"."&rs4("日")
bm=rs4("保密")
else
usernew="-"
usertime="-"
bm="-"
end if
%>
<td>
<center>
<%=iPage+rs2.PageSize*(pagecount-1)%>
</center>
</td>
<td>
<center><a href=index.asp?user=<%=rs2("user")%>>
<%=rs2("user")%>
</center>
</td>
<td align="center"><%=rs2("sm")%> </td>
<td><center><%=rs2("time")%></td>
<td><center><%=rs2("see")%></td>
<td><font color=aa2222><%=usertime%></font> </td>
<td>
<%if bm<>"y" then%>
<%=left(usernew,20)%>
<%else%><font color=ff0000>
本日内容保密无法显示
<%end if%>
...</td>
</tr>
<%
cc=cc+1
rs2.movenext
Next
Response.Write "</table><p>共有"&rs3.recordcount&"个用户/"&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
%>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
</body>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -