Faire des statistiques de site Web simple
Idées de conception: déclenchez le serveur SessionID pour enregistrer l'état de connexion de l'utilisateur lors de la demande de la page Web de l'utilisateur. Comme la plus grande activité de demande de chaque page Web est le fichier confon.asp, nous utilisons ce fichier pour effectuer le traitement d'informations des utilisateurs en ligne. L'utilisateur dure 20 minutes, l'utilisateur lorsqu'il n'y a pas de demande de page Web, supprimez cet utilisateur.
1. Tableau de données: nous ajoutons deux tables à la base de données
Table de ligne: SessionId Character Type 20 -BIT pour enregistrer la marque unique de la demande de page Web client
Type d'heure de date d'Userdate pour enregistrer l'heure de la dernière demande de page Web du client
ID Type de numéro automatique
Vous pouvez également enregistrer d'autres informations dans ce tableau, telles que les comptes, la propriété intellectuelle et d'autres informations
Tableau de décompte: le type d'heure à la date de l'usage est utilisé pour enregistrer la date du jour
Le type numérique du compte est utilisé pour enregistrer le volume de clic du site Web
Aujourd'hui, le type numérique est utilisé pour enregistrer le volume d'accès d'aujourd'hui
Le type numérique Max est utilisé pour enregistrer les visites maximales de la journée
Dans ce tableau, car il n'y a qu'un seul enregistrement, il n'est pas nécessaire d'utiliser le champ d'identification, mais conserver le champ ID est une bonne habitude
2. Utilisez Con.asp pour traiter la table de ligne
(1) Connectez la base de données
tabar
Dim Connstr
dob db
db = "date / date.mdb"
Définir Conn = Server.CreateObject ("Adodb.Connection")
Connstr = "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.Mappath ("" & DB & "")
Conn.Open Connstr
(2) Effacer les enregistrements de délai d'expiration
Conn.execute ("Supprimer de la ligne où DADAIFF (" "S", UserDate, Now ())> = 1200 ")
(3) Enregistrer les informations des clients dans la table de ligne et effectuer le traitement statistique du site
DIM SQL, SQL1, RS, RS1
Set rs = server.createObject ("adodb.oldset")
SQL = "SELECT * FROM LINE WHERE [SessionId] =" "" & Session.SessionId & "" "Déterminez si la demande de page Web initiale du client
Rs.OOPEN SQL, Conn, 1,3
Si ce n'est pas Rs.Eof, alors "S'il s'agit de la demande d'origine de la page Web, enregistrez les informations client, sinon elle ne changera que l'heure de la demande
Rs ("userdate") = maintenant ()
autre
Set rs1 = server.createObject ("adodb.oldset") "
SQL1 = "SELECT * FROM [COUNT]"
RS1.Open SQL1, Conn, 1,3
Si Rs.Eof alors "S'il n'y a pas d'enregistrement dans le tableau, initialisez ce tableau
Rs.Addnew
Rs ("count") = 1
rs ("max") = 1
Rs ("aujourd'hui") = 1
Rs ("userdate") = date ()
autre
RS1 ("Count") = RS1 ("Count") 1 "Cliquez sur Count Count Count Count Count
Si rs1 ("userdate") = date () alors "Si la date du système est la même que la dernière date de l'enregistrement de données, ajoutez 1 visites 1
Rs1 ("aujourd'hui") = RS1 ("aujourd'hui") 1
Si autre 'différent, définissez le volume d'accès quotidien 1 et modifiez la date d'enregistrement des données à la date du serveur
Rs1 ("aujourd'hui") = 1
Rs1 ("userdate") = date ()
terminer si
Rs1.Update
Si RS1 ("Max") <= RS1 ("aujourd'hui"), alors si les statistiques du jour dépassaient les visites quotidiennes maximales, mettez à jour les visites quotidiennes maximales
Rs1 ("max") = RS1 ("aujourd'hui")
terminer si
terminer si
Rs1.Update
Rs1.close
définir RS1 = rien
Rs.AddNew "Ce qui suit est les informations de l'utilisateur
RS ("SessionId") = Session.SessionId "Pour écrire SessionId dans le tableau de données
RS ("UserDate") = maintenant () Écrivez la date du système dans le tableau de données
terminer si
Rs.Update
Rs.Close
Définir RS = rien
Le traitement ci-dessus est juste prêt pour les statistiques.
<! - # Inclure file = "Conn.asp" ->
<% Dim Count, aujourd'hui, max, ligne
Set rs = server.createObject ("adodb.oldset")
sql = "select * from [count]" "
Rs.OOPEN SQL, Conn, 1,1
Aujourd'hui = Rs ("aujourd'hui")
Count = Rs ("Count")
max = rs ("max")
Rs.Close
Définir RS = rien
Set rs = server.createObject ("adodb.oldset")
SQL = "SELECT COUNT (*) FROM LINE"
Rs.OOPEN SQL, Conn, 1,1
Ligne = Rs (0)
Rs.Close
Définir RS = rien
%>
Nous avons préparé les statistiques du site Web ci-dessus et les avons placées dans le nombre de variables, aujourd'hui, max, dans la page Web .asp, nous pouvons utiliser Response.Write pour sortir et utiliser pour citer, mais dans la documentation HTML, il doit être Non, nous devons donc utiliser les phrases suivantes pour sortir du contenu statistique:
Document.Write ("Visites du site Web: <% = Count%> Les gens <br>")
Document.Write ("Aujourd'hui: <% = aujourd'hui%> Les gens ont visité ce site <br>")
Document.Write ("Les visites quotidiennes les plus élevées de ce site: <% = max%> des personnes <br>")
Document.Write ("Current en ligne: <% = line%> personnes")
Nous utilisons <script src = "line.asp"> </ script> pour citer ce fichier