测试环境：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 s13 Catch ex As Exception14 Return ""15 End Try16 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.GetResponse13 Dim Reader As New System.IO.StreamReader(Response.GetResponseStream(), Text.Encoding.GetEncoding("utf-8"))14 Dim content As String = Reader.ReadToEnd15 Reader.Close()16 Reader.Dispose()17 Response.Close()18 Return content19 Catch ex As Exception20 Return ""21 End Try22 End Function只是需要注意一点，如果提交的参数中包含中文，需要进行编码。提交的Url需要使用绝对路径，开发环境中可以使用http://localhost:端口/目录/
1 Dim sUrl As String="网址" //必须是绝对路径。如http://www.xxx.com/提交的页面2 Dim sData As String3 sData="try="+System.Web.HttpUtility.UrlEncode("测试")+"&try2="+System.Web.HttpUtility.UrlEncode("测试2")4 Response.Write(PostData(sUrl,sData))
转载于:https://www.cnblogs.com/imlions/archive/2012/02/04/2337715.html
相关资源：ASP.NET精品课程＋源代码