Un exemple de statistiques qui peuvent numéroter les visiteurs, enregistrer des visites, IP et temps
J'ai fait un site Web, www.zydn.net, bien sûr, comme tout le monde, j'en ai également mis un comptoir. J'ai vu les comptoirs constamment retournés tous les jours, et j'étais très heureux, mais plus tard, je pensais, qui regardait mon site Web? Un nouvel ami ou un vieil ami? Je ne sais pas combien de fois ils sont venus, mais je veux toujours les numéroter tous, donc j'ai postulé pour des statistiques gratuites, mais je n'étais pas satisfait des n changements consécutifs. Hélas, il semble que ce n'est qu'en le faisant vous-même que vous pouvez avoir suffisamment de nourriture et de vêtements, et le faire comme vous le dites. Le niveau est puant. J'espère que les Masters en rireont et ne demanderont pas de conseils.
Je prends la bibliothèque d'accès à titre d'exemple. En fait, en utilisant la bibliothèque SQLServer, vous pouvez simplement modifier les instructions de la bibliothèque de liens.
La structure de la bibliothèque est la suivante
Nom du fichier de bibliothèque: Cont.asp était à l'origine cont.mdb, mais après la version, l'extension a été changée en ASP pour empêcher le téléchargement de la bibliothèque.
Nom de la table: onglet
Nom de champ Données DESCRIPTION DES DONNÉES
L'identifiant numérote automatiquement le numéro du visiteur
Le texte IP est utilisé pour enregistrer l'IP du visiteur
DAT1 La date est utilisée pour enregistrer le dernier visiteur visiteur
L'heure de date de données est utilisée pour enregistrer l'heure à laquelle le visiteur visite la première fois
Numéro CS, le type entier est utilisé pour enregistrer le nombre de visites au visiteur
Le programme est très simple, il n'y a que deux fichiers, Dispstont.asp est utilisé pour afficher les résultats statistiques, Contpage.asp est utilisé pour afficher les informations statistiques,
Jetons d'abord un coup d'œil aux statistiques de Contpage.asp, et le code est le suivant:
<%
SetConn = server.createObject ("adodb.connection")
Connstr = "dbq =" + server.mappath ("cont.asp") + "; defaultdir =; driver = {Microsoft AccessDriver (*. MDB)};"
Conn.OpenConCtr '***** L'instruction ci-dessus est utilisée pour se connecter à la bibliothèque, et cont.asp est le nom de fichier de la bibliothèque.
Keren = request.cookies ("Keren") 'Lire les cookies, le nom des cookies est: "Keren", haha. . La littérature e d'un Yu est si mauvaise qu'il sait seulement utiliser Pinyin.
ifkeren = "" alors "JUDURE SI COICIES EST VIDE. S'ils sont vides, ils doivent être de nouveaux amis, sinon ils sont de vieux amis.
sql = "select * fromTabwhereId = -1"
setrs = server.createObject ("adodb.recordSet")
Rs.OpenSQL, Conn, 1,3
Rs.AddNew'If Il s'agit d'un nouveau visiteur, ajoutez un nouvel enregistrement dans la bibliothèque.
RS ("CS") = 1 'Remarque Le nombre de visites est 1
rs ("ip") = request.servervariables ("reote_addr") 'Remarque l'IP,
rs ("dat") = maintenant moi la date et l'heure actuelles,
rs ("dat1") = date'tell la date actuelle et la date à utiliser pour la première visite à l'avenir.
réponse.cookies ("keren") = rs ("id") 'Écrivez un cookie et le contenu est le même que l'ID.