asp调用webservice

<%
'根据IP地址返回地理位置
dim objHTTP, xmlDOC, strWebserviceURL, strRequest, bOK, xmlStr
    Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP")
    Set xmlDOC = Server.CreateObject("MSXML.DOMDocument")
    strWebserviceURL = "http://webservice.webxml.com.cn/WebServices/IpAddressSearchWebService.asmx/getCountryCityByIp"  'WebService的URL
    strRequest = "theIpAddress=127.0.0.1"  '带参数的方法调用
    objHTTP.Open "POST", strWebserviceURL, False
    objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    objHTTP.Send(strRequest)
    bOK = xmlDOC.load(objHTTP.responseXML)
    if objHTTP.Status=200 then
      xmlStr = xmlDOC.text  'xmlDOC.text返回text格式 xmlDOC.xml返回xml文件格式
      Response.Write xmlStr
    else
      Response.Write objHTTP.Status&"<br>"
      Response.Write objHTTP.StatusText
    end if








%>