Läsa XML dokument från en annan server

2 svar · 214 visningar · startad av Pace 30 jan. 2002

PaceMedlem sedan juni 20019 024 inlägg

Frågan30 jan. 2002 19:56#1

Hur ska man göra för att läsa en XML-fil som ligger på en annnan server?
Nuvarande kod läser ur en fil som ligger på samma server:

Dim objXML, objLst, intNoOfHeadlines, objHdl, I
	
	' xmlDom objekt
	Set objXML = Server.CreateObject("Microsoft.XMLDOM")
	objXML.async = False
	
	' Ladda XML filen
	objXML.Load(Server.MapPath("news.xml"))
	Set objLst = objXML.getElementsByTagName("news")
	
	' Hur många nyheter
	intNoOfHeadlines = objLst.length
	
	' Loopa igenom nyheterna
	For i = 0 To intNoOfHeadlines-1
		Set objHdl = objLst.item(i)
		Response.Write "<A HREF=""" & objHdl.childNodes(2).text & """ TARGET=""_blank"">" & _
		objHdl.childNodes(0).text & _
		"</A><BR>" & _
		objHdl.childNodes(1).text
Next

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

VideMedlem sedan dec. 19998 577 inlägg

30 jan. 2002 20:52#2

Här är en kod jag använder, och andra kan använda för att hämta ifrån en annan sajt:

<%
response.buffer = true

Function GetXML(strURL)
Dim objXMLHTTP, strReturn
Set objXMLHTTP = SErver.CreateObject("Microsoft.XMLHTTP")
objXMLHTTP.Open "GET", strURL, False
objXMLHTTP.Send

strReturn = objXMLHTTP.responseText
Set objXMLHTTP = Nothing

GetHTML = strReturn
End Function

strXML = GetXML("http://www.webeye.nu/xml/getxml.asp?method=xml")

response.contenttype = "application/x-msdownload"
response.write strXML
%>

Ändra contenttype till vad som passar dig, eller din applikation... ;)

Mvh, Vide

------------------
Mostly Harmless

PaceMedlem sedan juni 20019 024 inlägg

30 jan. 2002 23:09#3

Ja, så kan man ju också göra!
Tack Vide!

[r] XMLDOM kan ladda strängar innehållande XML också med metoden objXML.LoadXML(strXML).

------------------
"Tål det inte att skämtas om, är det inte värt att ta på allvar."

[Redigerat av Pace den 31 jan 2002]