Global.asa, utenti on line e visite totali

[gocagoc]

Buonasera Forum,
ho un global asa con:

(per contare gli utenti on line)
<script language="JScript" runat="Server">
function Application_OnStart() {
// Imposta a zero il contatore quando non ci sono utenti connessi
Application("users") = 1;
}
function Session_OnStart() {
// Incrementa di un'unità il contatore per ogni utente connesso
Application("users") += 1;
}
function Session_OnEnd() {
// Decrementa di un'unità il contatore ad ogni disconnessione
Application("users") -= 1;
}
</script>



e seppur grossolano, funziona.
Ma se cerco di aggiungere al global.asa il seguente codice per contare il numero di visite totali e scrivelo in un file.txt....non funziona più nulla.




Sub Application_OnStart
Set FO = Server.CreateObject("Scripting.FileSystemObject")
file = "c:\inetpub\wwwroot\upload\conta.txt"

'se non esiste lo crea
if NOT FO.FileExists(file) then
Set LOG=FO.CreateTextFile(file,true)
LOG.writeLine("0") 'imposta a 0
LOG.Close
set LOG=nothing
end if

'apre in lettura
Set file2 = FO.OpenTextFile(file, 1 , FALSE , FALSE )
Application("CONTATORE") = Clng(file2.ReadLine)
Set file2 = nothing
Set FO = nothing
End Sub

Sub Application_OnEnd
Set FO = Server.CreateObject("Scripting.FileSystemObject")
file = "c:\inetpub\wwwroot\upload\conta.txt"
Set file2 = FO.CreateTextFile(file,TRUE)
file2.WriteLine Application("Accessi")
Set file2 = nothing
Set FO = nothing
End Sub

Sub Session_OnStart
Application.Lock
Application("CONTATORE") = Application("CONTATORE") + 1
Application.Unlock
End Sub

Sub Session_OnEnd 'per S precisi ci metto pure questa.
End Sub


Penso che è sicuramente un problema su come unire i due codici: sapete come fare (fa ridere la domanda?)?

[DarioN1]

Nel global asa non si può usare il FSO . . .

[gocagoc]

:-(

ok grazie,

ma come si può fare (senza utilizzare un database)

[DarioN1]

Nel global asa non puoi creare oggetti , mi spiace

[Shagrat]

Non è vero che non si può...io lo faccio e funziona benissimo

[Shagrat]

MyFile = "D:\Inetpub\wwwroot\lammoth\log123.txt"
        Set FSO = Server.CreateObject("Scripting.FileSystemObject")
        If not(FSO.FileExists(MyFile)) Then
        Set File = FSO.CreateTextFile(MyFile)
        else
        Set File = FSO.OpenTextFile(MyFile, 8, True)
        end if
        File.WriteLine str1
        File.WriteLine " "
        File.Close
        Set file = nothing
        Set FSO = Nothing

questo è il codice che uso per creare e aggiornare il file...è fatto in VBScipt ma riadattarlo è un attimo

[gocagoc]

grazie....allora ora ho da unire:

1°
(per contare gli utenti on line)

<script language="JScript" runat="Server">
function Application_OnStart() {
// Imposta a zero il contatore quando non ci sono utenti connessi
Application("users") = 1;
}
function Session_OnStart() {
// Incrementa di un'unità il contatore per ogni utente connesso
Application("users") += 1;
}
function Session_OnEnd() {
// Decrementa di un'unità il contatore ad ogni disconnessione
Application("users") -= 1;
}
</script>


2°
(per contare le visite totali al sito)


MyFile = "D:\Inetpub\wwwroot\lammoth\log123.txt"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If not(FSO.FileExists(MyFile)) Then
Set File = FSO.CreateTextFile(MyFile)
else
Set File = FSO.OpenTextFile(MyFile, 8, True)
end if
File.WriteLine str1
File.WriteLine " "
File.Close
Set file = nothing
Set FSO = Nothing

[gocagoc]

ho fatto così, ma non mi crea il file numerovisite :

<script language="JScript" runat="Server">
function Application_OnStart() {
// Imposta a zero il contatore quando non ci sono utenti connessi
Application("users") = 1;
}
function Session_OnStart() {
// Incrementa di un'unità il contatore per ogni utente connesso
Application("users") += 1;
}
function Session_OnEnd() {
// Decrementa di un'unità il contatore ad ogni disconnessione
Application("users") -= 1;
}
</script>

<script>
MyFile = "D:\Inetpub\wwwroot\numerovisite.txt"
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
If not(FSO.FileExists(MyFile)) Then
Set File = FSO.CreateTextFile(MyFile)
else
Set File = FSO.OpenTextFile(MyFile, 8, True)
end if
File.WriteLine str1
File.WriteLine " "
File.Close
Set file = nothing
Set FSO = Nothing
</script>

non ho capito un c... , vero?

[Shagrat]

il pezzo di codice che ti ho postato va messo dentro in una delle 4 function, in quella che ti serve...non in uno script a parte

[gocagoc]

ah, grazie
cerco di imparare....e proverò al più presto

farò sapere

ciaooo