<%

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菜鸟，请老大们给予帮助。

这段代码对于刚接触ASP没多少时间的人的确不容易看懂，这段代码调用的是一个WebService（Web服务),Web服务说通俗一点可以理解为能够跨服务器远程调用的函数或过程。
Web服务的函数如果有返回值一般是以XML形式来返回的，最著名的Web服务例子就是淘宝网的支付宝接口，跟淘宝网合作的网站能够远程调用支付宝接口来实现在其他网站交易淘宝的商品。