国产免费牲交视频在沙发,国产99区,性色a∨亚洲一区二区三区

主頁(yè) > 知識(shí)庫(kù) > 采集原理---采集技術(shù)篇---XMLHTTP

采集原理---采集技術(shù)篇---XMLHTTP

最近一段時(shí)間，采集很熱門(mén)，從新聞小偷，到音樂(lè)小偷，到新聞采集，F(xiàn)lash采集，都有他的蹤影，現(xiàn)在還有很多的人對(duì)采集都很感興趣，為了服務(wù)大家，我也正在寫(xiě)一套采集程序，名字為心意采集程序，現(xiàn)在我講一下，采集用到的相關(guān)技術(shù)。

下面講到的也不是很高深的XMLHTTP技術(shù)，我也是稍稍講一下,一個(gè)采集需要用到的幾塊內(nèi)容
如果你需要了解更多的問(wèn)題,請(qǐng)去www.google.com 搜索 XMLHTTP 技術(shù) 你將會(huì)得到更多的幫助，如果大家有什么疑問(wèn)的話(huà)，可以在論壇上回貼

下面只講到如何在網(wǎng)上得到數(shù)據(jù)，并不涉及到數(shù)據(jù)處理

第一 XMLHTTP 技術(shù)

http://www.0579.info/study/exploitation/net/58685.htm

上面那個(gè)地址，那篇文章講的根本原理已經(jīng)很詳細(xì)了，但是我們一般采集的話(huà)，剛開(kāi)始不太需要了解太多。只要實(shí)用就可以了，等以后不夠用的時(shí)候，再去找相關(guān)文檔也來(lái)得急

首先，我們需要建立一個(gè)XMLHTTP對(duì)象
微軟發(fā)布的xmlhttp組件已經(jīng)有很多的版本了，我知道的就有以下幾種：

"MSXML2.ServerXMLHTTP.4.0"
"MSXML2.ServerXMLHTTP.3.0"
"MSXML2.ServerXMLHTTP"
"MSXML2.XMLHTTP.5.0"
"MSXML2.XMLHTTP.4.0"
"MSXML2.XMLHTTP.3.0"
"MSXML2.XMLHTTP"
"Microsoft.XMLHTTP

以上有這么多種組件，我們當(dāng)然是需要申請(qǐng)最高版本的對(duì)象嘍，那有什么辦法可以實(shí)現(xiàn)呢
下面我拿出一段代碼，大家可以看看，他是按最高版本申請(qǐng)XMLHTTP對(duì)象的

Dim ArrProgId,Prog,Flag，XmlHttpCom

ArrProgId = array("MSXML2.ServerXMLHTTP.4.0", "MSXML2.ServerXMLHTTP.3.0", "MSXML2.ServerXMLHTTP", "MSXML2.XMLHTTP.5.0", "MSXML2.XMLHTTP.4.0", "MSXML2.XMLHTTP.3.0", "MSXML2.XMLHTTP","Microsoft.XMLHTTP")

For Each Prog In arrProgId
If (IsObjInstalled(Prog) = true) Then
XmlHttpCom = Prog
Exit For
End If
Next

'// summary>
'//　Rem 檢查組件是否支持　是返回　True 否返回 False
'// /summary>
Public Function IsObjInstalled(strClassString)
On Error Resume Next

'//設(shè)置初始化值

IsObjInstalled = False
Err = 0

'//測(cè)試代碼

Dim xTestObj
Set xTestObj = Server.createObject(strClassString)
If 0 = Err Then IsObjInstalled = True

'//清除所申請(qǐng)的對(duì)象

Set xTestObj = Nothing
Err = 0
End Function

上面那段代碼就是申請(qǐng)到當(dāng)前服務(wù)器支持的最高版本的XMLHTTP對(duì)象了

下面我們講一下采集功能函數(shù)

'GetFileText為采集功能函數(shù)
Public Function GetFileText(url)
on error resume next '有錯(cuò)誤時(shí)繼續(xù)執(zhí)行代碼
Dim http '定義變量
'Set http=Server.createobject(XmlHttpCom) '申請(qǐng)對(duì)象
Set http=Server.createobject("Microsoft.XMLHTTP") '保險(xiǎn)起見(jiàn)，寫(xiě)出一個(gè)服務(wù)器一般都支持的版本
Http.open "GET",url,False '打開(kāi)對(duì)象用GET方式等待服務(wù)器響應(yīng)
Http.Send() '發(fā)送
If Http.readystate>4 Then '如果服務(wù)器沒(méi)反應(yīng),則退出函數(shù)
Exit Function
End If

GetFileText=bytes2BSTR(Http.responseBody,"GB2312") '把得到的數(shù)據(jù)流二進(jìn)制文件轉(zhuǎn)化成文本字符格式 (GB2312)

Set http=Nothing '刪除對(duì)象
If err.number>0 Then err.Clear '如果有錯(cuò)誤,清除錯(cuò)誤
End Function

'// summary>
'// 采用 ADODB.Stream　處理采集到的數(shù)據(jù)，把二進(jìn)制的文件轉(zhuǎn)成文本字符
'// /summary>
Function Bytes2bStr(vin,cSet)
Dim BytesStream,StringReturn
Set BytesStream = Server.createObject("ADODB.Stream")
BytesStream.Type = 2
BytesStream.Open
BytesStream.WriteText vin
BytesStream.Position = 0
BytesStream.CharSet = cSet
BytesStream.Position = 2
StringReturn =BytesStream.ReadText
BytesStream.close
Set BytesStream = Nothing
Bytes2bStr = StringReturn
End Function

下面我定義一個(gè) 路徑變量 URL

URL = "http://ent.sina.com.cn/star/mainland/more.html";

上面是一個(gè)網(wǎng)址,如果我們想把上面這個(gè)地址采集下來(lái),并顯示出來(lái)的話(huà)，我們可以這樣操作

URL = "http://ent.sina.com.cn/star/mainland/more.html";

Response.Write GetFileText(URL)

這樣就可以采集到上面網(wǎng)址的內(nèi)容了
是不是很簡(jiǎn)單呢

那采集到數(shù)據(jù)之后應(yīng)該怎么操作呢
怎么區(qū)分?jǐn)?shù)據(jù)，如果得到你想要的數(shù)據(jù)，如果把得到的數(shù)據(jù)入庫(kù)呢
這是以后需要分析講解的問(wèn)題了入庫(kù)要注意的地方，用正表達(dá)式處理數(shù)據(jù)

附上上面代碼的源文件，大家可以下載下去，運(yùn)行起來(lái)試試，是不是真的能采集到數(shù)據(jù)庫(kù)

標(biāo)簽：通遼上海涼山南京楚雄赤峰清遠(yuǎn) 邢臺(tái)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《采集原理---采集技術(shù)篇---XMLHTTP》，本文關(guān)鍵詞采集,原理,---,技術(shù)篇,---XMLHTTP,；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

采集原理---采集技術(shù)篇---XMLHTTP

四合一精品企业网站建设

¥888元限时抢购

立即咨询快速购买

企业400电话

合计11份范本：公司章程+合伙协议+出资协议+合作协议+股权转让协议+增资扩股协议+股权激励+股东会决议+董事会决议