<% 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 %>个字条)    
<%=Bottom%>