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
查看全文
相关阅读:
面向对象---2
面向对象---1
数组的复制、反转、查找(线性查找,二分法查找)
Oracle 开放端口供客户机连接
ORACLE常用函数大全
ORACLE常用脚本
C#开发实用知识点总结
线程对话框基类
C#开发常见问题处理
通过修改注册表实现IE设置
原文地址:https://www.cnblogs.com/Dicky/p/122538.html
最新文章
delphi 之覆盖虚方法示例
delphi 虚方法virtual与动态方法dynamic的区别:
Delphi常用关键字用法详解
delphi To Do 注释的运用
delphi 之内嵌汇编小示例
delphi IDE中查看继承/结构树
你的登录接口真的安全吗?
窃隐私泄露、放高利贷,输入法的暗箱操作
电脑运行软件卡顿?这几招游戏或是办公,让你速度飞起!
电脑C盘爆满?妙招教你腾出20GB以上!
热门文章
几种方法,彻底删除电脑弹窗广告,还你一个干净的桌面~
succession平刷教程(详解,实操,经验)
任性安装苹果应用,安装包在手天下我有
java.lang.Comparable/java.util.Comparator
内部类的概述
接口
关键字(权限修饰符、static、final、native、abstract)
非静态与静态
java.lang.Object
继承基础
Copyright © 2011-2022 走看看