webForumDet fria alternativet

Alla sessioner dör - oregelbundet? :o

ASP

5 svar · 376 visningar · startad av erik_nordell

Medlem sedan aug. 2000431 inlägg
Frågan#1

Jag har en sida där man kan logga in...
använder global.asa för en application som spara de som är inloggade...

Men titt som tätt och helt oregelbundet dör ALLA sessioner och alla "loggas ut" från applicationslistan och från sidan. Vad beror det på? Verkar ju som global.asa "startar om sig" på nåt sätt... pg.a fel?! någon...?

Medlem sedan mars 2003772 inlägg
#2

Släng fram lite kod!

Medlem sedan aug. 2000431 inlägg
#3

hmm, hela sidan eller? :p
grejen är ju att jag inte vet vad som orsakar felet, när som helst kan alla bara kastas ut... :S

men global.asa kan jag pilla upp om ni vill? :)

Medlem sedan mars 2003772 inlägg
#4

Jao visa den då samt hur du gör själva checken på sidan.
Använder du dig av nån session.Timeout ?

session.timeout = 30

Detta skulle förstöra sessionen efter 30 minuter.

Medlem sedan aug. 2000431 inlägg
#5

japps använder session.timeout...
ska bara komma hem å lägga ut lite global.asa :p

jag gör check på flera sidor och även inlägg på flera...

Medlem sedan aug. 2000431 inlägg
#6
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
session.timeout = 20
DIM Online( 10, 50 )
Application("Online") = Online

DIM chat(3,50)
Application("chat") = chat
End Sub
 
Sub Application_OnEnd
End Sub
 

Sub Session_OnStart
End Sub

Sub Session_OnEnd
if not session.sessionId = "" then
Application.Lock
Online = Application("Online")
For i = 0 to UBOUND(Online, 2 )
IF Online( 8, i ) = Session.SessionID THEN
Online( 0, i ) = ""
Online( 1, i ) = ""
Online( 2, i ) = ""
Online( 3, i ) = ""
Online( 4, i ) = ""
Online( 5, i ) = ""
Online( 6, i ) = ""
Online( 7, i ) = ""
Online( 8, i ) = ""
Online( 9, i ) = ""
Online( 10, i ) = ""
END IF
NEXT
Application("Online") = Online
chat = Application("chat")
FOR k = 0 TO UBOUND(chat, 2)
if chat(0,k) = session.sessionid then
chat(0,k) = ""
chat(1,k) = ""
chat(2,k) = ""
chat(3,k) = ""
ok = "ok" 
End if
next
Application("chat") = chat
Application.UnLock
end if
End Sub
</SCRIPT>
276 ms totalt · 4 externa anrop · v20260731065814-full.86ec41c2
122 ms — deklarationer (db)
0 ms — hämta statistik (cache)
151 ms — hämta tråd, inlägg och bilagor (db)
121 ms — ändringar (db)