ASP erstellt Zugriffsstatistikcode, Beispiel 1. Erstellen Sie eine Datenbanktabelle
Der Tabellenname ist online
Legen Sie die folgenden Felder fest
id 'session.sessionid wird zum Aufzeichnen jedes Zugriffs verwendet
name 'Wenn es sich um einen Besucher handelt, wird er als Besucher erfasst.
online 'Wenn es ein Besucher ist, ist es 0, wenn es ein Mitglied ist, ist es 1
datetime 'Letzte Aktivitätszeit
Benutzername 'Login-Benutzername des Mitglieds, Gast ist leer.
ip 'Zeichnen Sie die Login-IP des Besuchs auf
head.asp 'Schreiben Sie die Anzahl der Personen, die online sind, in die Datenbanktabelle. Diese Seite muss in jeder zum Durchsuchen verwendeten ASP-Seite enthalten sein.
<%
set rs=Server.CreateObject(ADODB.Recordset)
if session(username)= stellt dann fest, dass der Benutzer nicht angemeldet ist
sql=select * from online where id='&session.sessionid&' 'Bestimmen Sie, ob diese Sitzungs-ID in der Datenbanktabelle vorhanden ist.
rs.Open sql,Conn,1,3
wenn rs.eof dann 'Erster Besuch des Besuchers.'
rs.addnew
rs(id)=session.sessionID
rs(name)=Besucher
rs(online)=0 '0 bedeutet, dass der Benutzer nicht angemeldet ist und ein Besucher ist.
rs(datetime)=now()
userip = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
Wenn userip = Dann
userip= Request.ServerVariables(REMOTE_ADDR)
Ende wenn
rs(ip)=userip
sonst „Besucher surft nicht zum ersten Mal.“
rs(datetime)=now() 'Aktivitätszeit aktualisieren
rs.update
rs.close
Ende wenn
anders
sql=select * from online where id=' & session.sessionID & ' or admin='&session(username)&' 'Bestimmen Sie, ob der Sitzungs-ID- oder Benutzernamen-Datensatz bereits in der Datentabelle vorhanden ist.
rs.Open sql,Conn,1,3
wenn rs.eof dann
rs.addnew 'Das Mitglied betritt die Website zum ersten Mal (kann sich direkt von der Website-Homepage aus anmelden, um das Forum zu betreten).
rs(id)=session.sessionID
rs(name)=session(show) 'Benutzer-Spitznamen schreiben
rs(username)=session(username) 'Login-Benutzernamen schreiben
rs(online)=1 'Zeigt an, dass der Benutzer angemeldet ist und Mitglied ist
rs(datetime)=now() 'Setzt die aktuelle Systemzeit auf die Anmeldezeit des Benutzers
userip = Request.ServerVariables(HTTP_X_FORWARDED_FOR)
Wenn userip = Dann
userip= Request.ServerVariables(REMOTE_ADDR)
Ende wenn
rs(ip)=userip
else //Dies ist nicht das erste Mal, dass das Mitglied die Website durchsucht und sich der Besucher auf der Website anmeldet.
rs(name)=session(show) aktualisiert den Benutzernamen
rs(Benutzername)=Sitzung(Benutzername)
rs(online)=1 'Zeigt an, dass der Benutzer angemeldet ist und Mitglied ist
rs(datetime)=now()
Ende wenn
rs.update
rs.close
Ende wenn
setze rs=nichts
%>
conn.execute(delete from online wherethirdiff('s',datetime,now())>60) 'Besucher löschen, die 60 Sekunden lang inaktiv waren. Die Zeit kann selbst angepasst werden.