<!--#include file="Top.asp" -->
<%
GetErrInfo=" 【提示：下面是您订阅的RSS列表,您可以进行删除操作!】"
IF CblogObj.FormRequest("add")="ok" Then
	Call RssAdd
End If
IF  CblogObj.FormRequest("Action")="delete" then
	Dim RssID
	RssID=CblogObj.FormRequest("ArticleID")
	CONN.EXECUTE("Delete from tb_Rss where User_ID="&Session("UserID")&" AND id in("&RssID&")")
	GetErrInfo=" <div class=""doen""> 【操作成功提示:删除RSS频道成功！】</div>"
End if
%>
<script language="javascript" src="../inc/js.js"></script>
<table width="99%" border="0" align="center" cellpadding="5" cellspacing="0">
  <tr> 
    <td height="30" bgcolor="#FFFFFF"><table width="300" border="0" align="right" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="120" class="box3"> <div align="center"><a href="Article_GroupByClass.Asp">日志分类</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Article_Add.Asp">发布日志</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Article_List.Asp">日志列表</a></div></td>
          <td>-</td>
          <td width="120" class="box3"> <div align="center"><a href="Comments_List.Asp">评论管理</a></div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td height="30" bgcolor="#FFFFFF" class="h1"><img src="img/GuestBook.gif" width="23" height="21"> 
      Rss频道列表 
      <hr size="0"></td>
  </tr>
  <tr> 
    <td valign="top" bgcolor="#FFFFFF" class="h1"> <table width="100%" border="0" cellspacing="0" cellpadding="10">
        <tr> 
          <td class="box"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="2%" valign="middle"><img src="img/3.gif" width="16" height="16"></td>
                <td width="98%" valign="middle"><%=GetErrInfo%></td>
              </tr>
            </table></td>
        </tr>
        <tr height="5"> 
          <td height="5"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="2" cellspacing="1" class="box2">
        <tr bgcolor="#CCCCCC"> 
          <td width="29" height="20"><img src="img/page.gif" width="20" height="20"></td>
          <td width="327"><strong>Rss频道标题</strong></td>
          <td width="354" bgcolor="#CCCCCC"><strong>Rss地址</strong></td>
        </tr>
        <form name="form1" method="post" action="Rss_Add.Asp">
          <%
Dim WhereStr,ClassName,SqlStr,RsCount,ArticleArr
SqlStr="select ID,Rssname,RssUrl from Tb_Rss Where User_ID=" & Session("UserID") & ""
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.open SqlStr,Conn, 1, 1
SqlCount=SqlCount+1
If rs.eof Then
	response.write("<tr><td height=25 colspan=5><div align=center>对不起,您还没有订阅任何RSS</div></td></tr>")
	RsCount=0
	MaxP=1
	Rs.Close:Set Rs=nothing
Else
	Rs.PageSize = 15
	MaxP=rs.PageCount
	rs.AbsolutePage=CblogObj.QueryPage
	RsCount=Rs.RecordCount
	ArticleArr = Rs.GetRows(15)
	Rs.Close:Set Rs=nothing
for iii=0 to Ubound(ArticleArr,2)
%>
          <tr class="tr2" onmouseover="this.className='tr1'" onmouseout="this.className='tr2'"> 
            <td><input type="checkbox" name="ArticleID" value="<%=ArticleArr(0,iii)%>"></td>
            <td><a href="../RssShow.Asp?RssID=<%=ArticleArr(0,iii)%>&"><%=ArticleArr(1,iii)%></a></td>
            <td><%=ArticleArr(2,iii)%></td>
          </tr>
          <%
Next
End IF
%>
          <tr class="tr2"> 
            <td height="30" colspan="3"><div align="center"> 
                <INPUT name="all" type="button" onclick="CheckAll(this.form)" value="全选">
                <INPUT name="sall" type="button" onclick="CheckOthers(this.form)" value="反选">
                <input name="Submit" type="reset" value="重选">
                <input name="subimt" type="submit" onClick="return ConfirmDel();" value="删除">
                <input name="Action" type="hidden" id="Action" value="delete">
              </div></td>
          </tr>
        </form>
        <tr class="tr2"> 
          <td height="30" colspan="3"> 
            <%CblogObj.PageList RsCount,CblogObj.QueryPage,15,20,false%>
          </td>
        </tr>
      </table>
      <form name="form2" method="post" action="">
        <table width="100%" border="0" cellpadding="5" cellspacing="0" class="box2">
          <tr> 
            <td width="16%"><div align="right">RSS地址：</div></td>
            <td width="84%"><input name="rssurl" type="text" class="Input" id="rssurl" size="50"> 
              <input name="Submit3" type="button" class="Input" onclick="form.action='Rss_Check.asp';form.target='_blank';form.submit();" value="验证Rss源"></td>
          </tr>
          <tr> 
            <td><div align="right">频道名称：</div></td>
            <td><input name="rssname" type="text" class="Input" id="rssname" size="25"></td>
          </tr>
          <tr> 
            <td><div align="right">分类：</div></td>
            <td><strong> 
              <%CBlogObj.ClassCodeList "","Tb_RssClass","RssCodelist","Rss"%>
              </strong></td>
          </tr>
          <tr> 
            <td><div align="right"></div></td>
            <td><input name="Submit2" type="button" class="Input" id="Submit" onclick="form.action='Rss_Add.Asp';form.target='_self';form.submit();" value="确定加入"> 
              <input name="add" type="hidden" id="add" value="ok"></td>
          </tr>
        </table>
      </form>
      <p>&nbsp;</p></td>
  </tr>
  <tr> 
    <td bgcolor="#FFFFFF">&nbsp;</td>
  </tr>
  <tr bgcolor="#0066CC" height="2"> 
    <td height="2"></td>
  </tr>
</table>


<!--#include file="Foot.asp" -->
