Globalt fel

3 svar · 170 visningar · startad av Jacob 25 apr. 2001

JacobMedlem sedan dec. 2000503 inlägg

Frågan25 apr. 2001 06:27#1

Min global.asa

<SCRIPT LANGUAGE="VBScript" RUNAT="SERVER"> 
Sub Session_onEnd 
	adOpenStatic = 3
	adLockOptimistic = 3
	Set Connect = Server.CreateObject("ADODB.Connection")
	Connect.Open "mess"
	Set RecSet = Server.CreateObject("ADODB.Recordset")
	ny = "SELECT * FROM user WHERE session="&Session.SessionID
	RecSet.Open ny, Connect, adOpenStatic, adLockOptimistic 
	Do Until RecSet.EOF
	RecSet.Delete 
	RecSet.MoveNext
	Loop
	RecSet.Close
	Connect.Close 
	Set Connect = Nothing
End Sub 
</SCRIPT>

Problem:
Det tas aldrig bort någont ur databasen, jag har provat att lämna siten och itne komma tillbaka på 30 min & jag har provat Session.abandon

Lösning till problemet:

------------------
ja©ob

@ndersMedlem sedan juni 200032 967 inlägg

25 apr. 2001 06:30#2

nu vet jag inte om det löser ditt problem, men du skall straffas hårt ( ;) ) för att du i global.asa använder ado-metoder för att ta bort poster i en tabell.

förenkla och förbättra koden till följande:

<SCRIPT LANGUAGE="VBScript" RUNAT="SERVER"> 
Sub Session_onEnd 
Set Connect = Server.CreateObject("ADODB.Connection")
Connect.Open "mess"
ny = "DELETE FROM [user] WHERE [session] = " & Session.SessionID
Connect.execute(ny)
Connect.Close 
Set Connect = Nothing
End Sub 
</SCRIPT>

------------------
<A HREF="http://cartman.nu" TARGET=_blank>
all your base are belong to us!</A>

JacobMedlem sedan dec. 2000503 inlägg

25 apr. 2001 06:35#3

:) --> :o --> :l --> x( --> :x
innan ........................efter
@nders ------------>@ndes
mess .........................mess

Jag ska kolla om det hjälper, tack för att du straffade mig. ;)

[Redigerat av Jacob den 25 apr 2001]

JacobMedlem sedan dec. 2000503 inlägg

25 apr. 2001 06:52#4

Den körs inte iaf, jag fattar iten det här alls.