鴨爸的隨手寫寫

最近剛好有用到ASP去呼叫人家的API

所以就寫了一個丟XML去驗證的小程式

順手就把它記了下來了....

下面就是程式的內容....

還滿簡單的就組個XML之後傳過去驗證然後接受回傳的資料再解析出來

 

URL = "要傳送的網址"

Set xmlhttp = CreateObject("MSXML2.serverXMLHTTP")
xmlhttp.open "POST", URL, False

strXML = strXML & "<?xml version=""1.0"" encoding=""utf-8"" ?>" & vbCrLf
strXML = strXML & "<ROOT>" & vbCrLf
strXML = strXML & "<PERSON>" & vbCrLf
strXML = strXML & "<NAME> 某某某</NAME>" & vbCrLf
strXML = strXML & "<TEL> 0999999999</TEL>" & vbCrLf
strXML = strXML & "</ PERSON >" & vbCrLf
strXML = strXML & "</ ROOT >" & vbCrLf

xmlhttp.send strXML

Status = 200才是正常的

IF xmlhttp.status = 404 Then
  Response.Write "很抱歉目前無法驗證"
ELSEIF xmlhttp.status = 200 Then

‘接收對方回傳的XML
  strRetXML = xmlhttp.responseText

  On Error Resume Next

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

  xmlDom.async = False
  xmlDom.setProperty "ServerHTTPRequest", True
  xmlDom.loadXML strRetXML

    Set objNode = oXML.getElementsByTagName("PERSON")
    'For x = objNode.length-1 To 0 Step - 1
    For each x in objNode
      Response.write  "回傳結果：” & "
      Response.write  xmlDom.getElementsByTagName("NAME").item(x).Text  & "
      Response.write  xmlDom.getElementsByTagName("TEL").item(x).Text  & "
    Next
ELSE
  Response.Write "錯訊代碼：" & xmlhttp.status
END IF