建站
咨詢
售后
建站咨詢
新聞中心
VB.NET編程語(yǔ)言特點(diǎn)比較突出，它是一個(gè)真正的實(shí)現(xiàn)面向?qū)ο笠约爸С掷^承性的編程語(yǔ)言，其應(yīng)用范圍廣泛，功能強(qiáng)大，幫助開發(fā)人員大大提高了編程效率。在調(diào)試VB.NET調(diào)用Microsoft.XMLHttp組件抓取網(wǎng)頁(yè)時(shí)，遇到了抓取中文字符出現(xiàn)亂碼，經(jīng)測(cè)試若網(wǎng)頁(yè)meta標(biāo)簽charset為utf-8的網(wǎng)頁(yè)不會(huì)亂碼，而charset為Gb2312的則會(huì)出現(xiàn)亂碼，本文提供了一個(gè)完整的解決方法，希望對(duì)研究VB.NET抓取網(wǎng)頁(yè)或者VB.NET實(shí)現(xiàn)采集功能的朋友有所幫助。
創(chuàng)新互聯(lián)服務(wù)項(xiàng)目包括椒江網(wǎng)站建設(shè)、椒江網(wǎng)站制作、椒江網(wǎng)頁(yè)制作以及椒江網(wǎng)絡(luò)營(yíng)銷策劃等。多年來(lái)，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，椒江網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到椒江省份的部分城市，未來(lái)相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！
以下為VB.NET抓取網(wǎng)頁(yè)的函數(shù)LobDotCn 注：url_Link為抓取的目標(biāo)頁(yè)面 IsGb2312為是否Gb2312字符
- Public Function LobDotCn(ByVal url_Link
As String, ByVal IsGb2312 As Boolean)- On Error Resume Next
- Dim XmlHttp As Object
- XmlHttp = CreateObject("Microsoft.XMLHttp")
- XmlHttp.Open("POST", url_Link, False)
- XmlHttp.Send()
- Dim WebContent As Object
- Dim Str_WebContent As String
- If IsGb2312 Then
- WebContent = XmlHttp.ResponseBody
- Str_WebContent = System.Text.Encoding.
Default.GetString(WebContent)- Else
- WebContent = XmlHttp.ResponseText
- Str_WebContent = WebContent.ToString
- End If
- XmlHttp = Nothing
- LobDotCn = Str_WebContent
- End Function
VB.NET抓取網(wǎng)頁(yè)的調(diào)用方式 ：
變量 = LobDotCn("http://www.lob.cn", True) '抓取 Gb2312網(wǎng)頁(yè)
變量 = LobDotCn("此處填寫網(wǎng)址", False) ' 抓取utf-8網(wǎng)頁(yè)
【編輯推薦】
- VB.NET讀取內(nèi)存具體代碼編寫方法
- VB.NET類型轉(zhuǎn)換相關(guān)運(yùn)算符應(yīng)用技巧分享
- 四步完成VB.NET讀寫注冊(cè)表
- VB.NET條件分支語(yǔ)句應(yīng)用方法概述
- VB.NET控件數(shù)組正確使用方法分析
網(wǎng)頁(yè)題目：VB.NET抓取網(wǎng)頁(yè)出現(xiàn)錯(cuò)誤解決方案
轉(zhuǎn)載源于：http://m.fisionsoft.com.cn/article/dpighij.html
