vbs或asp采集文章時網(wǎng)頁編碼問題

2024-05-04 10:57:23

字體：大中小

供稿：網(wǎng)友

'/*=========================================================================
' * Intro       研究網(wǎng)頁編碼很長時間了，因為最近要設(shè)計一個友情鏈接檢測的VBS腳本，而與你鏈接的人的頁面很可能是各種編碼，以前采取的方法是：如果用GB2312查不到再用UTF-8查，再找不到證明對方?jīng)]有給你做鏈接雖然不是100%正確，但也差不多了，這兩種編碼用的人比較多，偶然間在收藏夾里的一個地址看到的一個思路，終于可以在采集文章時自動判斷網(wǎng)頁的編碼了。因為研究過程中這個問題困擾很久，雖然現(xiàn)在覺得簡單了，想必很多人還在找，所以把這三個函數(shù)貼出來。
' * 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)容，返回數(shù)組
'getContents(表達(dá)式，字符串，是否返回引用值)
'msgbox getContents("a(.+?)b", "a23234b ab a67896896b sadfasdfb" ,True)(0)

Function getContents(patrn, strng , yinyong)
'by www.yongfa365.com 轉(zhuǎn)載請保留鏈接，以便最終用戶及時得到最新更新信息
    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

上一篇：asp結(jié)合fso實現(xiàn)文件或文件夾創(chuàng)建刪除等操作的函數(shù)

下一篇：asp下根據(jù)標(biāo)題生成關(guān)鍵字的代碼