ASP远程读取RSS列表源码

原始资料：

最近公司要用ASP做一个项目，远程读取“DONEWS”网站的RSS，地址为：
http://www.donews.com/rss.xml
要求：
1。ASP远程读取XML文件
2。在网页上显示出该XML文件的部分内容，如：只显示<title><link>的内容
3。只显示最新的10条新闻

白菜修改版：

<% @language="VBScript"%>
<html>
<head>
<title>远程读取XML文件</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<style type="text/css">
p {font-size:12px;}
p.font {font-size:14px;}
p.indent {text-indent:24px;}
b {font-size:12px;font-weight:bold;}
small {font-size:12px;}

</style>
</head>

<body>
<%
dim xmlDoc
dim root
dim number

Set http=Server.CreateObject("Microsoft.XMLHTTP")
http."GET","http://www.donews.com/rss.xml",False
http.send

Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)

set root=xmlDoc.documentElement
number=root.selectNodes("channel/item").length

if number<=10 then
%>
<script language="vbscipt">
msgbox "对不起,该新闻条数已经少于要显示的新闻条数!"
</script>
<%
else
response.write "" & root.childNodes(0).childNodes(0).text & ""
response.write "" & root.childNodes(0).childNodes(1).text & ""
response.write "" & root.childNodes(0).childNodes(2).text & ""

for i=0 to 9
response.write "" & root.childNodes(0).childNodes(5+i).childNodes(0).text & " "
response.write "" & root.childNodes(0).childNodes(5+i).childNodes(4).text & root.childNodes(0).childNodes(5+i).childNodes(3).text & " "
response.write "<a href='" & root.childNodes(0).childNodes(5+i).childNodes(1).text & "'>" & root.childNodes(0).childNodes(5+i).childNodes(1).text & "</a> "
response.write "" & root.selectNodes("channel/item/description")(i).text & " "
next
end if
%>
</body>
</html>

Tags (标签)

引用通告地址 (0)

Tags: Asp | Rss