Online & Hits

Du skal have adgang til global.asa for at kunne se den slags - har du det?

Kom nuuu!

ja!

http://activeserverpages.dk/aspdigital/kapitel1/countusers.asp

Hvad så med Hits?..

Har du også sådan et?

Det virker til online. For at lave en hits skal du bare lave en variabel på samme måde, som dog ikke formindskes når en session afsluttes.

Det kan jeg ikke finde ud af..

Kan du ikke gøre det for mig?

<SCRIPT LANGUAGE=\"VBScript\" RUNAT=\"Server\">
Sub Application_OnStart
    \' Nulstiller antallet af brugere når applikationen (serveren) startes
    Application(\"ActiveUsers\") = 0
    Application(\"NumUsers\") = 0
End Sub

Sub Application_OnEnd
    \' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub

Sub Session_OnStart
    \' Forøger antallet af brugere med 1, når en session startes
    Application.Lock
        Application(\"ActiveUsers\") = Application(\"ActiveUsers\") + 1
    Application.UnLock
End Sub

Sub Session_OnEnd
    \' Reducer antallet af brugere med 1, når en session afsluttes
    Application.Lock
        Application(\"ActiveUsers\") = Application(\"ActiveUsers\") - 1
    Application.UnLock
End Sub
</SCRIPT><SCRIPT LANGUAGE=\"VBScript\" RUNAT=\"Server\">
Sub Application_OnStart
    \' Nulstiller antallet af brugere når applikationen (serveren) startes
    Application(\"ActiveUsers\") = 0

End Sub

Sub Application_OnEnd
    \' Skriv kode som skal køres når applikationen (serveren) stoppes
End Sub

Sub Session_OnStart
    \' Forøger antallet af brugere med 1, når en session startes
    Application.Lock
        Application(\"ActiveUsers\") = Application
(\"ActiveUsers\") + 1
        Application(\"NumUsers\") = Application
(\"NumUsers\") + 1

    Application.UnLock
End Sub

Sub Session_OnEnd
    \' Reducer antallet af brugere med 1, når en session afsluttes
    Application.Lock
        Application(\"ActiveUsers\") = Application(\"ActiveUsers\") - 1
    Application.UnLock
End Sub
</SCRIPT>

Hov, den kom dobbelt op.

Okay.

Jeg fandt en anden en på netstuff.dk.
Men når jeg skriver det her :
<tr>
                  <td width=\"142\" bgcolor=\"#C4E6F9\" valign=\"top\" height=\"51\">
                    <table cellspacing=0 cellpadding=1 width=\"100%\" border=0 height=\"31\">
                      <tbody>
                      <tr>
                        <td height=\"11\">:: <a class=\"menulink\">IP :&nbsp;<%=Request.ServerVariables(\"REMOTE_ADDR\")%></a></td>
                      </tr>
              <tr>
                <td height=\"2\">:: <a class=\"menulink\">Dato : <%=date()%></a></td>
                      </tr>
                      <tr>
<font face=\"Verdana\" size=\"1\">
                        <td height=\"10\">:: <a class=\"menulink\">Klokken: <%=time()%>
                        </td>
                        </font>
                      </tr>
                      <tr>
<font face=\"Verdana\" size=\"1\">
                        <td height=\"10\">:: <a class=\"menulink\">Online: <!-- #include file=\"online/inc_onlineusers.asp\" -->

<%
if application(\"usersonline\") = \"\" then
    application(\"usersonline\") = 1
end if

%><img src=\"http://www.cht.dk/count.asp\" alt=\"\" width=1 height=1 align=right><%

For i = 1 to application(\"usersonline\")
    if len(application(\"usersonline_\"&i)) then
        if DateDiff(\"s\",application(\"usersonline_\"&i),Now) > timeout_sek then
            application(\"usersonline_\"&i) = \"\"
            application(\"userinfo_\"&i) = \"\"
        else
            usersonline = usersonline+1
        end if
        max_i = i
    end if
next

application(\"usersonline\") = max_i

response.write \"<br><font face=Verdana size=1>\" & usersonline & \" online.<br>\"
%>

i koden.. Så, står der 1 online på næste linie?.. Hvad kan det være?

Har du en URL?

Den ene der er online er vel dig selv...

så noget helt andet hvordan gør man så der altid står der er en online ?

på fx. chart ?

en der ved det ?

Uddyb venligst det spørgsmål...

Der står sådan her : Online:
1

Der skal stå Online:1
Ikke Online:
1


Forstår du mig?

Fjern <br>.

Nej glem det jeg sagde.

Der må være noget i din include-fil der skifter linie. Prøv at poste den og lad os kgge på det.

I inc_onlineusers.asp står der :
<%
timeout_sek = 70    \' timeout i sekunder
max_users = \"500\"    \' max antal brugere der skal tælles
cookies_check = \"no\"    \' skal der tjekkes om browseren accepterer cookies [\"yes\" / \"no\"]
Session.Timeout = 2

if session(\"usernumber\") <> \"\" then
    application(\"usersonline_\" & session(\"usernumber\")) = now
else
    if InStr(1, request.servervariables(\"HTTP_COOKIE\"),\"ASPSESSIONID\", 1) <> 0 or cookies_check = \"no\" then
        \'Browseren understøtter cookies (eller der tjekkes ikke for om browseren acceptere cookies)
        For i = 1 to max_users
            if IsDate(application(\"usersonline_\"&i)) or application(\"usersonline_\"&i) = \"\" then
                if application(\"usersonline_\"&i) = \"\" then
                    session(\"usernumber\") = i
                    i = max_users
                elseif DateDiff(\"s\",application(\"usersonline_\"&i),Now) > timeout_sek then
                    session(\"usernumber\") = i
                    i = max_users
                end if
            end if
        next
        application(\"usersonline_\"&session(\"usernumber\")) = now
        application(\"userinfo_\" & session(\"usernumber\")) = \"[\" & Request.ServerVariables(\"REMOTE_HOST\") & \"]</td><td nowrap>[\" & Request.ServerVariables(\"HTTP_ACCEPT_LANGUAGE\") & \"]</td><td nowrap>[\" & now & \"]\"
        if application(\"usersonline\") < session(\"usernumber\") then
            application(\"usersonline\") = session(\"usernumber\")
        end if
    elseif request(\"mode\") <> \"check\" then
        response.redirect Request.ServerVariables(\"SCRIPT_NAME\") & \"?mode=check\"
    else
        \'Browseren understøtter ikke cookies
        response.write \"Din browser understøtter ikke cookies\"
    end if
end if

if request.form = \"\" then
    response.write \"<meta HTTP-EQUIV=\"\"REFRESH\"\" CONTENT=\"\"60;URL=\"\">\"
end if
%>

Nååeh, du har jo fået det til at virke!

Var det ikke et <br> alligevel?