采集程序設計經(jīng)驗交流(二)——下載網(wǎng)頁(1)
“小網(wǎng)站本不需要維護，只是因為你的程序太笨了，所以你成了無休止的網(wǎng)站維護者。”
網(wǎng)頁下載方法1(XMLHTTP應用)
用到的對象：XMLHTTP，只需三行代碼，即可完成網(wǎng)頁下載：
第一步：創(chuàng)建對象
Set ms = CreateObject("Microsoft.XMLHTTP")
這行代碼用于創(chuàng)建一個xmlhttp對象，其中ms為創(chuàng)建對象的名稱，ASP編程經(jīng)常用到，可以隨便寫，不再贅述。
第二步：設置參數(shù)
ms.open "GET",url,False
其中url是要下載網(wǎng)頁的網(wǎng)址，把它換成你的目標網(wǎng)頁網(wǎng)址即可，格式為：，一定要寫完整，不可省略http://;
“GET”是打開的方法，當然也可以用POST，產(chǎn)生的效果和HTML里的表單提交方式是一樣的。
第三步：發(fā)送數(shù)據(jù)
ms.Send()
此行代碼用于發(fā)送數(shù)據(jù)并下載，下載后的數(shù)據(jù)儲存在變量responsebody里。
下面我們以下載“點點機票網(wǎng)()”首頁為例進行一下說明
代碼：
Set ms = CreateObject("Microsoft.XMLHTTP")
ms.Open "GET","
ms.Send()
response.write ms.responseBody
運行以上代碼大家可以發(fā)現(xiàn)，我們已經(jīng)成功下載了
這里有個問題需要注意一下，有時候網(wǎng)址很長，直接加在第二行代碼里會顯得很亂，那么，我們可以用一個變量來代替一下，如下：
url=";
Set ms = CreateObject("Microsoft.XMLHTTP")
ms.Open "GET",url ,False
ms.Send()
response.write ms.responseBody
這樣以來代碼就變得整齊多了。
申請創(chuàng)業(yè)報道，分享創(chuàng)業(yè)好點子。點擊此處，共同探討創(chuàng)業(yè)新機遇！
