<!-- #include file="conn.asp" -->
<!-- #include file="cls_main.asp" -->
<% 
	dim ishion,Rs,rootID,i
	Set ishion = New cls_main
	'If Not IsObject(Conn) Then ConnectionDatabase
	call ishion.LoadSetting()
	If Trim(Request.QueryString("rootID"))<>"" then rootID = clng(Trim(Request.QueryString("rootID")))
	dim arrPage,arrMainPage,sRs
	arrPage = Split(ishion.ReadStylePage("Style_Down_Search"),"<!--|||-->")
	arrMainPage = Split(ishion.ReadStylePage("Style_Down_Main"),"<!--|||-->")
	Call Main()
	Set ishion = Nothing
		
Sub Main()
	Response.Write(Replace(Replace(arrMainPage(0),"../",""),"{$page_title}","RSS频道聚合"))
	Response.Write(Replace(arrMainPage(1),"../",""))
	Response.Write(Replace(arrMainPage(2),"../",""))
	Call RssMain()
	Response.Write(arrMainPage(5))
End Sub
Sub RssMain() %>
<style type="text/css">
td.a08 {font-size: 12px;line-height: 18px;color: 696969;}
.f10 {font-family: "Verdana", "Arial", "Helvetica", "sans-serif";font-size: 10px;color: C9C8C8;}
.f14 {font-size: 14px;line-height: 24px;}
A.f14:link,A.f14:visited{TEXT-DECORATION:none}
A.f14:hover,A.f14:active {TEXT-DECORATION:underline}
</style>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="3"></td>
  </tr>
</table>
<table width="770" border="0" align="center" cellpadding="3" cellSpacing="1" bgColor="#EEEEEE">
  <tr>
    <td bgColor="#F4F4F4"> 您的位置：首页 &gt;&gt; RSS频道聚合</td>
</tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="3"></td>
  </tr>
</table>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td width="175" valign="top"><table width="100%"  border="0" cellspacing="1" cellpadding="3">
        <tr>
          <td bgcolor="#F4F4F4" class="f14">&nbsp;<img src="images/icon_arrow02.gif" border="0" align="absmiddle"> 下载频道RSS列表</td>
        </tr>
        <tr>
          <td><%
set Rs = ishion.Execute("select catalogID,catalogName,rootID,depth from ishion_Down_catalog where Depth=0 order by rootID")
if not(Rs.eof and Rs.bof) then
	do while not Rs.eof
	Response.Write("　　<img src=""images/icon_arrow02.gif"" border=""0"" align=""absmiddle""> <a href=""?rootID="&Rs(2)&"&s=1"" class=""f14"">"&Rs(1)&"</a> <a href=""xml/rss_Down_r"&Rs(2)&".xml"">(RSS)</a><br>")
	Rs.movenext
	loop
end if
Set Rs = Nothing
%>
		  </td>
        </tr>
        <tr>
          <td height="5"></td>
        </tr>
      </table>
        <table width="100%"  border="0" cellspacing="1" cellpadding="3">
          <tr>
            <td bgcolor="#F4F4F4" class="f14">&nbsp;<img src="images/icon_arrow02.gif" border="0" align="absmiddle"> 文章频道RSS列表</td>
          </tr>
          <tr>
            <td><%
set Rs = ishion.Execute("select catalogID,catalogName,rootID,depth from ishion_Cms_catalog where Depth=0 order by rootID")
if not(Rs.eof and Rs.bof) then
	do while not Rs.eof
	Response.Write("　　<img src=""images/icon_arrow02.gif"" border=""0"" align=""absmiddle""> <a href=""?rootID="&Rs(2)&"&s=2"" class=""f14"">"&Rs(1)&"</a> <a href=""xml/rss_Cms_r_"&Rs(2)&".xml"">(RSS)</a><br>")
	Rs.movenext
	loop
end if
set Rs = nothing %></td>
          </tr>
          <tr>
            <td height="5"></td>
          </tr>
      </table></td>
    <td valign="top">
<% If Trim(Request.QueryString("s"))<>"" then
	if Trim(Request.QueryString("s"))=1 then
		Call showRss("ishion_Down_catalog","xml/rss_Down_{ID}.xml")
	else
		Call showRss("ishion_Cms_catalog","xml/rss_Cms_{ID}.xml")
	end if	
else %>
	  <table width="99%"  border="0" align="center" cellpadding="3" cellspacing="1">
      <tr>
        <td height="22" class="tdbg1">　<strong class="f14">什么是RSS</strong> <img src="images/rss.gif" width="36" height="14" align="absmiddle"></td>
      </tr>
      <tr>
        <td>          <SPAN class=f14>　　RSS为Really Simple Syndication（简易供稿）的缩写，是某一站点用来和其它站点之间共享内容的一种简易方式，也叫聚合内容。网络用户可以在客户端借助于支持RSS的新闻聚合工具软件（例如SharpReader NewzCrawler、FeedDemon RSSReader），在不打开网站内容页面的情况下阅读支持RSS输出的网站内容。可见，网站提供RSS输出，有利于让用户发现网站内容的更新。在高速高质高效成为主流呼声的互联网时代，RSS无疑推动了网上信息的传播，提出了另一种看世界的方式。 <BR>　　RSS，原意是把网站内容如标题、链接、部分内文甚至全文转换为可延伸标示语言(XML：eXtensible Markup Language)的格式，以向其它网站供稿，使用者可以用一般的浏览器观看，也可以用特殊的“阅读器”软件来阅读。<br>
　　目前RSS有多个版本，如：0.90、0.91、0.92、0.93、0.94、1.0 和 2.0，而应用最广泛的有RSS 1.0 和 RSS 2.0 两个版本，本系统遵循 <FONT class=red>RSS 2.0</FONT> <IMG src="images/rss2.gif" align=absMiddle border=0> 版本规范。</SPAN></td>
      </tr>
      <tr>
        <td class="tdbg1">　<strong class="f14">我们提供的RSS：</strong></td>
      </tr>
      <tr>
        <td class="f14">&nbsp;</td>
      </tr>
      <tr>
        <td class="tdbg1">　<strong class="f14">怎么样使用RSS：</strong></td>
      </tr>
      <tr>
        <td class="f14"><p>　　您一般需要下载和安装一个“RSS阅读器”，然后从网站提供的聚合目录列表中订阅您感兴趣的栏目的内容。订阅后，您将会及时获得所订阅频道的最新内容。<br>
          　　您可以通过下面的RSS阅读器软件使用RSS： <br>
            　　1、RSSReader 完全免费的软件，但界面较简陋，没有Blog收藏夹的分组功能 [下载] <br>
            　　2、SharpReader 免费的软件，但需要先安装.NET Framework [下载] <br>
          　　注：上面列出的RSS聚合软件可以将RSS源读取出来，并以友好的方式显示给您。 </p>
          <p align="center"><img src="images/Rss_sample_s.gif" width="198" height="136"></p>
          <br></td>
      </tr>
    </table>
	<% end if %>
	</td>
  </tr>
</table>
<%
End Sub
Sub showRss(fromName,RssFileName)
	set Rs = ishion.Execute("select catalogName,Readme from "&fromName&" where depth=0 and rootID="&rootID)
	 %>
	  <table width="99%"  border="0" align="center" cellpadding="3" cellspacing="1">
        <tr>
          <td height="22" class="tdbg1">　 <strong class="f14"><%= Rs(0) %></strong> <span class="a08"><img src="images/rss2.gif" align="absmiddle">
              <% Response.Write("<a href="""&Replace(RssFileName,"{ID}","r"&rootID)&""">"&ishion.Setting(2)&"/"&Replace(RssFileName,"{ID}","r"&rootID)&"</a>") %>
          </span></td>
        </tr>
        <tr>
          <td class="a08">&nbsp;<%= Rs(1) %> </td>
        </tr>
        <tr>
          <td><% set Rs = nothing
set Rs = ishion.Execute("select catalogID,catalogName,rootID,depth,Child,ResNum from "&fromName&" where rootID="&rootID&" and depth>0 order by orders")
If Not(Rs.EOF And Rs.bof) Then
Do while not Rs.eof
	Response.Write("<img src=""images/rss2.gif"" align=""absmiddle"">")
	if Rs(3) >1 then
		for i=2 to Rs(3)
			Response.Write("　")
		next
 	end if
	Response.Write("　<img src=""images/icon_arrow02.gif"" border=""0"" align=""absmiddle""> ")
	Response.Write("<b>"&Rs(1)&"</b>　")
	Response.Write("<a href="""&Replace(RssFileName,"{ID}","s"&Rs(0))&""">"&ishion.Setting(2)&"/"&Replace(RssFileName,"{ID}","s"&Rs(0))&"</a><br>")
Rs.Movenext
loop
End if
set Rs = nothing
%>		  </td>
        </tr>
      </table>
<% End sub %>

