首 页 网站运营 网络编程 网页制作 图象媒体 数据库 建站资源 网管专区 下载专区 最新资讯
IT学堂|红色黑客联盟
设为首页
加入收藏
联系站长
您所在的位置:首页>网络编程>ASP>文章内容
用Asp+XmlHttp实现RssReader功能
来源: 作者: 发布时间:2007-04-12

<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
%>




[推荐] [返回顶部] [打印本页] [关闭窗口]
热点文章
·ASP如何获取客户端真实IP地址
·ASP实现可显示和隐藏的树型菜单
·用ASP动态生成JS的表单验证代码
·ASP:用Asp编程实现QQ的在线情况查询
·ASP:用ASP打造一个小型的网页BBS系统
·ASP:用ASP编程实现网络内容快速查找
·ASP:利用ASP把图片上传到数据库
·ASP无法更新ACCESS数据库解决方法
·如何对ASP.NET进行性能优化
·入门:防范SQL注入攻击的新办法
相关文章
·纯ASP代码之公历转农历实现(含属相)
·纯ASP代码之公历转农历实现(含属相)--
·菜鸟详听ASP中也能解压缩rar文件
·实例讲解ASP实现抓取网上房产信息
·采用XMLHTTP编写一个天气预报的程序
·asp提供在线文章翻译的功能
·Delphi编写组件封装asp代码的基本步骤
·如何使用PHP获取网络上文件
·用ASP制作张扬个性的调查系统
·企业级N Tier体系结构解决方案讨论(二
文章检索
Google
相关文章
·纯ASP代码之公历转农历
·纯ASP代码之公历转农历
·菜鸟详听ASP中也能解压
·实例讲解ASP实现抓取网
·采用XMLHTTP编写一个天
·asp提供在线文章翻译的
·Delphi编写组件封装asp
·如何使用PHP获取网络上
·用ASP制作张扬个性的调
·企业级N Tier体系结构解
·使用XMLHTTP制作域名查
·企业级N Tier体系结构解
·基于ASP的收发文管理系
·StoredProcedure在企业
·XmlHttp异步获取网站数