%
Dim id,it,Sql,Rs,I,T,L,Z,PC,RC
id=request("id")
If id Then it=" - "&id&"号字条"
Call Header(it)
%>
<%
If id="" Then
Sql="Select * From LOVE Order By ID DESC"
Else
Sql="Select * From LOVE Where ID<="&CLng(id)&" Order By ID DESC"
End If
Randomize
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.PageSize=PAGE_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
For I=1 To Rs.PageSize
If Rs.Eof Then Exit For
T=Int(280*Rnd+100)
L=Int(740*Rnd+10)
Z=Rs.PageSize-I
Response.Write "
字条编号:"&Rs("ID")&"
"&Rs("Pick")&"
"&Rs("Info")&"
"&Rs("Send")&"
"&Rs("PostDate")&"
"
Rs.MoveNext
Next
PC=Rs.PageCount
RC=Rs.RecordCount
Rs.Close
Set Rs=Nothing
Conn.Close
Set Conn=Nothing
%>
<%
Response.Write "5分钟前有 "&RC&" 人来爱墙许愿祝福 "
Call PageBar(Int(PC),Int(Page))
%>
<%
If request("id") Then response.write ""
Call Footer()
%>