ASP.NET

Private Function webrequest (ByVal postURL As String, ByVal fileURL As String) As String <br />
<br />
Dim sBoundary As String = Guid.NewGuid().ToString().Replace("-", "") <br />
<br />
Dim encoding As New ASCIIEncoding <br />
<br />
 <br />
<br />
'*** Build the post message. <br />
<br />
Dim _StringBuilder As New StringBuilder <br />
<br />
With _StringBuilder <br />
<br />
.Append("--") <br />
<br />
.Append(sBoundary) <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append("Content-Disposition: form-data; name=\""id\"";") <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append("8888888888") <br />
<br />
.Append("--") <br />
<br />
.Append(sBoundary) <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append("Content-Disposition: form-data; name=\""merch_id\"";") <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append("1111111111") <br />
<br />
.Append("--") <br />
<br />
.Append(sBoundary) <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append("Content-Disposition: form-data; name=\""allow_dups\"";") <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append("y") <br />
<br />
.Append("--") <br />
<br />
.Append(sBoundary) <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append("Content-Disposition: form-data; name=\""" & "BATCH_FILE" & "\""; filename=\""" & fileURL & "\"";") <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append("Content-Type: application/octet-stream") <br />
<br />
.Append(vbCrLf) <br />
<br />
.Append(vbCrLf) <br />
<br />
End With <br />
<br />
Dim saPostHeaderBytes As Byte() = encoding.GetBytes(_StringBuilder.ToString()) <br />
<br />
 <br />
<br />
'*** Build trailing boundary string as a byte array <br />
<br />
Dim saPostTrailingBoundaryBytes As Byte() = encoding.GetBytes(vbCrLf & "--" + sBoundary + vbCrLf) <br />
<br />
 <br />
<br />
'*** Calculate the content length. <br />
<br />
Dim _FStream As New FileStream(fileURL, FileMode.Open, FileAccess.Read) <br />
<br />
Dim lLength As Long = saPostHeaderBytes.Length + _FStream.Length + saPostTrailingBoundaryBytes.Length <br />
<br />
 <br />
<br />
'*** Create a HTTPWebRequest instance <br />
<br />
Dim _webreq As HttpWebRequest = DirectCast(WebRequest.Create(postURL), HttpWebRequest) <br />
<br />
_webreq.ContentType = "multipart/form-data; boundary=" + sBoundary <br />
<br />
_webreq.Method = "POST" <br />
<br />
_webreq.AllowWriteStreamBuffering = True <br />
<br />
_webreq.ContentLength = lLength <br />
<br />
Dim _reqStream As Stream = _webreq.GetRequestStream() <br />
<br />
 <br />
<br />
''-- Write out our post header <br />
<br />
_reqStream.Write(saPostHeaderBytes, 0, saPostHeaderBytes.Length) <br />
<br />
 <br />
<br />
' Write out the file contents to server in chunks of 10K <br />
<br />
Dim bytesRead As Integer 'how many bytes were uploaded <br />
<br />
Dim buffer() As Byte 'upload buffer <br />
<br />
'let buffer be the smallest of the two: filesize or 10K <br />
<br />
ReDim buffer(Math.Min(10240, _FStream.Length)) <br />
<br />
bytesRead = 1 'initialize to any number except 0 <br />
<br />
While bytesRead <> 0 <br />
<br />
'read bytes from file <br />
<br />
bytesRead = _FStream.Read(buffer, 0, buffer.Length) <br />
<br />
If bytesRead <> 0 Then 'make sure EOF is not reached <br />
<br />
 <br />
<br />
'write bytes to remote server <br />
<br />
_reqStream.Write(buffer, 0, bytesRead) <br />
<br />
End If <br />
<br />
 <br />
<br />
'flush streams <br />
<br />
_reqStream.Flush() <br />
<br />
_FStream.Flush() <br />
<br />
End While <br />
<br />
 <br />
<br />
' Write out trailer to server <br />
<br />
_reqStream.Write(saPostTrailingBoundaryBytes, 0, saPostTrailingBoundaryBytes.Length) <br />
<br />
'close filestream <br />
<br />
_FStream.Flush() <br />
<br />
_FStream.Close() <br />
<br />
 <br />
<br />
'close connection with server <br />
<br />
_reqStream.Flush() <br />
<br />
_reqStream.Close() <br />
<br />
 <br />
<br />
'// Finally, we send the request and await the response. <br />
<br />
Dim _webresp As HttpWebResponse = _webreq.GetResponse <br />
<br />
If _webreq.HaveResponse Then <br />
<br />
Dim oStream As Stream = _webresp.GetResponseStream <br />
<br />
Dim oReader As StreamReader = New StreamReader(oStream) <br />
<br />
webrequest_5 = oReader.ReadToEnd <br />
<br />
oReader.Close() <br />
<br />
oStream.Close() <br />
<br />
End If <br />
<br />
_webreq = Nothing <br />
<br />
_webresp.Close() <br />
<br />
 <br />
<br />
'dispose of unused objects <br />
<br />
GC.Collect() <br />
<br />
End Function

  private void Page_Load(object sender, System.EventArgs e)<br />
  {<br />
   int loop1, loop2;<br />
   <br />
   // Load NameValueCollection object.<br />
   System.Collections.Specialized.NameValueCollection collect =Request.QueryString; <br />
   // Get names of all keys into a string array.<br />
   String[] arr1 = collect.AllKeys; <br />
   for (loop1 = 0; loop1 < arr1.Length; loop1++) <br />
   {<br />
    String[] arr2 = collect.GetValues(arr1[loop1]);<br />
    for (loop2 = 0; loop2 < arr2.Length; loop2++) <br />
    {<br />
     myResult += Server.HtmlEncode(arr1[loop1]) + " = " + Server.HtmlEncode(arr2[loop2]) + "<br>";<br />
    }<br />
   }<br />
<br />
   myResult += " Total Received files " + Request.Files.AllKeys.Length + " <br>";<br />
<br />
  foreach(string f in Request.Files.AllKeys) <br />
   {<br />
    HttpPostedFile file = Request.Files[f];<br />
    file.SaveAs(Server.MapPath("ReceivedFiles") + "\\" + file.FileName);<br />
     myResult += "received file " + file.FileName;<br />
   }  <br />
<br />
   LblResult.Text += "Result<HR> " + myResult;<br />
<br />
  }