Créons d’abord une nouvelle base de données ACCESS
Le contenu est
Nom de la table : zai
Les champs sont
1.ip
2.heure
Créez un fichier sous le nom index.asp
Suivez ensuite la procédure ci-dessous !
<%
'================================================== = ================================================== =
'
'********************** Programme de comptage de personnes en ligne Bingling V2.0 ***************** *** **********
'
« Le programme de ce site Web est produit indépendamment par « Bingling Studio » - Ice Cream Swordsman ! Merci de respecter les fruits de votre travail
'
' "Bingling Studio"─━╃→Créez une personnalité avec force
'
'* Auteur : Épéiste de la crème glacée
'* Site Internet : http://www.blbcn.com
'* E-mail : [email protected]
'*QQ:68156987
'* Adresse : Wuxi, Jiangsu
'************************************************ * *****************************
'
'Droits d'auteur·Le plagiat et le détournement feront l'objet d'une enquête
'
'================================================== = ================================================== =
'-------------Définir les variables
s'assombrit
diminuer
délai d'attente
atténuer x
faible connexion
chemin dimdb
'--------------Fin de la définition des variables
'---------Lien de base de données suggéré
définir conn=server.createobject(adodb.connection)
DBPath = Server.MapPath(zai.mdb)
conn.Open driver={Pilote Microsoft Access (*.mdb)};dbq= & DBPath
'---------Établissement du lien avec la base de données terminé
'---------Créer un nouvel objet RS de base de données
définir rs = serveur.createobject (adodb.recordset)
'---------Création de l'objet RS de la base de données terminée
'-------------Lire l'adresse IP du client
ip = Request.ServerVariables(HTTP_X_FORWARDED_FOR) 'Si l'autre partie utilise un serveur proxy pour accéder à Internet, utilisez Request.ServerVariables(HTTP_X_FORWARDED_FOR) pour obtenir la véritable adresse IP de l'autre partie si l'autre partie n'accède pas à Internet via un serveur proxy. , la valeur IP est vide.
If ip = Then ip = Request.ServerVariables(REMOTE_ADDR) 'Si la valeur IP est vide, obtenez son adresse client locale
'-------------Lecture IP terminée
'-------------Lisez le nombre de nouveaux contenus ajoutés dans la base de données au cours des 20 dernières minutes, les valeurs IP groupées par ip-table sont les mêmes que 1
sql=sélectionner l'adresse IP de zai où heure >= dateadd('n',-20,now()) regrouper par IP
rs.Open sql, conn, 1,1
zai=rs.RecordCount
rs.Fermer
'-------------Obtenez le nombre de personnes en ligne
'---------Vérifiez s'il y a déjà la même valeur dans la base de données, sinon, x=oui, sinon, x=non
sql=sélectionner l'adresse IP depuis zai où ip=' & ip & '
rs.Open sql, conn, 1,1
si rs.eof et rs.bof alors
x=oui
autre
x=non
finir si
rs.fermer
'--------Jugement terminé
'--------S'il n'y a pas la même valeur dans la base de données, ajoutez une nouvelle valeur
if x=yes then' S'il n'existe pas une telle adresse IP, ajoutez un enregistrement
sql=sélectionner le top 1 * de zai
rs.Open sql, conn, 1,3
rs.AddNew
rs(ip)=ip
rs(heure)=maintenant()
rs.mise à jour
rs.fermer
else 'S'il y a cette IP, changez l'heure à l'heure actuelle
sql=select * from zai où ip=' & ip & '
rs.Open sql, conn, 1,3
rs(heure)=maintenant()
rs.mise à jour
rs.fermer
finir si
'--------Juge que l'adhésion est terminée
'--------Supprimer la valeur ajoutée il y a 20 minutes
délai d'attente = dateadd(n, -20, maintenant())
sql=supprimer * de zai où heure < # & timeout & #
conn.Exécuter SQL
'--------Suppression terminée
'--------Fermez l'objet de données
définir rs = rien
conn.Fermer
définir conn = rien
%>
document.write (Total <%=zai%> personnes en ligne)
D'ACCORD!
Fait!