一个.net发送HTTP数据实体的类

这里暂时没有写到对http数据头的定义

当然头的定义可以这样写

Dim head As WebHeaderCollection
        head.Add("name", "value")
        send.Headers = head

好了，归到正题，下面是类，接收到的是一个stream，这样方便利用哈！

Imports System.Net
Imports System.io

Public Class httpClass http

    Public Function httpsend()Function httpsend(ByVal uri As String, ByVal method As String, ByVal content As String) As Stream
        Dim send As WebRequest = WebRequest.Create(uri)
        send.Method = method
        Dim postdata As Byte()
        postdata = System.Text.Encoding.Default.GetBytes(content)
        send.ContentLength = postdata.Length
        Dim postStream As Stream = send.GetRequestStream()
        postStream.Write(postdata, 0, postdata.Length)
        postStream.Close()
        Dim re As WebResponse = send.GetResponse
        Return re.GetResponseStream
    End Function
   
End Class

对应的接收页面可以在LOAD事件里这样写

If Not IsDBNull(Request) Then
            Dim a As Stream = Request.InputStream
end if