<% @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
%>
<%
else
For i=0 To (item.Length-1)
Set title=item.Item(i).getElementsByTagName("title")
Set link=item.Item(i).getElementsByTagName("link")
Response.Write(""& title.Item(0).Text &"
")
Next
end if
End Function
%>
远程读取XML文件
<%
call readrss("http://www.yangzhi.com/rss.asp")
%>
本文作者:JemBai 来源:http://www.cnblogs.com/JemBai/
CIO之家 www.ciozj.com 微信公众号:imciow