【网吧许愿墙】 写下您的心愿吧! 祝大家心想事成 有情人终成眷属~~

<% Dim Sql Sql="Select * From LOVE Order By ID DESC" Dim Rs 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 End If Dim PageCount,RecordCount PageCount=Rs.PageCount RecordCount=rs.recordcount Dim I,T,L,Z For I=1 To Rs.PageSize If Rs.Eof Then Exit For End If Randomize T = Int(400*Rnd+25) L = Int(700*Rnd+10) Z = Int(50*Rnd+2) response.write "

爱墙"&Rs("ID")&"号

"&Rs("Pick")&"
"&Rs("Info")&"

"&Rs("Send")&"

"&Rs("PostDate")&"

" Rs.MoveNext Next RS.Close Set RS=Nothing Conn.Close Set Conn=Nothing %>
↓↓↓<%=SITE_AD%>之前<%=RecordCount%>人到此许愿