开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
RssFeed.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：11k
源码类别：

数据库编程

开发平台：

ASP/ASPX

RssFeed.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../FS_Inc/Const.asp" -->
  3. <!--#include file="../FS_Inc/Function.asp" -->
  4. <!--#include file="../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="lib/strlib.asp" -->
  6. <!--#include file="lib/UserCheck.asp" -->
  7. <%
  8. dim obj_mf_sys_obj,MF_Domain,MF_Site_Name,tmp_c_path
  9. set obj_mf_sys_obj = Conn.execute("select top 1 MF_Domain,MF_Site_Name from FS_MF_Config")
  10. if obj_mf_sys_obj.eof then
  11. strShowErr = "<li>找不到主系统配置信息！</li>"
  12. Response.Redirect("lib/error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  13. Response.end
  14. else
  15. MF_Domain = obj_mf_sys_obj("MF_Domain")
  16. MF_Site_Name = obj_mf_sys_obj("MF_Site_Name")
  17. end if
  18. obj_mf_sys_obj.close:set obj_mf_sys_obj = nothing
  19. tmp_c_path =MF_Domain&"/"
  20. %>
  21. <html xmlns="http://www.w3.org/1999/xhtml">
  22. <title>RSS聚合-网站内容管理系统</title>
  23. <meta name="keywords" content="风讯cms,cms,FoosunCMS,FoosunOA,FoosunVif,vif,风讯网站内容管理系统">
  24. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  25. <meta content="MSHTML 6.00.3790.2491" name="GENERATOR" />
  26. <meta name="Keywords" content="Foosun,FoosunCMS,Foosun Inc.,风讯,风讯网站内容管理系统,风讯系统,风讯新闻系统,风讯商城,风讯b2c,新闻系统,CMS,域名空间,asp,jsp,asp.net,SQL,SQL SERVER" />
  27. <link href="images/skin/Css_<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>/<%=Request.Cookies("FoosunUserCookies")("UserLogin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  28. <head>
  29. <body>
  30. <table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  31.   <tr>
  32.     <td>
  33.       <!--#include file="top.asp" -->
  34.     </td>
  35.   </tr>
  36. </table>
  37. <table width="98%" height="135" border="0" align="center" cellpadding="1" cellspacing="1" class="table">
  38.   
  39.     <tr class="back"> 
  40.       <td   colspan="2" class="xingmu" height="26"> <!--#include file="Top_navi.asp" --> </td>
  41.     </tr>
  42.     <tr class="back"> 
  43.       <td width="18%" valign="top" class="hback"> <div align="left"> 
  44.           <!--#include file="menu.asp" -->
  45.         </div></td>
  46.       <td width="82%" valign="top" class="hback"><table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  47.         <tr class="hback"> 
  48.           <td class="hback"><strong>位置：</strong><a href="../">网站首页</a> &gt;&gt; 
  49.             <a href="main.asp">会员首页</a> &gt;&gt; <a href="RssFeed.asp">RSS聚合</a> &gt;&gt; <%=Request.QueryString("Sub_sys")%></td>
  50.         </tr>
  51.         <tr class="hback"> 
  52.           <td class="hback"><a href="RssFeed.asp">首页</a>┆<a href="RssFeed.asp?Sub_sys=NS">新闻</a></td>
  53.         </tr>
  54.       </table>
  55.       <%
  56.   Sub mainHelp()
  57.   %>
  58.       <table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  59.         <tr class="hback">
  60.           <td> <strong>·什么是RSS<font color="#3366CC"> </font></strong><br> <br>
  61.             　RSS是站点用来和其他站点之间共享内容的一种简易方式，通常被用于新闻和其他按顺序排列的网站，例如Blog。一段项目的介绍可能包含新闻的全部介绍等。或者仅仅是额外的内容或者简短的介绍。这些项目的链接通常都能链接到全部的内容。网络用户可以在客户端借助于支持RSS的新闻聚合工具软件，在不打开网站内容页面的情况下阅读支持RSS输出的网站内容。<br> 
  62.             <br>
  63.             <strong>·RSS如何工作</strong><br> <br>
  64.             　您一般需要下载和安装一个RSS新闻阅读器，然后从网站提供的聚合新闻目录列表中订阅您感兴趣的新闻栏目的内容。订阅后，您将会及时获得所订阅新闻频道的最新内容。<br>
  65.             <br> <strong>·RSS新闻阅读器的特点</strong><br> <br>
  66.             　a. 没有广告或者图片来影响标题或者文章概要的阅读。
  67. <p>　b. RSS阅读器自动更新你定制的网站内容，保持新闻的及时性。</p>
  68.             <p>　c. 用户可以加入多个定制的RSS提要，从多个来源搜集新闻整合到单个数据流中。<br>
  69.               <br>
  70.               <strong>·RSS阅读器下载</strong><br>
  71.             </p>
  72.             <table width="100%" border="0" cellspacing="0" cellpadding="0">
  73.               <tr> 
  74.                 <td width="24%"><div align="center"> <a href="http://fox.foxmail.com.cn/" target="_blank"><img src="Images/Rss/foxmail.gif" width="134" height="51" border="0"></a> 
  75.                     <table width="98%" border="0" cellspacing="0" cellpadding="0">
  76.                       <tr>
  77.                         <td><div align="center"><a href="http://fox.foxmail.com.cn/">腾讯Foxmail 
  78.                             6</a></div></td>
  79.                       </tr>
  80.                     </table>
  81.                     
  82.                   </div></td>
  83.                 <td width="19%"><div align="center"><a href="http://www.potu.com" target="_blank"><img src="Images/Rss/zbt.gif" border="0"></a><br>
  84.                     <table width="98%" border="0" cellspacing="0" cellpadding="0">
  85.                       <tr> 
  86.                         <td><div align="center"><a href="http://www.potu.com" target="_blank">周博通RSS阅读器</a></div></td>
  87.                       </tr>
  88.                     </table>
  89.                     
  90.                   </div></td>
  91.                 <td width="57%" valign="bottom"><div align="center"><a href="http://www.sharpreader.net/SharpReader0960_Setup.exe" target="_blank"><img src="images/Rss/sharp%20Reader.gif" width="91" height="18" border="0"></a>&nbsp;<a href="http://www.rssreader.com/download/rssreader.zip" target="_blank"><img src="images/Rss/RssReader.gif" width="91" height="19" border="0"></a>&nbsp;<a href="http://feeddemon.com/download/dloadhandler.asp?file=feeddemon-trial.exe" target="_blank"><img src="images/Rss/FeedDemon.gif" width="91" height="20" border="0"></a>&nbsp;<a href="http://www.newzcrawler.com/downloads.shtml" target="_blank"><img src="images/Rss/Nc.gif" width="91" height="19" border="0"></a> 
  92.                   </div>
  93.                   <table width="98%" border="0" cellspacing="0" cellpadding="0">
  94.                     <tr> 
  95.                       <td><div align="center">国外RSS聚合阅读器</div></td>
  96.                     </tr>
  97.                   </table>
  98.                   
  99.                 </td>
  100.               </tr>
  101.             </table>
  102.             
  103.           </td>
  104.         </tr>
  105.       </table>
  106.       <%end sub%>
  107.       <%
  108. dim sub_sys
  109. sub_sys = NoSqlHack(Request.QueryString("sub_sys"))
  110. select case sub_sys
  111. case "NS"
  112. call NS()
  113. case else
  114. Call MainHelp()
  115. end select
  116. sub NS()
  117. Dim getParam
  118. set getParam = Conn.execute("select top 1 RSSTF From FS_NS_SysParam")
  119. if getParam(0)<>1 then
  120. Response.Write "<p><div align=center>新闻频道没开通RSS聚合订阅</div></p>"
  121. getParam.close:set getParam=nothing
  122. Else
  123. Response.Write("<table width=""98%"" border=""0"" align=""center"" cellpadding=""5"" cellspacing=""1"" class=""table"">")
  124. Response.Write("<tr class=""hback""><td><img src=""images/-.gif"" border=""0""></img><b>最新更新</b></td><td><img src=""../sys_images/rss.gif"" border=""0"" alt=""点击复制此RSS聚合地址"" style=""cursor:hand;"" onclick=""copyToClipBoard('now');""></img></td><td>http://"& tmp_c_path &"xml/ns/now.xml</td></tr>")
  125. dim str_ClassID,news_SQL,obj_news_rs,str_action,obj_news_rs_1
  126. str_ClassID = NoSqlHack(Request.QueryString("ClassID"))
  127. if str_ClassID<>"" then
  128. news_SQL = "Select Orderid,id,ClassID,ClassName,ClassEName,IsUrl,AddNewsType from FS_NS_NewsClass where Parentid  = '"& str_ClassID &"' and ReycleTF=0 Order by Orderid desc,ID desc"
  129. Else
  130. news_SQL = "Select Orderid,id,ClassID,ClassName,ClassEName,IsUrl,AddNewsType from FS_NS_NewsClass where Parentid  = '0'  and ReycleTF=0  Order by Orderid desc,ID desc"
  131. End if
  132. Set obj_news_rs = server.CreateObject(G_FS_RS)
  133. obj_news_rs.Open news_SQL,Conn,1,3
  134.   if Not obj_news_rs.eof then
  135. Do while Not obj_news_rs.eof 
  136. Set obj_news_rs_1 = server.CreateObject(G_FS_RS)
  137. obj_news_rs_1.Open "Select Count(ID) from FS_NS_NewsClass where ParentID='"& obj_news_rs("ClassID") &"'",Conn,1,1
  138. if obj_news_rs_1(0)>0 then
  139. str_action=  "<img src=""images/+.gif"" border=""0""></img><a href=""RssFeed.asp?ClassID="& obj_news_rs("ClassID") &"&Sub_sys="&NoSqlHack(Request.QueryString("Sub_sys"))&""" title=""点击查看此类下的其他子类RSS聚合"">"& obj_news_rs("ClassName") &"</a>"
  140. Else
  141. str_action=  "<img src=""images/-.gif"" border=""0""></img><a href=""#"" title=""没子类了"">"& obj_news_rs("ClassName") &"</a>"
  142. End if
  143. obj_news_rs_1.close:set obj_news_rs_1 =nothing
  144. Response.Write"<tr class=""hback""><td width=""220"">"
  145. Response.Write str_action &"</td><td width=""20""><img src=""../sys_images/rss.gif"" border=""0"" alt=""点击复制此RSS聚合地址"" style=""cursor:hand;"" onclick=""copyToClipBoard('"& obj_news_rs("ClassEName") &"');""></img></td><td>http://"& tmp_c_path &"xml/ns/"& obj_news_rs("ClassEName") &".xml</td>"
  146. Response.Write "</td></tr>"
  147. obj_news_rs.MoveNext
  148. loop
  149. response.Write("<tr class=""hback""><td colspan=""3""><span class=""tx"">提醒：点击图片复制RSS聚合地址</span></td></tr>")
  150. Response.Write("</table>")
  151. End if
  152. obj_news_rs.close:set obj_news_rs = nothing
  153. end if
  154. %>
  155.       <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  156.         <tr>
  157.           <td class="hback"> <table width="76%" border="0" align="center" cellpadding="5" cellspacing="1">
  158.               <tr>
  159.                 <td>
  160.          <%
  161.  if getParam(0)=1 then
  162.   dim rs
  163.   set rs = Server.CreateObject(G_FS_RS)
  164.   rs.open "select top 10 id,NewsTitle,Content,Source,Author,addtime From FS_NS_News where isLock=0 and IsURL=0 and isRecyle=0 and isdraft=0 order by PopId desc,id desc",Conn,1,3
  165.   if rs.eof then
  166. response.Write("无内容")
  167.   rs.close:set rs=nothing
  168.   else
  169. do while not rs.eof 
  170. response.Write "·<a href=Public_info.asp?type=NS&Url="&rs("id")&"><b><font style=""font-size:14px"">"&rs("NewsTitle")&"</font></b></a><br>"&chr(13)
  171. response.Write "<br>日期："&rs("addtime")&",来源："&rs("Source")&",作者："&rs("Author")&"<br><br>"
  172. response.Write "<font style="" line-height:22px"">&nbsp;&nbsp;&nbsp;&nbsp;"&left(rs("Content"),200)&"...</font><p></p>"
  173. rs.movenext
  174. loop
  175.   end if
  176.   If Not IsNull(rs) Then
  177. rs.close:set rs=Nothing
  178.   End if
  179.   end if
  180. getParam.close:set getParam=nothing
  181.   %>
  182.                 </td>
  183.               </tr>
  184.             </table></td>
  185.         </tr>
  186.       </table> 
  187.       <%
  188. end sub
  189. %>
  190.     </td>
  191.     </tr>
  192.     <tr class="back"> 
  193.       <td height="20"  colspan="2" class="xingmu"> <div align="left"> 
  194.           <!--#include file="Copyright.asp" -->
  195.         </div></td>
  196.     </tr>
  197.  
  198. </table>
  199. </body>
  200. </html>
  201. <%
  202. Set Fs_User = Nothing
  203. %>
  204. <script language='javascript'>
  205.  function copyToClipBoard(f_obj){
  206.    var clipBoardContent=''; 
  207.    clipBoardContent+='http://<%=tmp_c_path%>xml/ns/'+f_obj+'.xml';
  208.    window.clipboardData.setData("Text",clipBoardContent);
  209.    alert("你已复制RSS订阅地址!");
  210.   }
  211. </script>
  212. <!--Powsered by Foosun Inc.,Product:FoosunCMS V4.0系列-->