利用XMLHTTP 從其他頁面獲取資料 (轉)

利用XMLHTTP 從其他頁面獲取資料 (轉)[@more@]

我們在編寫程式碼的時候，大家都知道可以透過post或者get獲得form表單的資料，那麼我們如何直接獲得其他頁面上的資料呢？這就要藉助了。是xml技術的一部分。

下面的程式碼就是一個很簡單的例子，我們利用xmlhttp技術，把站點首頁的程式碼以xml的形式完全獲取，並且在頁面中輸出。

  Dim objXMLHTTP, xml
  Set xml = Server.Create(".XMLHTTP")
 
  xml.Open "GET", "", False
  ' Pull the data from the page
  xml.Send

  Response.write "Here's the html we now have in our xml object"
  Response.write "


"
  Response.Write "

&quot;<br>  Response.Write xml.responseText<br>  Response.Write &quot;"
  Response.write "


"
 Response.write " Now here's how the page looks:

"
  Response.Write xml.responseText
 
  Set xml = Nothing
%>

下面是另一個例項

dim objHTTP , objXML , obj
set objHTTP = Server.CreateObject("Microsoft.XMLHTTP")
objHTTP.open "GET", "", false
objHTTP.send
set objXML = objHTTP.responseXML
set objXSL=Server.CreateObject("microsoft.xmldom")
objXSL.async=false

objXSL.load(Server.MapPath("style.xsl"))

if (objXSL.parseError.errorCode = 0) then
  Response.Write(objXML.tranormnode(objXSL))
else
  Response.Write "Error: " & objXSL.parseError.reason & " URL:" & objXSL.url
end if

Set objHTTP = Nothing
Set objXML = Nothing
Set objXSL = Nothing
%>

style.xsl：