zoukankan
html css js c++ java
用Asp+XmlHttp实现RssReader功能
<
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
%
>
青苹果Web应用商店
https://webapp.taobao.com/
PHP/ASP.NET/ASP/UCHOME/DISCUZ! X系列网站开发,详细需求联系
QQ:8511978
查看全文
相关阅读:
Python深入03 对象的属性
利用Webkit抓取动态网页和链接
分享:OCILIB 3.11.0 发布,跨平台 Oracle 驱动
Knockoutjs实战开发:控制子绑定(control descendant bindings)
利用InjectedBundle定制自己的Webkit(二)
使用solrj和EasyNet.Solr进行原子更新
Chaos网络库(二) Buffer的设计
分享:djangohaystack+solr实现搜索
Moon.ORM 4.4 隆重发布,在性能和使用便捷上一挑群雄(mysoft,cyq,pdf)
数据结构利器之私房STL(中)
原文地址:https://www.cnblogs.com/Dicky/p/122538.html
最新文章
[置顶] 社团的那些事(4)
DB2 Alter Table简介及使用
创业之路这样走 必死无疑
安卓操作系统简介
jQuery 入门教程(33): jQuery UI Dialog 示例(一)
js 火狐下取本地路径
腾讯:致广大QQ用户的一封信
腾讯:致广大QQ用户的一封信
Java 版的 Berkeley DB 4.1.6 发布
加速你的Hibernate引擎(下)
热门文章
GAE 博客——B3log Solo 0.2.0 发布预告
GDI中获取字符串精确绘制范围的两种做法比较
加速你的Hibernate引擎(下)
Google Code Bug
Google Code Bug
Java 版的 Berkeley DB 4.1.6 发布
分享:djangohaystack+solr实现搜索
asp.net搜索引擎(网络爬虫)设计及研发
分享:Ubuntu 有了第一个全球 CDN 更新源
Selenium Two Tutorial using IronPython and InternetExplorerDriver The Automated Tester
Copyright © 2011-2022 走看看