首 页 | 精品电影 | 音乐天堂 | 在线游戏 | Flash MTV | 三湘书屋 | 幽默笑话 | 三湘图库 | 美女写真 | IT知识库 | QQ贴图 | 加入书签

网页制作网络编程图形图象操作系统冲浪宝典软件教学网络安全认证考试通信技术电子商务业内动态书籍教程原码

最近更新 文章分类 多媒体类 精品软件

本站搜索:
您的位置:三湘时空 -> IT知识库 -> 文章分类 -> ASP实例 -> 用Asp+XmlHttp实现RssReader功能  
用Asp+XmlHttp实现RssReader功能


文章类别:ASP实例 来源: 作者: 发表日期:2005-10-4 字体:[ ]

小游戏 | 在线影院 | 幽默笑话 | 源码下载 | Flash MTV | 音乐试听 | 书屋 | 美女写真

<style>
body {margin:10px;background-color:#ffffff;margin-top:6px;}
form{margin:0px;}
* {font:12px tahoma;line-height:140%;color:#000000}
.title {font-weight:bold;color:red;}
.time {font:10px;color:#999999;}
a {text-decoration:none;color:blue;}
</style>
<script type="text/javascript">
var switcher=0;
</script>
<body ondblclick="if(switcher==0){document.styleSheets[0].addRule('div','display:none');switcher=1}else{document.styleSheets[0].addRule('div','display:block');switcher=0}">
<form name="rssform" method=post action="">
RSS资源:<INPUT TYPE="text" NAME="RssFeed" size=60 style="height:22px" value="<%=request("RssFeed")%>" onfocus=select()> <input type="submit" value="Read It"> &nbsp;&nbsp;双击鼠标可以关闭摘要,只显示标题
</form>
<hr/>
<%
If(request("RssFeed")="") Then
url="/rss2.asp"
else
url=request("RssFeed")
End If

Set xml = Server.CreateObject("Microsoft.XMLHTTP")
xml.Open "GET", url, False
xml.Send

Set xmlDom = server.createObject("microsoft.xmldom")
xmlDom.async=False
xmlDom.ValidateOnParse=false
xmlDom.load(xml.responseXML)

if xmlDom.ReadyState>2 Then 

  set oItem=xmlDom.getElementsByTagName("item")

  for i=0 to oItem.length-1
    response.write "<span style='font:bold 9px verdana;color:#000000'>"&i+1&"</span>. <a class='title' href='"&oItem(i).childNodes(1).text&"' target='_blank'>"&oItem(i).childNodes(0).text&"</a> <span class='time'>["&oItem(i).childNodes(3).text&"]<br />"
    response.write "<div>摘要:"&oItem(i).childNodes(4).text&"</div><br>"
  next
end if
%>

上一篇:Windows XP系统中快速转换FAT32至NTFS 下一篇:瑞士信贷第一波士顿微上调Google赢利预期
本栏目热门文章
·用EasyMailObject组件处理Exchange邮件源代码(6 2005-10-4
·用EasyMailObject组件处理Exchange邮件源代码(5 2005-10-4
·用EasyMailObject组件处理Exchange邮件源代码(1 2005-10-4
·用EasyMailObject组件处理Exchange邮件源代码(2 2005-10-4
·用EasyMailObject组件处理Exchange邮件源代码(3 2005-10-4
·用EasyMailObject组件处理Exchange邮件源代码(4 2005-10-4
·用EasyMailObject组件处理Exchange邮件源代码(7 2005-10-4
·通过ASP与ACCESS数据库建立连接(附源码)(2) 2005-10-3
·调用winzip命令行对上传的多个文件打包压缩 2005-10-4
·多个域名后缀同时查询的域名查询系统 2005-10-31
新近更新文章
·asp简单的ajax留言板(采用三层模式) 2006-5-28
·ASPImage组件的实现过程 2005-12-20
·多个域名后缀同时查询的域名查询系统 2005-10-31
·asp提供在线文章翻译的功能 2005-10-4
·实例讲解ASP实现抓取网上房产信息 2005-10-4
·纯ASP代码之公历转农历实现(含属相) 2005-10-4
·纯ASP代码之公历转农历实现(含属相)--例子代码 2005-10-4
·用Asp+XmlHttp实现RssReader功能 2005-10-4
·菜鸟详听ASP中也能解压缩rar文件 2005-10-4
·采用XMLHTTP编写一个天气预报的程序 2005-10-4
首 页 | 软件发布 | 广告联系 | 下载帮助 | 意见反馈 | 网站地图
  CopyRight? 2002-2004 WWW.SXSKY.NET? All Rights Reserved
三湘时空 站长QQ:82675303 Email: