[asp.net] weer een sessieprobleem

[barteke]

hallo,

een pagina bestaat uit drie frames, left main en top.

telkens als de pagina opstart worden er twee sessie tegelijk gestart inplaats van 1 zoals het hoort.
ik denk dat het aan die frames ligt.

maare.. weet iemand hoe ik dit kan voorkomen? de usercount klopt zo van geen meter.

groeten,

Bart

[gorgi_19]

Handel de usercount af in je Global.Asax. Daar kan je hele mooie method (Session_OnStart) in kwijt...

[ Voor 43% gewijzigd door gorgi_19 op 28-03-2003 11:50 ]

[barteke]

dat doe ik ook..

Sub Session_Start()

Application( "SessionCount" ) += 1

End Sub

maar hij maakt twee unieke sessiestring aan bij elke herstart

[gorgi_19]

Laat je code eens helemaal zien?
Van je Global.Asax dan.

En vergeet geen [code=vb.net][/code] te gebruiken..

[ Voor 40% gewijzigd door gorgi_19 op 28-03-2003 12:04 ]

[barteke]

Visual Basic .NET:

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.Sqlclient" %>
<%@ Import Namespace="System.Security.Principal" %>
<%@ Import Namespace="System.Web.Mail" %>

<Script Runat="Server">

Dim conCommunity As SqlConnection
Dim strSelect As String
Dim cmdSelect As SqlCommand
Dim strInsert As String
Dim cmdInsert As SqlCommand
Dim strSessionID As String

Dim userID as Integer
        
Dim objUserIdentity As FormsIdentity

    Sub Application_Start()
        ' Fires when the application is started   
        
        Application( "MembersOnline" ) = New HashTable()
        
 End Sub
 
 

 
    Sub Session_Start()
    
        ' Fires when the session is started
        
        If Application( "SessionCount" ) Is Nothing Then
            Application( "SessionCount" ) = 0
        End If
        
             
If User.Identity.IsAuthenticated Then
        
        
        
        objUserIdentity = User.Identity
        
        userID = objUserIdentity.Ticket.UserData
        
            
If (Application( "MembersOnline" ).Contains( userID )) Then
                Application.Lock
            Application( "MembersOnline" ).Remove (userID)
            Application.Unlock
End IF                  

            
                Application.Lock
                    Application( "MembersOnline" ).Add ( userID,Session.SessionID )
                    Application.Unlock
                    End If
                
                
                End If
                
        Application( "SessionCount" ) += 1
        
End Sub
    
    
   

    Sub Application_BeginRequest()
    ' Fires at the beginning of each request
    End Sub

    Sub Application_AuthenticateRequest()
        ' Fires upon attempting to authenticate the use
        Dim objFormsID As FormsIdentity
        Dim intMemberID As Integer
        Dim intAuthorisationID As Integer
        Dim strRole As String
        Dim strRoles As String
        Dim arrRoles As String()
        Dim arrListRoles As New ArrayList()
        Dim conCommunity As SqlConnection
        Dim strSelect As String
        Dim cmdSelect As SqlCommand
        
        If Context.Request.IsAuthenticated Then     
            
            objFormsID = Context.User.Identity
            intMemberID = CInt( objFormsID.Ticket.Userdata )
            conCommunity = New SqlConnection( ConfigurationSettings.AppSettings("DSN") )
            conCommunity.Open()
                        
            strSelect = "Select AuthorisationID From Member Where ID = " & intMemberID
            cmdSelect = New SqlCommand(strSelect, conCommunity)
            
            intAuthorisationID = cmdSelect.ExecuteScalar()
            conCommunity.Close()
            
            Select intAuthorisationID
                Case 0
                    strRoles = "Normal;"
                Case 1
                    strRoles = "Normal;Moderator;"
                Case 2
                    strRoles = "Normal;Moderator;Moderator-Admin;"
                Case 3
                    strRoles = "Normal;Moderator;Moderator-Admin;Admin"
            End Select

            For Each strRole In strRoles.Split(New Char() {";"c})
                arrListRoles.Add(strRole)
            Next strRole

            arrRoles = CType(arrListRoles.ToArray(GetType(String)), String())
            Context.User = New GenericPrincipal( Context.User.Identity, arrRoles )
            
        End If     
            
    End Sub

    Sub Application_Error()
        Dim objMail As New MailMessage
        Dim ex As Exception = Context.Server.GetLastError().GetBaseException()

         objMail.From = ""
         objMail.To = ""
         objMail.Subject = "Error at Web site"
         objMail.Body = Request.Path
         objMail.Body &= vbNewLine
         objMail.Body &= ex.Message
         objMail.Body &= vbNewLine
         objMail.Body &= ex.Source
         SmtpMail.Send( objMail )
         Context.Server.ClearError()
    End Sub

    Sub Session_End()
        ' Fires when the session ends
        
        objUserIdentity = User.Identity
        
        userID = objUserIdentity.Ticket.UserData
        
        Application( "SessionCount" ) -= 1
        
        Application.Lock
        Application( "MembersOnline" ).Remove (userID)
        Application.Unlock
        
        
    End Sub

    Sub Application_End()
        ' Fires when the application ends
    End Sub
    
End Sub
</Script>

[ Voor 7% gewijzigd door barteke op 28-03-2003 12:16 ]

[gorgi_19]

* gorgi_19 ziet zo 123 niets geks... Wat je sowieso kan proberen is debuggen, en dat icm met Tracing, om zo te zien wat er gebeurd.

[Verwijderd]

je moet je application variable locken voordat je hem update...

[Verwijderd]

Misschien omslachtig maar het werkt:
Laat gewoon je global.asax ook het ip van de gebruiker opslaan in een Application() array samen met de session id, als er dan een IP 2maal voorkomt moet het gedelete worden en de usercount -1