<% Dim Sql If request("flag")="rank" then Sql="Select * From [KuKoo_LoveWallPosts] Order By KuKoo_hits DESC" Else If request("KuKoo_WishID")="" Then Sql="Select * From [KuKoo_LoveWallPosts] Order By KuKoo_WishID DESC" Else Dim KuKoo_WishID KuKoo_WishID=CLng(Trim(request("KuKoo_WishID"))) Sql="Select * From [KuKoo_LoveWallPosts] Where KuKoo_WishID="&KuKoo_WishID End If End If Dim Rs Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.PageSize=Kukoo_WishPage 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 PageCount=Rs.PageCount Dim RecordCount RecordCount=Rs.recordcount Dim I For I=1 To Rs.PageSize If Rs.Eof Then Exit For End If %> <% Rs.MoveNext Next Rs.Close Set Rs=Nothing Conn.Close Set Conn=Nothing %>

爱墙编号	字条内容	发送者	接收者	发送时间
<%=Rs("KuKoo_WishID")%>	<% response.write "   "&Rs("KuKoo_WishContent")&"（"&Rs("KuKoo_Sender")&"爱墙" If session("KuKooLogin")<>"" Then response.write " "&Rs("KuKoo_WishIP")&" " response.write "）" %>	<%=Rs("KuKoo_Sender")%>	<%=Rs("KuKoo_Picker")%>	<%=Rs("KuKoo_WishDate")%>
<%If session("KuKooLogin")<>"" Then response.write ""%> （共有<%=RecordCount %>个字条）