<% 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() %>