不用.net和其组件用asp访问webservice

Function GetASPNetResources()

Dim returnString

Dim myXML

Dim SoapRequest

Dim SoapURL

Set SoapRequest = Server.CreateObject("MSXML2.XMLHTTP")

Set myXML =Server.CreateObject("MSXML.DOMDocument")

myXML.Async=False

SoapURL = "http://64.85.12.73/WebSvc/whatsnew123apx_ds.asmx/GetNew123aspXResources?"

'这是真实可用的webservice

SoapRequest.Open "GET",SoapURL , False

SoapRequest.Send()

if Not myXML.load(SoapRequest.responseXML) then 'an Error loading XML

returnString = ""

Else 'parse the XML

Dim nodesURL

Dim nodesName

Dim nodesDateUpdated

Dim nodesDomain

Dim NumOfNodes

Dim ResourceList

Dim i

REM -- The XML Nodes are CASE SENSITIVVE!

Set nodesURL=myXML.documentElement.selectNodes("//URL")

Set nodesName=myXML.documentElement.selectNodes("//Name")