Hvem er online?

Hej,

du kan downloade en anden på http://www.netcoders.dk/sourcecode.asp

/nof

hvor ???

mere præcis link tak !!

dna

VisitorCount.asp
**********************
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">

<HTML>
<HEAD>
    <TITLE>Retrieving Variables Set in Global.asa</TITLE>
</HEAD>

<BODY>
<p>
There have been <B><%=Session(\"VisitorID\")%></B> total visits to this site.
<br>You are one of <b> <%=Application(\"Active\")%></b> active visitors.
<br>Your session started at <%= Session(\"Start\") %>

</BODY>
</HTML>

****************************

Global.asa
****************************
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
    Application(\"visits\") = 0
    Application(\"Active\")= 0
End Sub

Sub Application_OnEnd

End Sub

Sub Session_OnStart
    Session.Timeout = 1
    Session(\"Start\")=Now
    Application.lock
        Application(\"visits\")= Application(\"visits\") + 1
        intTotal_visitors = Application(\"visits\")
    Application.unlock
    Session(\"VisitorID\") = intTotal_visitors

    Application.lock
        Application(\"Active\")= Application(\"Active\") + 1
    Application.unlock
End Sub

Sub Session_OnEnd
    Application.lock
        Application(\"Active\")= Application(\"Active\") - 1
    Application.unlock
End Sub
</SCRIPT>

****************************

Den burde virke ! Koden er \"hugget\" fra Wrox (Beginning Active Server Pages 2.0)

Hvis du vil have det hele i *.zip, er adressen ftp://ftp.wrox.com/Beginning/1347.zip ! Eksemplet ligger under kapitel 9 ....

God fornøjelse !

desværre... jeg fik det andet til at virke, det var en fejl i deres kode på activeserverpages.dk (eller, der var vist endda 2), men det er rettet, og virker efter hensigten! Ellers tak for opmærksomheden

dna
http://www.mp3news.dk