国产片侵犯亲女视频播放_亚洲精品二区_在线免费国产视频_欧美精品一区二区三区在线_少妇久久久_在线观看av不卡

服務器之家:專注于服務器技術及軟件下載分享
分類導航

PHP教程|ASP.NET教程|Java教程|ASP教程|編程技術|正則表達式|C/C++|IOS|C#|Swift|Android|VB|R語言|JavaScript|易語言|vb.net|

服務器之家 - 編程語言 - ASP教程 - Asp 使用 Microsoft.XMLHTTP 抓取網頁內容并過濾需要的

Asp 使用 Microsoft.XMLHTTP 抓取網頁內容并過濾需要的

2019-07-06 17:11ASP之家 ASP教程

這篇文章主要介紹了Asp 使用 Microsoft.XMLHTTP 抓取網頁內容(沒用亂碼),并過濾需要的內容

Asp 使用 Microsoft.XMLHTTP 抓取網頁內容(沒用亂碼),并過濾需要的內容 

示例源碼: 
復制代碼代碼如下:

<% 
Dim xmlUrl,http,strHTML,strBody 
xmlUrl = Request.QueryString("u") 

REM 異步讀取XML源 
Set http = server.CreateObject("Microsoft.XMLHTTP") 
http.Open "POST",xmlUrl,false 
http.setrequestheader "User-Agent", "Mozilla/4.0" 
http.setrequestheader "Connection", "Keep-Alive" 
http.setRequestHeader "Content-Type", "application/x-www-form-urlencoded" 
http.Send() 

strHTML = BytesToBstr(http.ResponseBody) 
set http = nothing 

REM 抓取主要內容 
strBody = GetBody(strHTML,"<div id=""Div_newsContentc"" class=""cnt"">","</div>",0,0) 
strBody =Replace(strBody,"(本文首發于","") 
strBody =Replace(strBody,"財富動力網</a>,轉載請注明出處。)","") 
strBody =Replace(strBody,"本文首發于,轉載請注明出處。)","") 
strBody =Replace(strBody,"財富動力網</a>:http://www.927953.com","") 
strBody =Replace(strBody,"本文首發于","") 

Response.Write RegRemoveHref(strBody) 

REM 獲取對應網址響應的HTML 
Function BytesToBstr(body) 
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 = "UTF-8" 

'轉換原來默認的UTF-8編碼轉換成GB2312編碼,否則直接用 
'XMLHTTP調用有中文字符的網頁得到的將是亂碼 
BytesToBstr = objstream.ReadText 
objstream.Close 
set objstream = nothing 
End Function 


REM 使用正則表達式,抓取之內標記的內容 
Function GetBody(ConStr,StartStr,OverStr,IncluL,IncluR) 
If ConStr="$False$" or ConStr="" or IsNull(ConStr)=True Or StartStr="" or IsNull(StartStr)=True Or OverStr="" or IsNull(OverStr)=True Then 
GetBody="$False$" 
Exit Function 
End If 
Dim ConStrTemp 
Dim Start,Over 
ConStrTemp=Lcase(ConStr) 
StartStr=Lcase(StartStr) 
OverStr=Lcase(OverStr) 
Start = InStrB(1, ConStrTemp, StartStr, vbBinaryCompare) 
If Start<=0 then 
GetBody="$False$" 
Exit Function 
Else 
If IncluL=False Then 
Start=Start+LenB(StartStr) 
End If 
End If 
Over=InStrB(Start,ConStrTemp,OverStr,vbBinaryCompare) 
If Over<=0 Or Over<=Start then 
GetBody="$False$" 
Exit Function 
Else 
If IncluR=True Then 
Over=Over+LenB(OverStr) 
End If 
End If 
GetBody=MidB(ConStr,Start,Over-Start) 
End Function 

REM 過濾a超鏈接 
Function RegRemoveHref(HTMLstr) 
Set ra = New RegExp 
ra.IgnoreCase = True 
ra.Global = True 
ra.Pattern = "<a[^>]+>(.+?)<\/a>" 

RegRemoveHref = Replace(ra.replace(HTMLstr,"$1"),"href=""http://www.927953.com""","") 
END Function 
%> 

效果圖如下:  
Asp 使用 Microsoft.XMLHTTP 抓取網頁內容并過濾需要的

延伸 · 閱讀

精彩推薦
主站蜘蛛池模板: 天天摸天天操 | 欧美精品欧美精品系列 | 中文字幕一区二区三区不卡 | 成人综合视频在线 | 91电影在线 | 成人亚洲精品 | 不卡视频在线 | 久久久精品456亚洲影院 | 精品少妇一区二区三区在线播放 | 亚洲国产成人精品女 | 国内精品一区二区三区 | 欧美久久免费 | 日本在线免费 | 一本亚洲| 午夜视频免费在线观看 | 夜本色 | 一级毛片在线播放 | 日韩精品一区在线 | 高清国产一区二区三区 | 久久久久久久久99精品 | 中文字幕一区二区三区久久 | 欧美啪啪| 免费成人在线看 | 五月婷婷婷婷 | 自拍偷拍第一页 | 日本在线视频一区 | 国产精品99久久免费观看 | 国产麻豆一区二区三区 | 国产成人综合网 | 一区二区三区精品 | 黑人精品| 伊大人久久香线焦宗合一75大 | 国产精品视频一二三 | 免费观看国产视频在线 | 欧美日韩免费一区二区三区 | 亚洲中午字幕 | 黄视频 | 欧美日韩a | 五月婷婷在线观看视频 | 国产精品视频久久 | 国产成人福利 |