%
Call Header(" - 字条列表"&Request("page"))
%>
字条编号 |
字条内容 |
发送者 |
接收者 |
创建时间 |
<%
Dim Sql
Sql="Select * From LOVE Order By Id DESC"
Dim Rs
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.PageSize=LOVE_SIZE
Rs.CacheSize=Rs.PageSize
Rs.Open Sql,Conn,1,1
Dim Page
If Request("page")="" Then
Page=1
Else
Page=Request("page")
End If
If Not(Rs.Eof And Rs.Bof) Then Rs.AbsolutePage=Page
Dim I
For I=1 To Rs.PageSize
If Rs.Eof Then Exit For
Response.Write ""&Rs("ID")&" | "&Rs("Info")&""
If Session("_ASPK")="ok" Then Response.Write " ("&Rs("IP")&" )"
Response.Write " | "&Rs("Send")&" | "&Rs("Pick")&" | "&Rs("PostDate")&" |
"
Rs.MoveNext
If Rs.Eof Or I=Rs.PageSize Then Exit For
Response.Write ""&Rs("ID")&" | "&Rs("Info")&""
If Session("_ASPK")="ok" Then Response.Write " ("&Rs("IP")&" )"
Response.Write " | "&Rs("Send")&" | "&Rs("Pick")&" | "&Rs("PostDate")&" |
"
I=I+1
Rs.MoveNext
Next
Dim PageCount,RecordCount
PageCount=Rs.PageCount
RecordCount=Rs.RecordCount
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
<%If Session("_ASPK")="ok" Then Response.Write "修改密码 "
Response.Write "(字条总数:"&RecordCount&") "
Call PageBar(Int(PageCount),Int(Page))%>
|
<%
Call Footer()
%>