Function?getHTTPPage(url)?
????IF(IsObjInstalled("Microsoft.XMLHTTP")?=?False)THEN
????????Response.Write?"

服務器不支持Microsoft.XMLHTTP組件"?
????????Err.Clear
????????Response.End
????END?IF
????On?Error?Resume?Next
????Dim?http?
????SET?http=Server.CreateObject("Msxml2.XMLHTTP")?
????Http.open?"GET",url,False?
????Http.send()?
????IF(Http.readystate4)THEN
????????Exit?Function?
????END?IF?
????getHTTPPage=BytesToBSTR(Http.responseBody,"GB2312")
????SET?http=NOTHING
????IF(Err.number0)THEN
????????Response.Write?"

獲取文件內容出錯"?
????????'Response.End
????????Err.Clear
????END?IF??
End?Function

????????
Function?BytesToBstr(CodeBody,CodeSet)
????Dim?objStream
????SET?objStream?=?Server.CreateObject("adodb.stream")
????objStream.Type?=?1
????objStream.Mode?=3
????objStream.Open
????objStream.Write?CodeBody
????objStream.Position?=?0
????objStream.Type?=?2
????objStream.Charset?=?CodeSet
????BytesToBstr?=?objStream.ReadText?
????objStream.Close
????SET?objStream?=?NOTHING
End?Function

'================================================
'作??用：檢查組件是否已經安裝
'返回值：True??----已經安裝
'????????False?----沒有安裝
'================================================
Function?IsObjInstalled(objName)
????On?Error?Resume?Next
????IsObjInstalled?=?False
????Err?=?0
????Dim?testObj
????SET?testObj?=?Server.CreateObject(objName)
????IF(0?=?Err)THEN?IsObjInstalled?=?True
????SET?testObj?=?NOTHING
????Err?=?0
End?Function

Function?RegExpText(strng,strStart,strEnd,n)
????Dim?regEx,Match,Matches,RetStr
????SET?regEx?=?New?RegExp
????regEx.Pattern?=?strStart&"([/s/S]*?)"&strEnd
????regEx.IgnoreCase?=?True
????regEx.Global?=?True
????SET?Matches?=?regEx.Execute(strng)
????For?Each?Match?in?Matches
????????IF(n=1)THEN
????????????RetStr?=?RetStr?&?regEx.Replace(Match.Value,"$1")?&?","?
????????ELSE
????????????RetStr?=?RetStr?&?regEx.Replace(Match.Value,"$1")
????????END?IF?
????Next
????RegExpText?=?RetStr
????SET?regEx=NOTHING
End?Function

以上就是批量抓取某個列表頁的教程分享的全部內容介紹了，希望小編整理的相關知識和資料都對你們有所幫助，更多內容請繼續關注錯新技術頻道網站！