Erstellen wir zunächst eine neue ACCESS-Datenbank
Der Inhalt ist
Tabellenname: zai
Die Felder sind
1.ip
2. Mal
Erstellen Sie eine Datei als index.asp
Befolgen Sie dann die nachstehende Vorgehensweise!
<%
'============================================== = ============================================== =
'
'*********************** Bingling Online-Personenzählprogramm V2.0 ***************** *** **********
'
„Das Programm dieser Website wurde unabhängig von „Bingling Studio“ – Ice Cream Swordsman produziert! Bitte respektieren Sie die Früchte Ihrer Arbeit
'
' „Bingling Studio“─━╃→Schaffen Sie Persönlichkeit mit Stärke
'
'* Autor: Ice Cream Swordsman
'* Website: http://www.blbcn.com
'* E-Mail: [email protected]
'* QQ:68156987
'* Adresse: Wuxi, Jiangsu
'************************************************** * ******************************
'
„Urheberrecht: Plagiate und Veruntreuungen werden untersucht.“
'
'============================================== = ============================================== =
'---------Variablen definieren
dimrs
dimip
Dimm-Timeout
dimmen x
schwacher Anschluss
dimdbpath
'---------Ende der Variablendefinition
'---------Vorgeschlagener Datenbanklink
set conn=server.createobject(adodb.connection)
DBPath = Server.MapPath(zai.mdb)
conn.Open Driver={Microsoft Access Driver (*.mdb)};dbq= & DBPath
'---------Herstellung der Datenbankverbindung abgeschlossen
'---------Erstellen Sie ein neues Datenbank-RS-Objekt
set rs = server.createobject(adodb.recordset)
'---------Erstellung des Datenbank-RS-Objekts abgeschlossen
'---------Liest die Client-IP-Adresse
ip = Request.ServerVariables(HTTP_X_FORWARDED_FOR) 'Wenn die andere Partei einen Proxyserver verwendet, um auf das Internet zuzugreifen, verwenden Sie Request.ServerVariables(HTTP_X_FORWARDED_FOR), um die echte IP der anderen Partei abzurufen, wenn die andere Partei nicht über einen Proxyserver auf das Internet zugreift , der IP-Wert ist leer.
If ip = Then ip = Request.ServerVariables(REMOTE_ADDR) 'Wenn der Wert von IP leer ist, erhalten Sie seine lokale Client-Adresse
'---------IP-Lesung abgeschlossen
'---------Lesen Sie die Anzahl der neuen Inhalte, die in den letzten 20 Minuten zur Datenbank hinzugefügt wurden, gruppieren Sie nach IP-Tabelle. Die IP-Werte sind gleich 1
sql=ip von zai auswählen, wobei time >= dateadd('n',-20,now()) nach IP gruppieren
rs.Open sql,conn,1,1
zai=rs.RecordCount
rs.Schließen
'---------Ermitteln Sie die Anzahl der Personen online
'---------Überprüfen Sie, ob bereits der gleiche Wert in der Datenbank vorhanden ist, wenn nicht, x=ja, wenn nicht, x=nein
sql=select ip from zai where ip=' & ip & '
rs.Open sql,conn,1,1
wenn rs.eof und rs.bof dann
x=ja
anders
x=nein
Ende wenn
rs.close
'--------Urteil abgeschlossen
'--------Wenn es keinen gleichen Wert in der Datenbank gibt, fügen Sie einen neuen Wert hinzu
if x=yes then' Wenn es keine solche IP gibt, fügen Sie einen Eintrag hinzu
sql=select top 1 * von zai
rs.Open sql,conn,1,3
rs.AddNew
rs(ip)=ip
rs(time)=now()
rs.update
rs.close
else 'Wenn es diese IP gibt, ändern Sie die Zeit auf die aktuelle Zeit
sql=select * from zai where ip=' & ip & '
rs.Open sql,conn,1,3
rs(time)=now()
rs.update
rs.close
Ende wenn
'--------Beurteilen Sie, dass der Beitritt abgeschlossen ist
'--------Löschen Sie den vor 20 Minuten hinzugefügten Wert
timeout = dateadd(n, -20, now())
sql=delete * from zai where time < # & timeout & #
conn.SQL ausführen
'--------Löschvorgang abgeschlossen
'--------Schließen Sie das Datenobjekt
setze rs=nichts
conn.Schließen
setze conn=nichts
%>
document.write(Gesamtanzahl <%=zai%> Personen online)
OK!
Erledigt!