可在任意页面调用的5UCMS系统标签读取外部RSS源功能
来源:互联网 发布:python shell脚本 编辑:程序博客网 时间:2024/06/13 07:54
无忧CMS如何调用外站数据?如何在一个网站调用5ucms的首页或者文章栏目?也许看过此文,你会觉得,一切是那么简单~~
本站首页以及文章页面右侧显示的内容就是通过这个RSS读取功能做出来的,与js调用相比,它更具有seo可塑性。实现原理如下:
(本功能在原无忧CMS论坛jenfy朋友制作的RSS源函数基础上稍作修改,可以实现任意无忧CMS任意页面调用外站数据)
1,在inc/function.asp中增加以下内容:
Function readrss(xmlseed)
dim xmlDoc
dim http
Dim title_s
Dim item,title,link,str
Dim i
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item")
if item.Length<=1 then
else
For i=0 to 9 '调出最新10条数据,可自己修改
Set title=item.Item(i).getElementsByTagName("title")
Set link=item.Item(i).getElementsByTagName("link")
Dim author,pubDate
Set author=item.Item(i).getElementsByTagName("author")
Set pubDate=item.Item(i).getElementsByTagName("pubDate")
Dim Authorpost:Authorpost=author.Item(0).Text
title_s =title.Item(0).Text
if (len(title_s)>12) then
title_s=left(title.Item(0).Text,14)&"" '控制文章标题字数为14个字,可自己修改
end if
str = str & "<li><a href="""& link.Item(0).Text &""" title='"&Authorpost&"发表了"&title.Item(0).Text&"' target='_blank'>"& title_s &"</a></li>"
readrss = str
Next
end if
End Function
Dim post
post=readrss("http://www.csshaier.com/post/plugs/rss.asp") '引号里面是rss源地址
2、在首页或者任意合适的页面用{sys:post}调用即可!演示见本站。
- 可在任意页面调用的5UCMS系统标签读取外部RSS源功能
- 5UCMS使用page标签调用栏目形象图
- 5ucms信息源RSS插件代码
- 5ucms如何在channel页面直接调出文章内容
- 5UCMS常用标签整理2012.11.22
- 个人收藏5Ucms 标签整理
- 【ECSHOP】在任意页面调用商品属性的方法
- easyui在页面布局中引入外部的jsp页面,css冲突,功能失效,页面混乱
- dedecms任意页面调用栏目内容标签{dede:field.content/}的方法
- 5ucms编辑器fckeditor的一些说明
- C#读取Rss功能函数
- 5UCMS判断当前栏目高亮标签
- embed标签在页面加载的时候动态的改变src的值,可播放的
- 在Android系统中使用TeeSink功能截取任意音频流的原始PCM音频数据
- Java GUI项目读取Jar内部外部文件 打包EXE 在没有java环境的电脑上可运行
- 读取RSS源
- Android material 风格和 ios 风格的 dialog,可传入 context 构建,在任意地方弹出,一行代码调用
- 在Android系统外部和内部读取Android应用的签名
- LeetCode_OJ【33】Search in Rotated Sorted Array
- ios pch文件创建集锦
- VMware 安装mac osx 10.11 安装步骤(一)
- android input系统如何导入kl文件
- 建立顺序环型队列算法库
- 可在任意页面调用的5UCMS系统标签读取外部RSS源功能
- 图形算法 - 模糊函数比较,Blur Function Compare
- c/c++ strcpy函数的自己实现
- 黑马程序员——JAVA之IO
- 第8周、项目1—建立顺序串的算法库
- 项目1 -- 建立顺序串的算法库
- 多线程调用静态方法
- linux下查看和添加PATH环境变量
- JavaScript忍者秘籍——互动出版网