HttpWebRequest获取的代码和网页(查看源文件)不一致!该怎么解决
HttpWebRequest获取的代码和网页(查看源文件)不一致!
http://uk.site.sports.betfair.com/betting/LoadRunnerInfoAction.do?marketId=20515771&selectionId=201165&timeZone=PRC®ion=GBR&locale=zh_CN&brand=betfair¤cy=HKD
想获取 下面3个内容!
本赛事的总成交额: HK$1,878,362
交易总结 - 数量: HK$27,140
最近成交的赔率: 26.00
找的 一段代码
Private Function GetSource(ByVal url As String) As String
Try
Dim httpReq As System.Net.HttpWebRequest 'HttpWebRequest 类对 WebRequest 中定义的属性和方法提供支持 ',也对使用户能够直接与使用 HTTP 的服务器交互的附加属性和方法提供支持。
Dim httpResp As System.Net.HttpWebResponse ' HttpWebResponse 类用于生成发送 HTTP 请求和接收 HTTP 响 '应的 HTTP 独立客户端应用程序。
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Timeout = 5000
httpReq.Method = "GET "
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream, System.Text.Encoding.GetEncoding( "GB2312 ")) '如是中文,要设置编码格式为“GB2312”。
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
Return respHTML
httpResp.Close()
Catch e As Exception
Return "网络连接失败,请重新尝试! "
End Try
end Function
问题:
1、该页面是charset= "UTF-8 ",我换成system.Text.Encoding.UTF8)还是乱码?
http://uk.site.sports.betfair.com/betting/LoadRunnerInfoAction.do?marketId=20515771&selectionId=201165&timeZone=PRC®ion=GBR&locale=zh_CN&brand=betfair¤cy=HKD
想获取 下面3个内容!
本赛事的总成交额: HK$1,878,362
交易总结 - 数量: HK$27,140
最近成交的赔率: 26.00
找的 一段代码
Private Function GetSource(ByVal url As String) As String
Try
Dim httpReq As System.Net.HttpWebRequest 'HttpWebRequest 类对 WebRequest 中定义的属性和方法提供支持 ',也对使用户能够直接与使用 HTTP 的服务器交互的附加属性和方法提供支持。
Dim httpResp As System.Net.HttpWebResponse ' HttpWebResponse 类用于生成发送 HTTP 请求和接收 HTTP 响 '应的 HTTP 独立客户端应用程序。
Dim httpURL As New System.Uri(url)
httpReq = CType(WebRequest.Create(httpURL), HttpWebRequest)
httpReq.Timeout = 5000
httpReq.Method = "GET "
httpResp = CType(httpReq.GetResponse(), HttpWebResponse)
Dim reader As StreamReader = _
New StreamReader(httpResp.GetResponseStream, System.Text.Encoding.GetEncoding( "GB2312 ")) '如是中文,要设置编码格式为“GB2312”。
Dim respHTML As String = reader.ReadToEnd() 'respHTML就是网页源代码
Return respHTML
httpResp.Close()
Catch e As Exception
Return "网络连接失败,请重新尝试! "
End Try
end Function
问题:
1、该页面是charset= "UTF-8 ",我换成system.Text.Encoding.UTF8)还是乱码?