Responnse redirect from global.asax

**zdig10** · 21/10/2010, 18h23

bonjour tout le monde
je veux faire un contrôle sur la taille des fichiers à charger
bien sur la taille des fichiers sera fixée dans web.config http runtime maxRequestLength
je veux traiter le cas de fichier volumineux dans le fichier global .asax
voila le code

Code vb :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
 Dim g As String
        Dim ex1 As HttpException = TryCast(Server.GetLastError().GetBaseException(), HttpException)
        If ex1 IsNot Nothing AndAlso ex1.ErrorCode = -2147467259 Then
 
            Dim oConfigSection As System.Web.Configuration.HttpRuntimeSection = DirectCast(ConfigurationManager.GetSection("system.web/httpRuntime"), System.Web.Configuration.HttpRuntimeSection)
            If Request.ContentLength > oConfigSection.MaxRequestLength * 1000 Then
                Server.ClearError()
Response.Redirect("default.aspx")
   End If
        End If

mon problème est que la connexion sera réinitialisé sans que sache pourquoi
sachiez vous la réponse et est ce que vous avez des solutions à mon problème?
merci

**jjameau** · 22/10/2010, 09h05

Envoyé par zdig10

est que la connexion sera réinitialisé

Comment ça ?

**zdig10** · 22/10/2010, 11h32

Bonjour jjameau et bonjour tout le monde,
comment ça ???
Vraiment je connais pas la cause!!!!
Tout simplement, je voulais faire une redirection de mon site web vers une page d'erreur personnalisée lorsque l'erreur se présente. Je voulais éviter de faire un test à chaque fois qu'il y 'a une jointure de documents donc j'ai ajouté ce bout de code que j'ai décrit avant ce poste et je lai mis dans le fichier Global.asax
voici exactement le code
------------------Global.asax------------------------

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub Application_Start(ByVal sender As Object, ByVal e As EventArgs)
 
 
End Sub
 
Sub Application_End(ByVal sender As Object, ByVal e As EventArgs)
 
End Sub
 
Sub Application_Error(ByVal sender As Object, ByVal e As EventArgs)
        Dim con As New Connexion
        Dim g As String
        Dim ex1 As HttpException = TryCast(Server.GetLastError().GetBaseException(), HttpException)
        If ex1 IsNot Nothing AndAlso ex1.ErrorCode = -2147467259 Then
Dim oConfigSection As System.Web.Configuration.HttpRuntimeSection = DirectCast(ConfigurationManager.GetSection("system.web/httpRuntime"), System.Web.Configuration.HttpRuntimeSection)
            If Request.ContentLength > oConfigSection.MaxRequestLength * 1000 Then
                g = Request.Url.GetLeftPart(UriPartial.Authority) & _
                VirtualPathUtility.ToAbsolute("~/")
                Dim adresse As String
                adresse = g & "Default.aspx"
                HttpContext.Current.Session("Error") = ex1.Message
                Response.Redirect(adresse) 
         End If
        End If
        con = Nothing
End Sub

-J'ai changé Response.Redirect (adresse) par Response.Redirect ("default.aspx") et le même erreur se présente .
-Dim con As New Connexion et con = nothing n'ont aucun influence sur la redirection et ils ne sont pas la cause de ce problème
-J'espère que j'étais claire et j'attends vos remarques et suggestions.
merci