网络编程 | 站长之家 | 网页制作 | 图形图象 | 操作系统 | 冲浪宝典 | 软件教学 | 网络办公 | 邮件系统 | 网络安全 | 认证考试 | 系统进程
Firefox | IE | Maxthon | 迅雷 | 电驴 | BitComet | FlashGet | QQ | QQ空间 | Vista | 输入法 | Ghost | Word | Excel | wps | Powerpoint
asp | .net | php | jsp | Sql | c# | Ajax | xml | Dreamweaver | FrontPages | Javascript | css | photoshop | fireworks | Flash | Cad | Discuz!
当前位置 > 网站建设学院 > 网络编程 > ASP实例
Tag:注入,存储过程,分页,安全,优化,xmlhttp,fso,jmail,application,session,防盗链,stream,无组件,组件,md5,乱码,缓存,加密,验证码,算法,cookies,ubb,正则表达式,水印,索引,日志,压缩,base64,url重写,上传,控件,Web.config,JDBC,函数,内存,PDF,迁移,结构,破解,编译,配置,进程,分词,IIS,Apache,Tomcat,phpmyadmin,Gzip,触发器,socket
网络编程:ASP教程,ASP.NET教程,PHP教程,JSP教程,C#教程,数据库,XML教程,Ajax,Java,Perl,Shell,VB教程,Delphi,C/C++教程,软件工程,J2EE/J2ME,移动开发
本月文章推荐
.利用ASP在客户端注册DLL文件.
.把HTML表单提交的数据转化成XML文.
.使用ASP建设私人搜索引擎.
.利用ASP打造网站论坛DIY.
.ASP.NET发送ICQ信息DIY(2).
.利用ASP在线维护数据库.
.用XMLHTTP做一个自己特色的Google .
.一个简单的网上书城的例子(一).
.一个检查E文拼写错误的Code.
.完整的访问统计程序(三 应用篇).
.XMLHTTP+Javascript+Asp写得聊天.
.使用JScript.NET创建asp.net页面.
.HTTP方式上载文件的ASP程序实例.
.显示sql数据库所有表的名称(带删.
.购物车范例(处理页面).
.用ASP开发一个在线考试程序(二).
.把文件存进access数据库然后取出.
.实例演练ASP+XML编程(2).
.W3 Jmail中文使用说明.
.jmail4.1用pop3收信的例子.

用Asp+XmlHttp实现RssReader功能

发表日期:2005-1-28


<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中也能解压缩rar文件 人气:29450
下一篇:纯ASP代码之公历转农历实现(含属相) 人气:33345
浏览全部Asp的内容 Dreamweaver插件下载 网页广告代码 祝你圣诞节快乐 2009年新年快乐