<% Call Header(" - 字条列表"&Request("page")) %> <% Dim Sql Sql="Select * From LOVE Order By Id DESC" Dim Rs Set Rs=Server.CreateObject("ADODB.RecordSet") Rs.PageSize=LOVE_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 Dim I For I=1 To Rs.PageSize If Rs.Eof Then Exit For Response.Write "" Rs.MoveNext If Rs.Eof Or I=Rs.PageSize Then Exit For Response.Write "" I=I+1 Rs.MoveNext Next Dim PageCount,RecordCount PageCount=Rs.PageCount RecordCount=Rs.RecordCount Rs.Close Set Rs=Nothing Conn.Close Set Conn=Nothing %>
字条编号 字条内容 发送者 接收者 创建时间
"&Rs("ID")&""&Rs("Info")&"" If Session("_ASPK")="ok" Then Response.Write " ("&Rs("IP")&" )" Response.Write ""&Rs("Send")&""&Rs("Pick")&""&Rs("PostDate")&"
"&Rs("ID")&""&Rs("Info")&"" If Session("_ASPK")="ok" Then Response.Write " ("&Rs("IP")&" )" Response.Write ""&Rs("Send")&""&Rs("Pick")&""&Rs("PostDate")&"
<%If Session("_ASPK")="ok" Then Response.Write "修改密码 " Response.Write "(字条总数:"&RecordCount&") " Call PageBar(Int(PageCount),Int(Page))%>
<% Call Footer() %>