AnyRSS
/
RssList.asp

<!--#include file=rssconn.asp-->
<body>
<table width="100%"border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td style="border-bottom:1px solid #75A3DB; " colspan='3'>
<font style="font-size:15px;color:#75A3DB"><b>RSS列表</b></font>
</td>
</tr>
<%
rs.open"select * from RSSFeed order by id desc",conn,1,1
If rs.recordcount<>0 then
   rs.PageSize =30
   Page = int(Request("Page"))
   If Page < 1 Then Page = 1
   If Page > rs.PageCount Then Page = rs.PageCount
   PageBegin=rs.PageSize*(Page-1)+1
  if rs.PageSize*PageN< rs.RecordCount then
    PageEnd=rs.PageSize * Page
  else
    PageEnd=rs.RecordCount
  end If
  maxpage=rs.pagecount
  rcount=rs.RecordCount
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
%>
<tr style="cursor:hand" onmouseover="this.bgColor='#f6f6f6';" onmouseout="this.bgColor='#ffffff';">
<td style="border-bottom:1px solid #cccccc; ">
<a href='rss2read.asp?rssfeed=<%=rs("rssurl")%>&id=<%=int(rs("id"))%>' target='right'><%=int(rs("id"))%>.<%=Trim(rs("rssname"))%></a><br />
<%=rs("rssurl")%>
</td>
<td style="border-bottom:1px solid #cccccc; " align='center' title='修改此RSS'><a href="RssEdit.asp?ID=<%=int(rs("id"))%>"><img src="pics/feed_edit.png" alt="" /><br />修改</a></td>
<td style="border-bottom:1px solid #cccccc; " align='center' title='删除此RSS'><a href="RssSave.asp?ID=<%=int(rs("id"))%>&action=SaveDel"><img src="pics/feed_delete.png" alt="" /><br />删除</a></td>

</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
End if
rs.close

%>
<tr bgcolor='#ddeeff'>
<td style="border-top:1px solid #75A3DB; "  colspan='3'>
<%=Page%>/<%=maxpage%>
<%If Page <> 1 Then ' 如果不是位于第一页 %>
     <A HREF='?Page=1'>[首页]</A>
     <A HREF='?Page=<%=Page-1%>'>[上页]</A>
<%End If
  If Page <> maxpage Then ' 如果不是位于最后一页
%>
  <A HREF='?Page=<%=Page+1%>'>[下页]</A>
  <A HREF='?Page=<%=maxpage%>'>[末页]</A>
<%End If%></td>
</tr>
</table>

<!--#include file=foot.asp-->