发新话题
打印

请问如何为rss.xml加入一个image标签?

请问如何为rss.xml加入一个image标签?

请问如何为rss.xml加入一个image标签?
.....................
<language>zh-CN</language>
<image>
<link>http://www.athere.net</link>
<url>
http://www.athere.net/image/me.jpg</url>
<title>athere</title>
</image>

<copyright>Copyright Athere Some Rights Reserved.</copyright>
.............................

请问红色的内容如何插入呢?
曾经尝试在sydication.asp中插入
  .AddChannelAttribute "image","<image><link>http://www.athere.net</link><url>http://www.athere.net/image/me.jpg</url><title>athere</title></image>"
但是好象没有什么效果~

请高手指教~

[ 本帖最后由 athere 于 2007-5-7 18:50 编辑 ]

TOP

我来给个修改方面(顺便学习了一下RSS格式

1.rss_lib.asp中找 Class TRss2Export
加个函数(70行左右):
复制内容到剪贴板
代码:
        Public Function AddImageAttribute(link,url,title)

                Dim objXMLitem
                Set objXMLitem = objXMLdoc.createElement("image")
                objXMLchannel.AppendChild(objXMLitem)

                If(Len(link)>0) Then
                        objXMLitem.AppendChild(objXMLdoc.createElement("link"))
                        objXMLitem.selectSingleNode("link").text=link
                End If

                If(Len(url)>0) Then
                        objXMLitem.AppendChild(objXMLdoc.createElement("url"))
                        objXMLitem.selectSingleNode("url").text=url
                End If

                If(Len(title)>0) Then
                        objXMLitem.AppendChild(objXMLdoc.createElement("title"))
                        objXMLitem.selectSingleNode("title").text=title
                End If

                AddImageAttribute=True

        End Function
2.c_system_event.asp 中在                .AddChannelAttribute "pubDate",Now下加一行
复制内容到剪贴板
代码:
                .AddImageAttribute  TransferHTML(ZC_BLOG_HOST,"[html-format]"),TransferHTML(FEEDIMAGEURL,"[html-format]"),ZC_BLOG_TITLE
其中,ImageUrl为图片地址,可以在c_option.asp建个这样的变量,方便修改,如:
Const FEEDIMAGEURL="http://www.athere.net/image/me.jpg"

或者直接换成图片地址,记得加引号.....

3.索引重建后,查看rss.xml可看到效果。

[ 本帖最后由 月上之木 于 2007-5-8 21:42 编辑 ]

TOP

感谢版主~~

感谢版主~~
经过测试可行,但是“,ZC_BLOG_TITLE”需要紧跟在.AddImageAttribute  TransferHTML(ZC_BLOG_HOST,"[html-format]"),TransferHTML(FEEDIMAGEURL,"[html-format]")后面

TOP

没错,自动换行的原因

ps: 如果你的database.asp用的是tags的模板,可以将模板中的TagCloud换成<#BlogTitle#>标签。

TOP

再次感谢月上版主,database.asp的相关代码我已经发在http://bbs.rainbowsoft.org/viewthread.php?tid=13073上了。一起研究吧

TOP

留下记号,以备后用。

TOP

发新话题