webForumDet fria alternativet

flera global.asa?

ASPur ASP

21 svar · 455 visningar · startad av mozilla

Medlem sedan juli 20011 084 inlägg
Frågan#1

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??

Medlem sedan okt. 20005 273 inlägg
#2

Nej ...global.asa ligger i rooten och då kan man bara ha en :(

------------------
Icaaq, mannen med korven. (!)

Medlem sedan juli 20011 084 inlägg
#3

Så man får skriva in allt i samma global.asa?

Medlem sedan dec. 19998 577 inlägg
#4

Du kan ha en global.asa-fil under varje web-root.

Men du kan ju i global.asa ha en if-sats som kollar vilken sajt du är inne på, och på så sätt köra rätt kod.

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

Medlem sedan okt. 20014 inlägg
#5

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!

Medlem sedan juli 20011 084 inlägg
#6

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??

Medlem sedan okt. 20014 inlägg
#7

Japp, det är webbhotellet som måste greja det.

------------------
http://nerikes.se/

Medlem sedan dec. 19998 577 inlägg
#8

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.

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

Medlem sedan juli 20011 084 inlägg
#9

Okej jag fick svar från mitt webhotell och de sa

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å??

Medlem sedan dec. 19998 577 inlägg
#10

Haha, dom har nog inte fattat riktigt vad global.asa är om dom säger att det är en "dum" funktion.

Det är det mest logiska (om mest standariserade) sättet att logga användare. ([R.]inom ASP måste tilläggas)

Skulle man lägga koden i en index-fil så skulle man tappa alla som kommer in på en undersida, utan att gå via index-sidan.

Förvånande att ett webhotell svara så... :l

Vad är det för webhotell :q

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

[Redigerat av Vide den 23 okt 2001]

Medlem sedan juli 20011 084 inlägg
#11

hmm okej! men det du menade med if satser? menade du att man med tex

If Request.ServerVariables("PATH_INFO") = "minmapp" Then

eller?

Medlem sedan dec. 19998 577 inlägg
#12

Precis, dock blir det problem när du kommer in på en undermapp till "dinmapp", eftersom den fortfarande måste räknas till "dinmapp"...

------------------
Doesn't 'expecting the unexpected' make the unexpected expected?
webeye.nu

Medlem sedan juli 20011 084 inlägg
#13

hmm kommer på lite problem! När man skriver ut den if satsen får man ju

/minmapp/default.asp

osv nu fattar nog? men hur ska man göra då för att få global.asa att fatta vilken site man är på? någon som har lite idéer?

Medlem sedan okt. 2001387 inlägg
#14

alltså jag har samama problem i min tråd...

fick dock inte detta att fungera:

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

End If
</SCRIPT>

vad är del ? sidan ligger i /klass/

Medlem sedan juni 200032 967 inlägg
#15

Skriv ut request.servervariables("path_info") för att se vad den innehåller, så du vet om du ens gör rätt jämförelse i if-satsen.

Mvh,

------------------
All your base are belong to me.

Medlem sedan dec. 200012 464 inlägg
#16
<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>

------------------
essentitia preter non sans multiplicandum

Medlem sedan juli 20011 084 inlägg
#17

det e det som blir fel det kommer ut /minmap/default.asp det e därför det inte fungerar någon som vet hur man gör så den bara kkänner av mappen?

Medlem sedan okt. 2001387 inlägg
#18

det fungerade när jag körde lokalt men när jag laddat upp det fick jag detta felmeddelande:

error '8002802b'
Element not found.

//global.asa, line 4

Medlem sedan okt. 2001387 inlägg
#19

måste vara något fel med den där servervariebeln..

är det inte någon som har en testad sådan kod ?

Medlem sedan okt. 2001387 inlägg
#20

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>

134 ms totalt · 3 externa anrop · v20260731065814-full.4bcf49fe
0 ms — hämta forumlista (cache)
0 ms — hämta statistik (cache)
131 ms — hämta tråd, inlägg och bilagor (db)