采集程序的主要步驟如下: !
一、獲取被采集的頁面的內容 。
二、從獲取代碼中提取所有用的數據 ...
一、獲取被采集的頁面的內容 ..
我目前所掌握的ASP常用獲取被采集的頁面的內容方法: .
1、用serverXMLHTTP組件獲取數據 .
以下內容為程序代碼: 版權申明:本站文章均來自網絡,本站所有轉載文章言論不代表本站觀點
以下為引用的內容: Function GetBody(weburl) '創建對象 Dim ObjXMLHTTP Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP") '請求文件,以異步形式 ObjXMLHTTP.Open "GET",weburl,False ObjXMLHTTP.send While ObjXMLHTTP.readyState <> 4 ObjXMLHTTP.waitForResponse 1000 Wend '得到結果 GetBody=ObjXMLHTTP.responseBody '釋放對象 . Set ObjXMLHTTP=Nothing End Function |
調用方法:
GetBody(文件的URLf地址) 對真正的成功者來說,不論他的生存條件如何,都不會自我磨滅
2、或XMLHTTP組件獲取數據 .
以下內容為程序代碼: 成功的人生,需要自己去經營,別再說了,莫再等了,現在就為自己的人生做好規劃,為人生點亮一盞明燈,贏在人生起跑點上。
以下為引用的內容: Function GetBody(weburl) |
調用方法:
GetBody(文件的URLf地址) 特別注意:本站所有轉載文章言論不代表本站觀點,本站所提供的攝影照片,插畫,設計作品,如需使用,請與原作者聯系.
這樣獲取的數據內容還需要進行編碼轉換才可以使用 ..
以下內容為程序代碼: ..
以下為引用的內容: Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset 。 BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function |