Brugere Online

Skal det være unikke brugere?

login.asp:

<%@Language=JavaScript%>
<%
bnavn = Request.Form("brugernavn");
pass = Request.Form("password");
site = Request.ServerVariables("HTTP_REFERER");

conn = Server.CreateObject("ADODB.Connection");
DBPath = "DBQ=" + Server.mappath("ASP.mdb");
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; " + DBPath);

rs = conn.execute("SELECT * FROM brugere WHERE brugernavn = '"+bnavn+"' AND password ='"+pass+"'");

if(!rs.EOF){
    Session("user") = rs.Fields("brugernavn").value;
    Session.Timeout = 20;
    Application("users_online") = Application("users_online")+Session("user")+",";
    Response.Redirect(site);
    conn.Close();
    }
else{
    conn.Close();
    Response.redirect("opret_bruger_form.asp");
    }   
%>


logoff.asp:

<%@Language=JavaScript%>
<%
site = Request.ServerVariables("HTTP_REFERER");
srt = String(Application("users_online"));
user = Session("user")+",";
srt = str.replace(/user/ig,"");
Session.Abandon();
Response.Redirect(site);
%>

prøver lige igen:

logoff:

<%@Language=JavaScript%>
<%
site = Request.ServerVariables("HTTP_REFERER");
str = String(Application("users_online"));
user = Session("user")+","
str = str.replace(/user/ig,"");
Application("users_online") = str;
Session.Abandon();
Response.Redirect(site);
%>

udskrives:

<%@Language=JavaScript%>
<%
online = String(Application("users_online"));
online = online.split(",");
if(online.length > 0){
    for(i=0; i < online.length; i++){
        Response.Write(online[i]+"<br>");
    }
    }
else{
    Response.Write("ingen online brugere");
    }
%>

<%@Language=JavaScript%>
<!--DB Login-->
<%
//login:
bnavn = Request.Form("brugernavn");
pass = Request.Form("password");
site = Request.ServerVariables("HTTP_REFERER");

conn = Server.CreateObject("ADODB.Connection");
DBPath = "DBQ=" + Server.mappath("ASP.mdb");
conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; " + DBPath);

rs = conn.execute("SELECT * FROM brugere WHERE brugernavn = '"+bnavn+"' AND password ='"+pass+"'");

if(!rs.EOF){
    Session("user") = rs.Fields("brugernavn").value;
    Session.Timeout = 20;
    Application("users_online") = Application("users_online")+Session("user")+",";
    Response.Redirect(site);
    conn.Close();
    }
else{
    conn.Close();
    Response.redirect("opret_bruger_form.asp");
    }   
%>

<%
//logoff:
site = Request.ServerVariables("HTTP_REFERER");
str = String(Application("users_online"));
user = Session("user")+","
str = str.replace(/user/ig,"");
Application("users_online") = str;
Session.Abandon();
Response.Redirect(site);
%>

<%
//udskriv:
online = String(Application("users_online"));
online = online.split(",");
count = parseInt(online.length);
Response.Write("Users online: "+count);
if(count > 0){
    for(i=0; i < count; i++){
    Response.Write(online[i]+"<br>");
    }
    }
%>

//////////////////////////////////////////////

<!--unden Login - defineres i global.asa-->
//global.asa
<script runat=Server Language=JavaScript>
function Application_OnStart{
    Application("users_online") == 0;
    }
   
function Application_OnEnd{
    Application("users_online") == 0;
    }
   
function Session_OnStart{
    Application.Lock();
    Application("users_online") += 1;
    Application.Unlock();
    }
   
function Session_OnEnd{
    Application.Lock();
    Application("users_online") -= 1;
    Application.Unlock();
    }
   
</script>

<%
//udskriv:
Response.Write("Users online: "+parseInt(Application("users_online"));
%>

<!--unden Login - defineres i global.asa og lægges i wwwroot-->
//global.asa
<script runat=Server Language=JavaScript>
function Application_OnStart(){
    Application("users_online") = parseInt(0);
    }
   
function Application_OnEnd(){
    Application("users_online") = parseInt(0);
    }
   
function Session_OnStart(){
    Application.Lock();
    Application("users_online")++;
    Application.Unlock();
    }
   
function Session_OnEnd(){
    Application.Lock();
    Application("users_online")--;
    Application.Unlock();
    }
</script>

<%
//udskriv.asp:
Response.Write("Users online: "+parseInt(Application("users_online"));
%>

Virker med global.asa :)
Point til dig