ASP.NET has a limited number of threads that it uses to service incoming requests. Thes threads from the its thread pool, and when its collection of threads are busy, requests have to queue up waiting for an open thread.
But, what happens when you have threads that are blocking waiting for another process to complete? This could we a database call, or a webservice call, or an IO operation etc.
Well, what happens is that the thread, while doing no real work, is unavailable to service requests.
So, if your database is crunching on some long queries, other simple web requests may be sitting in the queue unable to be handled, even though the webserver CPU is idle.
One solution to this is to use Async pages/methods in ASP.NET 2 or greater.
Async operations allow the thread to be returned back to the thread pool instead of blocking, while some process is executed.
There is more than 1 way to do async operations like this from asp.net pages.
One is to use RegisterAsyncTask and the other to user AddOnPreRenderCompleteAsync as well as declare the page as Async=”true”.
I won’t go into all the details, but AddOnPreRenderCompleteAsync is probably simpler, but you can’t define a timeout, you can’t call it multiple times in parallel, and in the EndAsyncOperation event handler you can’t access things like the httpcontext object.
Here are 2 examples of pages that are asynchronously serving up a PDF document (which is itself served from a page DownloadPDF.aspx, which has a 5 second thread sleep in it to simulate the processing of the report on another server.
Using AddOnPreRenderCompleteAsync:
Imports System.Net
Imports System.IO
Partial Class AsyncServer
Inherits System.Web.UI.Page
Dim _request As WebRequest
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
AddOnPreRenderCompleteAsync(New BeginEventHandler(AddressOf BeginAsyncOperation), _
New EndEventHandler(AddressOf EndAsyncOperation))
End Sub
Function BeginAsyncOperation(ByVal sender As Object, ByVal e As EventArgs, ByVal cb As AsyncCallback, ByVal state As Object) As IAsyncResult
_request = WebRequest.Create(HttpContext.Current.Request.Url.Scheme & _
"://" & HttpContext.Current.Request.Url.Authority & _
Page.ResolveUrl("DownloadPDF.aspx"))
Return _request.BeginGetResponse(cb, state)
End Function
Sub EndAsyncOperation(ByVal ar As IAsyncResult)
Dim reportResponse As WebResponse = _request.EndGetResponse(ar)
Dim reader As New BinaryReader(reportResponse.GetResponseStream())
Dim buffer(reportResponse.ContentLength) As Byte
buffer = reader.ReadBytes(buffer.Length)
Response.Clear()
Response.ClearHeaders()
Response.ClearContent()
Response.ContentType = "Application/pdf"
Response.BinaryWrite(buffer)
End Sub
End Class
But I prefer to use RegisterAsyncTask. Now, keep in mind that many operations will already support async versions (webrequests, webservice calls, databases calls, file IO etc), but if there isn’t already built in support for an async call, you can make your own method work in this framework with an async delegate. Check out the commented code below for how you could do this, but because webrequests already support making the call in an asynchronous fashion, I don’t need to.
Imports System.Net
Imports System.IO
Partial Class RegisterAsyncTaskServer
Inherits System.Web.UI.Page
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Page.AsyncTimeout = New System.TimeSpan(0, 0, 8)
Dim task As New PageAsyncTask(New BeginEventHandler(AddressOf BeginGetAsyncData), _
New EndEventHandler(AddressOf EndGetAsyncData), _
New EndEventHandler(AddressOf TimeoutGetAsyncData), "task1", True)
RegisterAsyncTask(task)
End Sub
'*************** This is one way to do this if not using an async download method by creating an async delegate
'Dim taskDelegate As AsyncTaskDelegate
'' Create delegate.
'Delegate Sub AsyncTaskDelegate()
'Private Function BeginGetAsyncData(ByVal src As Object, ByVal args As EventArgs, ByVal cb As AsyncCallback, ByVal state As Object) As IAsyncResult
' Dim extraData As New Object
' taskDelegate = New AsyncTaskDelegate(AddressOf DownloadReport)
' Dim result As IAsyncResult = taskDelegate.BeginInvoke(cb, extraData)
' Return result
'End Function
'Private Sub DownloadReport()
'End Sub
Private reportRequest As WebRequest
Private Function BeginGetAsyncData(ByVal src As Object, ByVal args As EventArgs, ByVal cb As AsyncCallback, ByVal state As Object) As IAsyncResult
reportRequest = WebRequest.Create(HttpContext.Current.Request.Url.Scheme & "://" & _
HttpContext.Current.Request.Url.Authority & _
Page.ResolveUrl("DownloadPDF.aspx"))
Return reportRequest.BeginGetResponse(cb, state)
End Function
Private Sub TimeoutGetAsyncData(ByVal ar As IAsyncResult)
Response.Write("TIMEOUT")
End Sub
Private Sub EndGetAsyncData(ByVal ar As IAsyncResult)
Dim reportResponse As WebResponse = reportRequest.EndGetResponse(ar)
Dim reader As New BinaryReader(reportResponse.GetResponseStream())
Dim buffer(reportResponse.ContentLength - 1) As Byte
buffer = reader.ReadBytes(buffer.Length)
Response.Clear()
Response.ClearHeaders()
Response.ClearContent()
Response.ContentType = "Application/pdf"
Response.BinaryWrite(buffer)
Response.Flush()
End Sub
End Class
Nice!
Chris May 