<% @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://www.itlearner.com/article/feed.asp")
%>
<br><br>
</body>
</html>
| 广告投放 | 免费电影在线观看 | 特卖商城 | 淘宝商城 | 男装服饰 | 女装服饰 | 美容护肤 | 饰品鞋包 | 台湾商品 |
|---|---|---|---|---|---|---|---|---|
| 淘宝排行榜 | 居家玩具 | 电器商城 | 食品保健 | 数码家电 | 家居装修 | 品牌商品 | 汽车用品大促销 | |
| 2010秋装 新品发售！ | 秋季新品 5折抢拍 | 数码电器品牌日 | 女人最爱的七夕礼物 | 名鞋馆抢新季 | 女鞋全场50%off | 唤醒夏日美人颜 | 黄金广告位每月50元 |
| 百度广告 |
|---|
 |  |
asp读取rss
文章作者：佚名 | 更新日期：2010-3-3 12:39:00 | 浏览(502)人次 | 好评(0)人次 | 差评(0)人次
asp读取rss
综合
文章导航
Copyright 2010 影子网[自助链接] All Right Reserved 
