<%

Dim objSoap,objXml,nCntChd,dsLst,i,j

Set objSoap = CreateObject("MSSoap.SoapClient30")

objSoap.ClientProperty("ServerHTTPRequest") = True

objSoap.mssoapinit " http://test.,"","",""

 

resData = objSoap.GetAllDiamondData("{\"UserName\":\"abc\",\"PassWord\":\"F7YDE35B\",\"Carat\":\"0.1-0.8\",\"Color\":\"D,E\",\"Clarity\":\"VS1\",\"Cut\":\"EX\",\"Polish\":\"EX\",\"Shape\":\"Round\",\"Sort\":\"disc\"}")

       Set objXml = Server.CreateObject("MSXML2.DOMDocument")

       objXml.Async=False

       objXml.ValidateOnParse=False

       objXml.LoadXML(resData)

      

       If objXML.parseError.ErrorCode<>0 Then

              Response.Write "Error!"

              Response.End()

       End If

       Set objLst = objXML.documentElement

       Set dsLst = objXML.getElementsByTagName("ds")

      

       For i=0 to objLst.ChildNodes.length-1

              nCntChd=dsLst.item(i).ChildNodes.length-1              

              For j=0 To nCntChd      

                     Response.Write dsLst.item(i).ChildNodes.item(j).text&"<br />"    '数据处理

              Next

       Next

       Set objXml = Nothing

Set objSoap = Nothing

%>

这是 BBU数据接口的ASP代码，请各位大侠，给看一下是否有错误。刚学ASP没多长时候，属于ASP菜鸟，请老大们给予帮助。