ASP.Net/Request/Request Stream

Материал из .Net Framework эксперт
Перейти к: навигация, поиск

Request.InputStream (VB.net)

<%@ Page Language="vb" %>
<%@ import namespace = "System.IO" %>
<html>
   <head>
      <title>Filtering the HTTP Request body using InputStream</title>
   </head>
<body>
<p>
<%
Dim intvar As Integer
intvar = Request.TotalBytes
Response.Write("The size of the current request body is: <br>")
Response.Write(intvar & " bytes.<br>")
Dim InStream As Stream
Dim iCounter, Len, iRead As Integer
Dim OutString As String
Dim Found As Boolean
InStream = Request.InputStream
Len = CInt(InStream.Length)
Dim ByteArray(Len) As Byte
Trace.Write("Len", Len)
iRead = InStream.Read(ByteArray, 0, Len)
For iCounter = 0 to Len - 1
   If Found = True Then
      OutString = OutString & Chr(ByteArray(iCounter))
   End If
   If Chr(ByteArray(iCounter)) = "A" Then
      Trace.Write("Found", "Found an "A"")
      Found = True
      OutString = OutString & Chr(ByteArray(iCounter))
   End If
   Trace.Write("Loop Number", iCounter)
   Trace.Write("CurrentChar", Chr(ByteArray(iCounter)))
Next iCounter
Response.Write("Output: " & OutString)
%>
</p>
</body>
</html>



Request.TotalBytes (VB.net)

<%@ Page Language="vb" %>
<%@ import namespace = "System.IO" %>
<html>
   <head>
      <title>Filtering the HTTP Request body using InputStream</title>
   </head>
<body>
<p>
<%
Dim intvar As Integer
intvar = Request.TotalBytes
Response.Write("The size of the current request body is: <br>")
Response.Write(intvar & " bytes.<br>")
Dim InStream As Stream
Dim iCounter, Len, iRead As Integer
Dim OutString As String
Dim Found As Boolean
InStream = Request.InputStream
Len = CInt(InStream.Length)
Dim ByteArray(Len) As Byte
Trace.Write("Len", Len)
iRead = InStream.Read(ByteArray, 0, Len)
For iCounter = 0 to Len - 1
   If Found = True Then
      OutString = OutString & Chr(ByteArray(iCounter))
   End If
   If Chr(ByteArray(iCounter)) = "A" Then
      Trace.Write("Found", "Found an "A"")
      Found = True
      OutString = OutString & Chr(ByteArray(iCounter))
   End If
   Trace.Write("Loop Number", iCounter)
   Trace.Write("CurrentChar", Chr(ByteArray(iCounter)))
Next iCounter
Response.Write("Output: " & OutString)
%>
</p>
</body>
</html>
Источник — «http://nfex.ru/index.php?title=ASP.Net/Request/Request_Stream&oldid=2314»