<% @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.xrss.cn/WebRss.Asp")
%>
<br><br>
</body>
</html>