WordPress企业主题定制/开发/优化

实用的ASP抓取RSS示例代码

首页 » ASP » 实用的ASP抓取RSS示例代码

ASP抓取RSS示例代码

下载源代码

<% @language="VBScript"%>
<%
Function readrss(xmlseed)
dim xmlDoc
dim http
Set http=Server.CreateObject("Microsoft.XMLHTTP")
http.Open "GET",xmlseed,False
http.send
Set xmlDoc=Server.CreateObject("Microsoft.XMLDOM")
xmlDoc.Async=False
xmlDoc.ValidateOnParse=False
xmlDoc.Load(http.ResponseXML)
Set item=xmlDoc.getElementsByTagName("item")
if item.Length<=10 then
%>
<script language="JavaScript">
alert("对不起,该新闻条数已经少于10条新闻条数!");
</script>
<%
else
For i=0 To (item.Length-1)
Set title=item.Item(i).getElementsByTagName("title")
Set link=item.Item(i).getElementsByTagName("link")
Response.Write("<a href="""& link.Item(0).Text &""" target=’_blank’>"& title.Item(0).Text &"</a><br>")
Next
end if
End Function
%>
<html>
<head>
<title>远程读取XML文件</title>
</head>
<body>
<%
call readrss("http://finance.yahoo.com/rss/usmarkets")
%>
<br><br>
</body>
</html>

分类与标签:

ASP

, ,

相关项目

  • WordPress外贸企业主题

  • 最近更新

  • 热门标签

    网站优化 PHP文件 wordpress企业网站 焦点图 PHP数据库操作 wordpress 插件 wordpress主题定制 PHP图片上传 广告代码 seo wordpress 外贸英文主题 wordpress函数 wordpress插件 asp文件操作 外贸网站建设 PHP 函数 ASP wordpress中文主题 ASP函数 实用代码 javascript wordpress 企业主题 Flash焦点广告 wordpress主题 CSS css 外贸SEO wp外贸企业主题 wp wordpress教程 JS图片变换 JS PHP WordPress企业模板 WORDPRESS主题技术 外贸SEO asp数据库 wordpress 外贸企业主题 wp企业主题 wordpress企业主题