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
查看全文
相关阅读:
小写数字转化为大写工具类
java中关于日期类Calendar的简单使用
ArrayList用法总结
滚动条(附:定时调用)
百度Echarts的使用总结
Datatables 使用总结
字符串(String、StringBuffer、StringBuilder)
sqlserver 脚本方式导出数据到excel
前端面试
数据库面试
原文地址:https://www.cnblogs.com/Dicky/p/122538.html
最新文章
centOS7使用setup没有网络配置选项怎么办?
CentOS系统找不到setup命令工具的解决方法
centOS7下ifconfig提示command not found 解决办法
CentOS7 "Could not resolve host: mirrorlist.centos.org; Unknown error"解决方法
MySQL数据库事务的隔离级别
JavaScript的运算符优先级
vmware workstation pro 15.5安装centos8桌面不能自适应全屏之解决方案
drf 认证、权限、限流、过滤、排序、分页器
drf 需求案例1
ModelViewSet 视图集 实现接口
热门文章
Rest_framework 和路由配置(一)
爬虫豆瓣(动态页面1)
vue组件,axios ,路由
vue基础 (三) 自动化工具(Vue CIL)
vue 基础(二)
scrapy 爬虫框架之持久化存储
scrapy 爬虫框架(一)
freemarker
收藏网址
CSDN比较不错的博客
Copyright © 2011-2022 走看看