Kan man ha dubbla OnStart scripts i global.asa?
Jag har för mig att det ska gå att slå ihop dem på nåt sätt.
Min global.asa ser nu ut så här.
Högst upp (till en chat):
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
DIM Stats( 4, 100 )
Application( "Stats" ) = Stats
END SUB
</SCRIPT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Session_OnEnd
Application.Lock
statistik = Application( "Stats" )
For i = 0 to UBOUND( statistik, 2 )
IF statistik( 0, i ) = Session.SessionID THEN
statistik( 0, i ) = ""
EXIT FOR
END IF
NEXT
Application( "Stats" ) = statistik
Application.UnLock
END SUB
</SCRIPT>
Det jag sedan skulle vilja ha in är en kod för en Ad Rotator som ser ut så här:
<SCRIPT LANGUAGE="VBScript" RUNAT="Server">
Sub Application_OnStart
End Sub
Sub Application_OnEnd
End Sub
Sub Session_OnStart
session("ad")=0
End Sub
Sub Session_OnEnd
End Sub
</SCRIPT>
Du kan bara ha en sub som heter Session_OnStart, och bara en som heter Application_OnStart. Men, du kan lägga in flera olika prylar i dessa.
Jag antar att dina <object>s skall ligga i application_onstart?
I så fall:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
SUB Application_OnStart
DIM Stats( 4, 100 )
Application( "Stats" ) = Stats
<OBJECT
RUNAT="Server"
SCOPE="Application"
ID="conquerChatUsers"
PROGID="Scripting.Dictionary">
</OBJECT>
<OBJECT
RUNAT="Server"
SCOPE="Application"
ID="conquerChatRooms"
PROGID="Scripting.Dictionary">
</OBJECT>
<OBJECT
RUNAT="Server"
SCOPE="Application"
ID="conquerChatMessages"
PROGID="Scripting.Dictionary">
</OBJECT>
END SUB
SUB Session_OnStart
session("ad")=0
END SUB
SUB Session_OnEnd
Application.Lock
statistik = Application( "Stats" )
For i = 0 to UBOUND( statistik, 2 )
IF statistik( 0, i ) = Session.SessionID THEN
statistik( 0, i ) = ""
EXIT FOR
END IF
NEXT
Application( "Stats" ) = statistik
Application.UnLock
END SUB
</SCRIPT>
Alltså, de kan givetvis samexistera, så länge du ser till att lägga kodstyckena i rätt sub.
