中文字幕av一区二区三区人,国产精品一区二区久久精品爱涩,久久国产精品99国产精

主頁(yè) > 知識(shí)庫(kù) > vbs或asp采集文章時(shí)網(wǎng)頁(yè)編碼問(wèn)題

vbs或asp采集文章時(shí)網(wǎng)頁(yè)編碼問(wèn)題

'/*=========================================================================
' * Intro       研究網(wǎng)頁(yè)編碼很長(zhǎng)時(shí)間了，因?yàn)樽罱O(shè)計(jì)一個(gè)友情鏈接檢測(cè)的VBS腳本，而與你鏈接的人的頁(yè)面很可能是各種編碼，以前采取的方法是：如果用GB2312查不到再用UTF-8查，再找不到證明對(duì)方?jīng)]有給你做鏈接雖然不是100%正確，但也差不多了，這兩種編碼用的人比較多，偶然間在收藏夾里的一個(gè)地址看到的一個(gè)思路，終于可以在采集文章時(shí)自動(dòng)判斷網(wǎng)頁(yè)的編碼了。因?yàn)檠芯窟^(guò)程中這個(gè)問(wèn)題困擾很久，雖然現(xiàn)在覺(jué)得簡(jiǎn)單了，想必很多人還在找，所以把這三個(gè)函數(shù)貼出來(lái)。
' * FileName    GetWebCodePage.vbs
' * Author      yongfa365
' * Version     v2.0
' * WEB         http://www.yongfa365.com
' * Email       yongfa365[at]qq.com
' * FirstWrite  http://www.yongfa365.com/Item/GetWebCodePage.vbs.html
' * MadeTime    2008-01-29 20:55:46
' * LastModify  2008-01-30 20:55:46
' *==========================================================================*/


Call getHTTPPage("http://www.baidu.com/")
Call getHTTPPage("http://www.google.com/")
Call getHTTPPage("http://www.yongfa365.com/")
Call getHTTPPage("http://www.cbdcn.com/")
Call getHTTPPage("http://www.csdn.net/")


'得到匹配的內(nèi)容，返回?cái)?shù)組
'getContents(表達(dá)式，字符串，是否返回引用值)
'msgbox getContents("a(.+?)b", "a23234b ab a67896896b sadfasdfb" ,True)(0)

Function getContents(patrn, strng , yinyong)
'by www.yongfa365.com 轉(zhuǎn)載請(qǐng)保留鏈接，以便最終用戶(hù)及時(shí)得到最新更新信息
    On Error Resume Next
    Set re = New RegExp
    re.Pattern = patrn
    re.IgnoreCase = True
    re.Global = True
    Set Matches = re.Execute(strng)
    If yinyong Then
        For i = 0 To Matches.Count -1
            If Matches(i).Value>"" Then RetStr = RetStr  Matches(i).SubMatches(0)  "柳永法"
        Next
    Else
        For Each oMatch in Matches
            If oMatch.Value>"" Then RetStr = RetStr  oMatch.Value  "柳永法"
        Next
    End If
    getContents = Split(RetStr, "柳永法")
End Function

Function getHTTPPage(url)
    On Error Resume Next
    Set xmlhttp = CreateObject("MSXML2.XMLHTTP")
    xmlhttp.Open "Get", url, False
    xmlhttp.Send
    If xmlhttp.Status>200 Then Exit Function
    GetBody = xmlhttp.ResponseBody
    '柳永法(www.yongfa365.com)在此的思路是,先根據(jù)返回的字符串找，找文件頭，如果還沒(méi)有的話(huà)就用GB2312,一般都能直接匹配出編碼。
    '在返回的字符串里看，雖然中文是亂碼，但不影響我們?nèi)∑渚幋a，
    GetCodePage = getContents("charset=[""']*([^"",']+)", xmlhttp.ResponseText , True)(0)
    '在頭文件里看編碼
     If Len(GetCodePage)3 Then GetCodePage = getContents("charset=[""']*([^"",']+)", xmlhttp.getResponseHeader("Content-Type") , True)(0)
    If Len(GetCodePage)3 Then GetCodePage = "gb2312"
    Set xmlhttp = Nothing
    '下邊這句在正式使用時(shí)要屏蔽掉
    WScript.Echo url  "-->"  GetCodePage
    getHTTPPage = BytesToBstr(GetBody, GetCodePage)
End Function


Function BytesToBstr(Body, Cset)
    On Error Resume Next
    Dim objstream
    Set objstream = 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

您可能感興趣的文章:

php 判斷網(wǎng)頁(yè)是否是utf8編碼的方法
js 顯示base64編碼的二進(jìn)制流網(wǎng)頁(yè)圖片
Base64編碼加密JS代碼網(wǎng)頁(yè)版
多種語(yǔ)言(big5\gbk\gb2312\utf8\Shift_JIS\iso8859-1)的網(wǎng)頁(yè)編碼切換解決方案歸納
ASP+FSO生成的網(wǎng)頁(yè)文件默認(rèn)編碼格式以及轉(zhuǎn)換成UTF-8編碼方法
ASP UTF-8編碼生成靜態(tài)網(wǎng)頁(yè)的函數(shù)
asp.net HttpWebRequest自動(dòng)識(shí)別網(wǎng)頁(yè)編碼
asp.net 網(wǎng)頁(yè)編碼自動(dòng)識(shí)別代碼
網(wǎng)頁(yè)語(yǔ)言編碼及asp亂碼問(wèn)題解決方案
判斷網(wǎng)頁(yè)編碼的方法python版

標(biāo)簽：錫林郭勒盟七臺(tái)河儋州廣元新余宣城雅安江門(mén)

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《vbs或asp采集文章時(shí)網(wǎng)頁(yè)編碼問(wèn)題》，本文關(guān)鍵詞 vbs,或,asp,采集,文章,時(shí),；如發(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)。

婷婷综合国产,91蜜桃婷婷狠狠久久综合9色 ,九九九九九精品,国产综合av

vbs或asp采集文章時(shí)網(wǎng)頁(yè)編碼問(wèn)題