Kan man ha flera global.asa?? För jag har alla min sidor på samma webbhotell och det e helt olika global.asor på dem. Så ... kan man välja att när besökaren går in på en viss site så kör den global.asan som tillhör den sidan eller något liknande??
Man har en global.asa per applikation. Om man högerklickar på en underkatalog i IISen -> Properties -> Directory -> knappen Create under Application Settings, så ligger katalogen i en egen applikation (körs i ett minnesutrymme). Då kan man ha en global.asa där som bara gäller den katalogen!
hmm okej nu fick jag lite att tänka på! men vide vad menar du med det första? jag gissar att du menar web-root menar du ja roten men vad då kan man ha flera?
Sedan herr_litz hur gör man dessa inställningar måste webbhotellet göra dem i så fall??
Med "web-root" menar jag naturligtvis som herr_litz säger "Application", och antalet sådana finns det inga begränsningar för vad jag vet. I varje sådan mapp kan du ha en global.asa som körs.
Dock så behöver man inte använda sig av global.asa, det är en ”dum”
funktion som bara fungerar på .asp. Du kan istället inkludera en fil i din index
sida och bygga egna funktioner för att räkna antal besökare som är online o.s.v.
Och hmm någon som kan förklara lite hur de menar då??
If Request.ServerVariables("PATH_INFO") = "minmapp" Then
skrev så här:
<SCRIPT language="VBScript" runat="server">
If Request.ServerVariables("PATH_INFO") = "klass" Then
Sub Application_OnStart
Application("OnNow") = 0
End Sub
Sub Session_OnStart
Application.Lock
Application("OnNow") = Application("OnNow") + 1
Application.UnLock
End Sub
Sub Session_OnEnd
Application.Lock
Application("OnNow") = Application("OnNow") - 1
Application.UnLock
End Sub
<SCRIPT language="VBScript" runat="server">
Sub Application_OnStart
If instr(Request.ServerVariables("PATH_INFO"),"/klass/")) > 0 Then
Application("OnNow") = 0
end if
End Sub
Sub Session_OnStart
If instr(Request.ServerVariables("PATH_INFO"),"/klass/")) > 0 Then
Application.Lock
Application("OnNow") = Application("OnNow") + 1
Application.UnLock
end if
End Sub
Sub Session_OnEnd
If instr(Request.ServerVariables("PATH_INFO"),"/klass/")) > 0 Then
Application.Lock
Application("OnNow") = Application("OnNow") - 1
Application.UnLock
end if
End Sub
</SCRIPT>
så.. nu har jag fått det att fungera. tänkte att kanske någon annan ville veta hur, här kommer koden:
<SCRIPT language="VBScript" runat="server">
Sub Application_OnStart
Application("OnNow") = 0
End Sub
Sub Session_OnStart
Session.Timeout = 20
If (right(left(Request.ServerVariables("PATH_INFO"), 6), 5) = "klass") Then
Application.Lock
Application("OnNow") = Application("OnNow") + 1
Application.UnLock
End If
End Sub
Sub Session_OnEnd
If (right(left(Request.ServerVariables("PATH_INFO"), 6), 5) = "klass") Then
Application.Lock
Application("OnNow") = Application("OnNow") - 1
Application.UnLock
End If
End Sub
Sub Application_OnEnd
End Sub
</SCRIPT>
260 ms totalt · 4 externa anrop · v20260731065814-full.d34c6d5a