<form id="hz9zz"></form>
  • <form id="hz9zz"></form>

      <nobr id="hz9zz"></nobr>

      <form id="hz9zz"></form>

    1. 明輝手游網中心:是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺!

      使用ASP從遠程服務器上接收XML數據

      [摘要]<%dim objXMLdim objRootElementdim strValuedim strInetURLdim strXMLdim item strInetURL...
      <%
      dim objXML
      dim objRootElement
      dim strValue
      dim strInetURL
      dim strXML
      dim item
                  
      strInetURL ="http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml"
      Dim HttpReq
        
      set HttpReq = server.CreateObject("MSXML2.XMLHTTP")
        
      HttpReq.open "GET", "http://pf.inetsolution.com/inetactive2001/inetactive2001news.xml", False
      HttpReq.send
      strXML = HttpReq.responseText       
      Set objXML = Server.CreateObject("Msxml2.DOMDocument")
      objXML.validateonparse = true
      objXML.async=false
      objXML.loadXML(strXML)
      if objXML.ParseError.errorCode <> 0 then
          Response.Write("Error: " & objXML.parseError.reason & "<br>")
          Response.Write("Code: 0x" & hex(objXML.parseError.errorCode) & "<br>")
          Response.Write("At Line: " & objXML.parseError.line & "<br>")
          Response.Write("At pos: " & objXML.parseError.linePos & "<br>")
                      
      else
          set objRootElement = objXML.documentElement
          if not isObject(objRootElement) then
              Response.Write("no file loaded")
          else
              Response.Write(objRootElement.childnodes(0).text)
          end if
      end if
      %>



      日韩精品一区二区三区高清