风讯官方论坛

首页 » FoosunCMS交流区 » 插件讨论 » 风讯系统使用RSS的简单方法
bbswing - 2006-3-2 01:20:00

风讯系统使用RSS的简单方法,不知道RSS的语法对不,是看百度上的xml源码写的,不过我用RSS阅读器测试成功,呵呵


使用方法很简单,不带参数就取出所有文章,带参数就取出相应栏目的文章,并且可定义文章简介的字数。


已修正使用日期路径问题,请从下面地址下载修正版谁改进了的话也请给我一份[em09]

[upload=rar]viewFile.asp?ID=3207[/upload]

[此贴子已经被作者于2006-3-4 0:10:14编辑过]



附件: 3093.rar

附件: 3094.rar

附件: 3115.rar
sinaqq - 2006-3-2 08:43:00
支持! 过会试试
htb618 - 2006-3-2 09:41:00

怎么定义“文章简介的字数”呢?

htb618 - 2006-3-2 12:10:00

我折腾了半天,我发用RSS阅读器调用,是不会

htb618 - 2006-3-2 17:19:00

用RSS阅读器怎么调用呢?不知道怎么调用,请明示?


还有,怎么定义“文章简介的字数”呢?

bbswing - 2006-3-2 18:37:00

源文件里面有说明啊,变量wordnum的值就是字数限制。


使用方法压缩包里面也已经写了

[em07]
wangaiping - 2006-3-3 08:20:00

大家不要下!有严重缺陷!


里面生成的连接统一生成xxx.com/jiaodian/173111872XX.html 这个样子


而我的文件名是生成日期的2006-3/2/202457248XX.html


用在线RSS bloglines  用了一下  一,地址生成错误,不能访问。


二,简介文字里有


nbsp;乱码。

htb618 - 2006-3-10 15:20:00

发现修改后的文件有问题,不能调用栏目新闻,只能调用全部新闻;

lyinet - 2006-3-11 15:32:00
以下是引用htb618在2006-3-10 15:20:00的发言:

发现修改后的文件有问题,不能调用栏目新闻,只能调用全部新闻;





有这个问题,谁能解决一下呢?

cmyes - 2006-3-20 14:07:00

能不能限制指输出100-200条最新的,这样速度比较快,要是输出整个栏目的话,栏目里面有1万条数据,输出要输出一会了!而且频繁的调用数据库,能不能生成静态的,这样的话不用每次都读取数据库了!

滚雪 - 2006-3-24 15:20:00
是个好功能
mpling - 2006-5-1 23:25:00
俺们看看
sef1 - 2006-5-6 22:42:00
..功能不错 就是没有实现
coo - 2006-6-18 12:13:00

Thanks!!

robert - 2006-7-5 12:45:00

有问题,我访问不了,我放到我站目录下 http://www.567tour.com/rss.asp

代码修改为:

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Inc/Cls_DB.asp"-->
<!--#include file="Inc/Const.asp"-->
<!--#include file="Inc/NoSqlHack.Asp"-->
<%
on error resume next
set DBC=new DatabaseClass
set rss_conn = DBC.openconnection()
wordnum=50    '======定义默认简介内容字数
connstr=""
if len(trim(request.querystring("classEName")))>0 then
className = trim(request.querystring("classEName"))
set whatClass = server.CreateObject("adodb.recordset")
whatClassSQL = "select * from FS_newsClass where ClassEName='"&className&"'"
whatClass.open whatClassSQL,rss_conn
connstr="where ClassID='"&whatClass("ClassID")&"'"
end if
set rs = server.CreateObject("adodb.recordset")
strSQL = "select top 100 * from FS_news " &connstr &"order by id desc"
rs.open strSQL,rss_conn,3,3
set webconfig = server.CreateObject("adodb.recordset")
webSQL = "select * from FS_config"
webconfig.open webSQL,rss_conn
if err.number<> 0 then
response.write "没有找到任何内容"
else
response.contentType="text/xml"
response.write("<?xml version=""1.0"" encoding=""GB2312""?>")
'response.write "<?xml-stylesheet href=""css/rss.css"" type=""text/css""?>"
response.write("<rss version=""2.0"">")
response.write "<channel>"
if len(className)<=0 then
response.write "<title>"&replace(webconfig("SiteName"),"&","")&"</title>"
else
response.write "<title>"&replace(webconfig("SiteName"),"&","")&"["&replace(whatClass("ClassCName"),"&","")&"]</title>"
end if
do while not rs.eof
set newsClass = server.CreateObject("adodb.recordset")
classSQL = "select * from FS_newsClass where classID='"&rs("ClassID")&"'"
newsClass.open classSQL,rss_conn
response.write "<item>"
response.write "<title>" &replace(rs("title"),"&","")&"</title>"
response.write "<description><![CDATA["&left(replace(rs("content"),"&",""),wordnum)&"……"&"]]></description>"
linkStr="<link>" &replace(webconfig("DoMain"),"&","")&replace(newsClass("saveFilePath"),"&","")&"/"&replace(newsClass("ClassEName"),"&","")&"/"&replace(rs("filename"),"&","")&"."&replace(rs("fileextname"),"&","")&"</link>"
if len(trim(request.querystring("useDatePath")))>0 and request.QueryString("useDatePath")="1" then '====判断是否使用日期路径
linkStr="<link>" &replace(webconfig("DoMain"),"&","")&replace(newsClass("saveFilePath"),"&","")&"/"&replace(newsClass("ClassEName"),"&","")&replace(rs("Path"),"&","")&"/"&replace(rs("filename"),"&","")&"."&replace(rs("fileextname"),"&","")&"</link>"
end if
response.write linkStr
response.write "<category>" &replace(newsClass("ClassCName"),"&","")&"</category>"
response.write "<author>" &replace(rs("Author"),"&","")&"</author>"
response.write "<pubDate>"&rs("addDate")&"</pubDate>"
response.write "<comments></comments>"
response.write "</item>"
newsClass.close
set newsClass = nothing
rs.movenext
loop
response.write "</channel>"
response.write("</rss>")
end if
rs.close
set rs=nothing
%>

请指点指点哈!

chinaitgi - 2006-8-13 11:47:00

提供一个简单的修改方法,如下:

把Rss目录下的index.asp文件第71行<link>"&rs("HeadNewsPath")&"</link>改为<link>"&GetConfig(0)& RssClassObj(0)& "/"& RssClassObj(1)&rs("path")&"/"&rs("FileName")&"."&rs("FileExtName")&""&"</link>就是拆分为调用网址+存放目录名+分类名+文件名
实例:http://info.chinaitgi.com/Rss/index.asp?t=n&c=l&id=065300853209230

http://info.chinaitgi.com

85flash - 2006-8-21 13:37:00

flyfoosun - 2006-11-26 10:51:00

这个补丁没有判断权限,所以存在一定的漏洞。

其中有个大bug,取消审核的帖子,却可以在rss中看到。

建议大家使用时再修改代码。

smallplane - 2006-11-29 04:30:00
asdasdsadasdsadasdsadas
yi35 - 2006-12-18 22:21:00

不知道怎么用

asong2008 - 2007-4-17 16:36:00
我要下载
gaya - 2007-4-17 16:54:00
难道是后者?
xhpeng - 2007-4-29 07:10:00
下来看看
感谢分享
crcpp - 2007-10-28 13:23:00
为什么没有人实际解决这个问题??
我的也是,文章链接地址缺少时间!是个大的问题啊!
1
查看完整版本: 风讯系统使用RSS的简单方法