Public Shared Function getPage(ByVal url As String, ByVal sData As String) As String
Dim result As WebResponse Try
Dim encode As Encoding = System.Text.Encoding.GetEncoding("gb2312") Dim req As WebRequest
Dim RequestStream As Stream
Dim ReceiveStream As Stream
Dim sr As StreamReader req = WebRequest.Create(url)
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
Dim SomeBytes() As Byte If sData <> "" Then
SomeBytes = encode.GetBytes(sData) req.ContentLength = SomeBytes.Length
RequestStream = req.GetRequestStream()
RequestStream.Write(SomeBytes, 0, SomeBytes.Length)
RequestStream.Close() Else
Return "传输数据为空!"
End If
result = req.GetResponse()
ReceiveStream = result.GetResponseStream()
sr = New StreamReader(ReceiveStream, encode) Debug.WriteLine("已接收到响应流") cProcessData = ""
cProcessData = sr.ReadToEnd() Debug.WriteLine("接收到的完整数据为:")
Debug.WriteLine(cProcessData)
Return cProcessData Catch ex As Exception
Return "找不到请求 URI 或者它的格式不正确"
Finally
If Not result Is Nothing Then
result.Close()
End If
End Try End Function
Dim result As WebResponse Try
Dim encode As Encoding = System.Text.Encoding.GetEncoding("gb2312") Dim req As WebRequest
Dim RequestStream As Stream
Dim ReceiveStream As Stream
Dim sr As StreamReader req = WebRequest.Create(url)
req.Method = "POST"
req.ContentType = "application/x-www-form-urlencoded"
Dim SomeBytes() As Byte If sData <> "" Then
SomeBytes = encode.GetBytes(sData) req.ContentLength = SomeBytes.Length
RequestStream = req.GetRequestStream()
RequestStream.Write(SomeBytes, 0, SomeBytes.Length)
RequestStream.Close() Else
Return "传输数据为空!"
End If
result = req.GetResponse()
ReceiveStream = result.GetResponseStream()
sr = New StreamReader(ReceiveStream, encode) Debug.WriteLine("已接收到响应流") cProcessData = ""
cProcessData = sr.ReadToEnd() Debug.WriteLine("接收到的完整数据为:")
Debug.WriteLine(cProcessData)
Return cProcessData Catch ex As Exception
Return "找不到请求 URI 或者它的格式不正确"
Finally
If Not result Is Nothing Then
result.Close()
End If
End Try End Function
解决方案 »
- 地址栏的id被改动时始终显示以前的数据
- 注册失败,原因是:无法打开物理文件
- 水晶报表用命令做数据源的参数问题
- IButtonControl 是个interface, 怎么会有property的东西要implement 呢?
- 高手!高手!有高手在吗?帮帮忙吧~
- 我在C#中using Microsft.Xml.XQuery,请问在哪里能download到Microsoft的XQuery类库 ????急用!!
- asp.net实现sqlServer数据库的怎样定时备份和进度条显示!
- request...
- 谁能提供一个新版的ADO。NET下载?100分送出。
- 很多面试考官都会问数据量很多如何提升性能
- 在通过地址栏传值时,当传递的值为中文时接收就会出错。怎么处理
- 做了一个数据库访问类,其中有个SqlDataReader访问方法,感觉有问题,麻烦各位高手看看
我的Web服务器端有一个实时监测数据库中有没有消息,如果有应该怎么向Browse端发送查询到的消息。