<%
Dim Sql
Sql="Select * From [KuKoo_LoveWallPosts] Order By KuKoo_WishID DESC"
Dim Rs
Set Rs=Server.CreateObject("ADODB.RecordSet")
Rs.PageSize=Kukoo_IndexNum
Rs.CacheSize=Rs.PageSize
Rs.Open Sql,Conn,1,1
Dim Page
If Request("Page")="" Then
Page=1
Else
Page=Clng(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)
QQ=Rs("KuKoo_SenderQQ")
if Trim(QQ) <> "" and QQ <> 0 then
QQ="QQ:
"&QQ&""
else
QQ=""
end if
response.write "
字条编号:"&Rs("KuKoo_WishID")&" 人气:"&Rs("KuKoo_hits")&"

"&Rs("KuKoo_Picker")&"
"&Rs("KuKoo_WishContent")&"
"&Rs("KuKoo_Sender")&" "&QQ&"
"&Rs("KuKoo_WishDate")&"
"
Rs.MoveNext
Next
RS.Close
Set RS=Nothing
Conn.Close
Set Conn=Nothing
%>
<%=Bottom%>