Asp.net 获取网页源代码
测试环境：VS2008+VB.net
1 Public Shared Function GetWebContent(ByVal sURL As String) As String
2 Try
3 Dim request As Net.WebRequest
4 Dim response As Net.WebResponse
5 request = Net.WebRequest.Create(sURL)
6 response = request.GetResponse()
7 Dim reader As New System.IO.StreamReader(response.GetResponseStream(), Encoding.GetEncoding("utf-8")) //读取的编码
8 Dim s As String = reader.ReadToEnd
9 reader.Close()
10 reader.Dispose()
11 response.Close()
12 Return s
13 Catch ex As Exception
14 Return ""
15 End Try
16 End Function
提交数据（Post)并获取返回值
1 Public Shared Function PostData(ByVal sUrl As String, ByVal sData As String) As String
2 Try
3 Dim Encoding As New ASCIIEncoding
4 Dim bData As Byte() = Encoding.GetBytes(sData)
5 Dim Request As Net.WebRequest = Net.WebRequest.Create(sUrl)
6 Request.Method = "POST"
7 Request.ContentType = "application/x-www-form-urlencoded"
8 Request.ContentLength = bData.Length
9 Dim newStream As System.IO.Stream = Request.GetRequestStream()
10 newStream.Write(bData, 0, sData.Length)
11 newStream.Close()
12 Dim Response As Net.WebResponse = Request.GetResponse
13 Dim Reader As New System.IO.StreamReader(Response.GetResponseStream(), Text.Encoding.GetEncoding("utf-8"))
14 Dim content As String = Reader.ReadToEnd
15 Reader.Close()
16 Reader.Dispose()
17 Response.Close()
18 Return content
19 Catch ex As Exception
20 Return ""
21 End Try
22 End Function
只是需要注意一点，如果提交的参数中包含中文，需要进行编码。提交的Url需要使用绝对路径，开发环境中可以使用http://localhost:端口/目录/
1 Dim sUrl As String="网址" //必须是绝对路径。如http://www.xxx.com/提交的页面
2 Dim sData As String
3 sData="try="+System.Web.HttpUtility.UrlEncode("测试")+"&try2="+System.Web.HttpUtility.UrlEncode("测试2")
4 Response.Write(PostData(sUrl,sData))
