域名預(yù)訂/競(jìng)價(jià)，好“米”不錯(cuò)過

采集程序設(shè)計(jì)經(jīng)驗(yàn)交流(二)——下載網(wǎng)頁(1)

“小網(wǎng)站本不需要維護(hù)，只是因?yàn)槟愕某绦蛱苛耍阅愠闪藷o休止的網(wǎng)站維護(hù)者。”

網(wǎng)頁下載方法1(XMLHTTP應(yīng)用)

用到的對(duì)象：XMLHTTP，只需三行代碼，即可完成網(wǎng)頁下載：

第一步：創(chuàng)建對(duì)象

Set ms = CreateObject("Microsoft.XMLHTTP")

這行代碼用于創(chuàng)建一個(gè)xmlhttp對(duì)象，其中ms為創(chuàng)建對(duì)象的名稱，ASP編程經(jīng)常用到，可以隨便寫，不再贅述。

第二步：設(shè)置參數(shù)

ms.open "GET",url,False

其中url是要下載網(wǎng)頁的網(wǎng)址，把它換成你的目標(biāo)網(wǎng)頁網(wǎng)址即可，格式為：，一定要寫完整，不可省略http://;

“GET”是打開的方法，當(dāng)然也可以用POST，產(chǎn)生的效果和HTML里的表單提交方式是一樣的。

第三步：發(fā)送數(shù)據(jù)

ms.Send()

此行代碼用于發(fā)送數(shù)據(jù)并下載，下載后的數(shù)據(jù)儲(chǔ)存在變量responsebody里。

下面我們以下載“點(diǎn)點(diǎn)機(jī)票網(wǎng)()”首頁為例進(jìn)行一下說明

代碼：

Set ms = CreateObject("Microsoft.XMLHTTP")

ms.Open "GET","

ms.Send()

response.write ms.responseBody

運(yùn)行以上代碼大家可以發(fā)現(xiàn)，我們已經(jīng)成功下載了

這里有個(gè)問題需要注意一下，有時(shí)候網(wǎng)址很長，直接加在第二行代碼里會(huì)顯得很亂，那么，我們可以用一個(gè)變量來代替一下，如下：

url=";

Set ms = CreateObject("Microsoft.XMLHTTP")

ms.Open "GET",url ,False

ms.Send()

response.write ms.responseBody

這樣以來代碼就變得整齊多了。

申請(qǐng)創(chuàng)業(yè)報(bào)道，分享創(chuàng)業(yè)好點(diǎn)子。點(diǎn)擊此處，共同探討創(chuàng)業(yè)新機(jī)遇！