HttpContext.Current.Response.End()

 
Dim str As String = ConfigurationManager.AppSettings( _
  "FreeDownloadFileConnStr").ToString()
Dim conn As New SqlConnection(str)
Try
    Dim file2save As String = Path.GetFileName(fi.FullName)
    '
    HttpContext.Current.Response.Clear()
    HttpContext.Current.Response.AddHeader("Content-Disposition", String.Format( _
      "attachment; filename={0}", file2save))
    HttpContext.Current.Response.AddHeader("Content-Length", fi.Length.ToString( _
    ))
    HttpContext.Current.Response.ContentType = "application/octet-stream"
    HttpContext.Current.Response.WriteFile(fi.FullName)
    HttpContext.Current.Response.Flush()
    HttpContext.Current.Response.End()
    Dim fileid As Integer = Request.QueryString("fileid")
    'Datenbank
    Dim sql As String = "Update Files SET Downloads=Downloads+1 Where" & _
      "Files_ID='" & fileid & "'"
    conn.Open()
    Dim cmd As New SqlCommand(sql, conn)
    Dim count As Integer = cmd.ExecuteScalar
    Catch treadex As Threading.ThreadAbortException
       'Wird ausgelöst, wenn der Download abgebrochen oder geblockt wird
    Catch ex As Exception
       Stop
    Finally
       conn.Close()
   End Try