any-AnyRSS
/
Left.asp

<!--#include file=rssconn.asp-->
<body class="gradient"  style="FILTER: progid:DXImageTransform.Microsoft.Gradient(startColorStr='#ddeeff', endColorStr='#FFFFFF', gradientType='1')">
<table width="100%" border="0" align="center" cellpadding="3" cellspacing="0">
<tr>
<td style="border-bottom:1px solid #75A3DB; ">
<font style="font-size:15px;color:#75A3DB"><b>RSS列表</b></font>
[<a href="left.asp">刷新列表</a>]
</td>
</tr>
<%
SQl="select * from RSSFeed order by id desc"
rs.open sql,conn,1,1
If rs.recordcount<>0 then
   rs.PageSize =20
   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>
<td>
<img src="pics/feed_go.png" border="0" alt="">
<a href='rss2read.asp?id=<%=int(rs("id"))%>' target='right'><%=Trim(rs("rssname"))%></a></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
End if
rs.close
%>
<tr>
<td style="border-bottom:1px solid #75A3DB;border-top:1px solid #75A3DB; ">
<%=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>
<tr>
<td style="border-bottom:1px solid #75A3DB; ">
<A href="Rsslist.asp" target='right'><font style="font-size:15px;color:#75A3DB"><b>管理</b></font></A>
<A href="Rssadd.asp" target='right'><font style="font-size:15px;color:#75A3DB"><b>添加</b></font></A>
<A href="help.asp" target='right'><font style="font-size:15px;color:#75A3DB"><b>帮助</b></font></A>
</td>
</tr>

</table>

<TABLE border='0' cellpadding='3' cellspacing='2' width="100%" align='center'>
<TR>
<TD><font size="1" color='#999999'>
@<%=Year(Date())%>&nbsp;<A href="http://www.it3848.com" target='_blank'>www.it3848.com</A>
</font></TD>
</TR>
</TABLE>
<%
set conn=nothing
%>
</body>
</html>