global.asa

Vi har diskutteret det samme her: http://www.eksperten.dk/spm/379389

Der er 4 sub's i .asa

én der bliver trigget når applicationen starter, én når den slutter.
én der bilver trigget når en ny session oprettes og én når den bliver nedlagt.

simpel global.asafil:
<script language="VBScript" runat="server">
Sub Application_OnStart
Application("BrugereOnline") = 0
End Sub

Sub Session_OnStart
Application("BrugereOnline") = Application("BrugereOnline") + 1
End Sub

Sub Session_OnEnd
Application("BrugereOnline") = Application("BrugereOnline") - 1
End Sub

Sub Application_OnEnd
set Application("BrugereOnline") = Nothing
End Sub
</script>

Håber det giver dig en ide om hvad den kan bruges til...

/Casper

Ja det gør det da, men det jeg gerne vil vide er om der er mange instanser af denne fil, kan man f.eks. holde styr på hvilken IP adresse der har hvilken session ?

Ja, du kan jo' altid skrive sessionid og IP ned i en tabel

Her ville det være smart at gøre det i Sub Session_OnStart

Det er noget i den retning jeg gerne vil, men nu siger du SessionID,. hvad er det og hvordan får jeg fat i det? Det må jo være unikt

Det er unikt og findes således:

dim id = Session.SessionID

se mere her: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/iisref/htm/ref_vbom_sesopsid.asp

/Casper

Jeg har problemer med at skrive i DB fra global.asa, i subben Sub Session_OnEn d. Det kan lade sig gøre fra Sub Session_OnStart.
Er det helt logisk fordi det først sker efter at Sessionen er endt?
og hvis ja, hvordan kan det så løses ?

Session_OnEnd trigges ved session timeout eller ved at kalde session.abandon tror jeg... Den bilver ikke trigget ved bare at lukke browseren...

nej det er jeg enig i, men når den så trigges, er det så ikke muligt at skrive i DataBasen fra Session_OnEnd. ??

Jo' det vil jeg mene...
Hvad har du skrevet i din kode?

Sub Session_OnEnd
Set objConn = Server.CreateObject("ADODB.Connection")
strConnect = "Data Source=d:\home\axelandersendk\db\LogFiles.mdb;Provider=Microsoft.Jet.OLEDB.4.0;"
objConn.Open(strConnect)
strSQL = "Select * From LogFiles"
Set rs = objConn.Execute(strSQL)
End Sub

Dette virker i Session_OnStart

Er der ingen rigtig gode bud ?

jeg lukker