Applicaion i global.asa?

6 svar · 278 visningar · startad av bigsky 16 feb. 2003

bigskyMedlem sedan maj 2002821 inlägg

Frågan16 feb. 2003 06:41#1

I global.asa's OnStart räknar jag antalet aktiva besökare enligt koden nedan. Men nu har jag två hemsidor på samma server och det skapar problem. Om någon surfar in på sida 1 uppdateras ju även räknaren för sida 2, även om ingen surfat in på den. Hur ska jag lösa detta?

Sub Session_OnStart()
   Application.Lock
      Session.Timeout = 20
      Application("NumUsers") = CInt(Application("NumUsers")) + 1
   Application.Unlock
End Sub

crisse6Medlem sedan dec. 20002 526 inlägg

16 feb. 2003 06:50#2

Bara en fraga, varfor har du CInt med i din application? Du kan ju inte ha 1,4356 anvandare?

bigskyMedlem sedan maj 2002821 inlägg

16 feb. 2003 06:51#3

Ja, det har du rätt i... bra fråga.

crisse6Medlem sedan dec. 20002 526 inlägg

16 feb. 2003 06:59#4

Bara papekade ;) annars vet jag tyvarr inte det dar med global.asa, har aldrig varit den dar global.asa-killen ;)

PatrikBMedlem sedan mars 20002 836 inlägg

16 feb. 2003 09:59#5

på samma server eller på samma site?

På samma server kan du ha hur många siter som helst utan att global.asa "krånglar". Men, har du 2 siter under samma "site i IIS" så blir det problem.

Har du siterna går mot samma domän-namn eller har du konfat hostheadern så att den "redirectar" till rätt katalog vid olika domän-namn?

Den senare så kan du lösa det med Request.ServerVariables("HTTP_HOST"):

strHost = Request.ServerVariables("HTTP_HOST")

Select Case LCase(strHost)

	Case "www.minsite.com"
		Application("Site1Users") = Application("Site1Users") + 1

	Case "www.minandrasite.com"
		Application("Site2Users") = Application("Site2Users") + 1
End Select

otestat, men ngt liknande skulle kunna funka.
Annars kanske du får köra Request.ServerVariables("SCRIPT_NAME") och sedan kolla om de olika siternas "root" finns med (ie: /site1/ eller om /site2/ finns i SCRIPT_NAME)

cya,
PatrikB

bigskyMedlem sedan maj 2002821 inlägg

16 feb. 2003 16:23#6

Den ena sidan är en site kopplad till mitt roten på kontot hos webbhotellet, den andra är en site som är redirectad till samma konto, men till en undermapp under roten. Sidorna ligger under samma site i IIS med andra ord.
Skulle kunna använda din kod, men inte med HTTP_HOST då det vid redirecten blir samma rot site iaf. Får nog använda SCRIPT_NAME istället. Kan man få ett exempel där vi kollar om ett visst antal av de första bokstäverna är si och så.

Tex. om det fem första bokstäverna i stringen "strName" är "/sida1" osv.

bigskyMedlem sedan maj 2002821 inlägg

16 feb. 2003 18:59#7

Löste det med:

strName = Request.ServerVariables("SCRIPT_NAME")
      Select Case LCase(Left(strName,5))
        Case "/bsai"
          Application("NumUsers") = Application("NumUsers") + 1
        Case "/80ss"
          Application("NumUsers2") = Application("NumUsers2") + 1
      End Select