採集原理：
採集程序的主要步驟如下：
一、獲取被採集的頁面的內容
二、從獲取代碼中提取所有用的數據
一、獲取被採集的頁面的內容
我目前所掌握的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)
'-----------------翟振愷(小琦)
'創建對象
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", weburl, False, "", ""
.Send
GetBody = .ResponseBody
End With
'釋放對象
Set Retrieval = Nothing
'-----------------翟振愷(小琦)
End Function
調用方法：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
'-----------------翟振愷(小琦)