how to decode the data posted with HttpWebRequest

buran

New member
Joined
Sep 16, 2003
Messages
2
Location
Istanbul TURKEY
Dear ASP.NET Programmers,

I am saving the contents of a file to the database using HttpWebRequest and HttpWebResponse classes. I am also posting some data to the requested page. What I cannot manage to do is to decode and read the data on the requested
page. Below is the code of the request and then the code in the requested page given. How can I decode the posted data? Thanks in advance.

Sub UploadDoc()
Dim myWebReq As HttpWebRequest
Dim myWebResp As HttpWebResponse
Dim authCookie As HttpCookie
Dim cc As New CookieContainer()
Dim encoding As New System.Text.ASCIIEncoding()
Dim postData As String
Dim data() As Byte
Dim s1, s2 As Stream

postData += "fd=" + txtFlightDate.Text
postData += "&"
postData += "fn=" + txtFlightNo.Text
postData += "&"
postData += "fdest=" + txtFlightDest.Text
postData += "&"
postData += "esc=" + rblMedicalEscort.SelectedItem.Value
postData += "&"
postData += "str=" + rblStretcher.SelectedItem.Value
postData += "&"
postData += "notes=" + txtNotes.Text
data = encoding.GetBytes(postData)
myWebReq =
WebRequest.Create("http://burak/database/medicalDocs/F325.aspx")
myWebReq.Method = "POST"
myWebReq.ContentType = "application/x-www-form-urlencoded"
myWebReq.ContentLength = data.Length
s1 = myWebReq.GetRequestStream()
s1.Write(data, 0, data.Length)
s1.Close()
authCookie = Request.Cookies(FormsAuthentication.FormsCookieName)
myWebReq.CookieContainer = cc
myWebReq.CookieContainer.Add(New System.Net.Cookie(authCookie.Name,
authCookie.Value,
authCookie.Path, "burak"))
myWebResp = myWebReq.GetResponse
Dim docSize As Integer = myWebResp.ContentLength
Dim docBuffer(docSize) As Byte
s2 = myWebResp.GetResponseStream
s2.Read(docBuffer, 0, docSize)
.
.
.
End Sub


and on the other page:

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

lblFlightDate.Text = Request("fd")
lblFlightNo.Text = Request("fn")
lblFlightDest.Text = Request("fdest")
lblMedicalEscort.Text = Request("esc")
lblStretcher.Text = Request("str")
lblNotes.Text = Request("notes")
End Sub
 
Back
Top