Informations statistiques ASP/méthodes de visites quotidiennes, hebdomadaires, mensuelles et totales, les amis dans le besoin peuvent s'y référer.
Copiez le code comme suit :
<%
'//type de date hittime : obtenir l'heure du dernier accès
'//type numérique d'accès : obtenir le nombre total de pages vues
'//type numérique hitsday : obtenez le nombre de vues aujourd'hui
'//type numérique hitsweeks : obtenez le nombre de vues cette semaine
'//type numérique hitmonths : obtenez le nombre de vues ce mois-ci
'Ajoutez ces 5 champs à la base de données.
set rs1=server.CreateObject("adodb.recordset")
rs1.open "select * from qwbmnewssss où id=26",conn,1,3
si rs1.eof et rs1.bof alors
réponse.écrire "erry"
autre
hittime = rs1("hittime") 'Obtenir l'heure du dernier accès
jour sombreMaintenant,moisMaintenant,semainemaintenant
dayNow = day(date()) 'Quel jour sommes-nous maintenant ?
MonthNow = Month(date()) 'Quel mois sommes-nous maintenant ?
weekNow = weekday(date()) 'Le jour actuel de la semaine 0 est dimanche
rs1("hits") = rs1("hits") + 1 'Nombre total de vues + 1
if datediff("d",hittime,now()) = 0 then 'Comparez la date du dernier accès avec l'heure et le nombre de jours actuels
rs1("hitsday") = rs1("hitsday") + 1 'Vues du jour + 1
autre
rs1("hitsday") = 1 'Vues du jour = 1
finir si
si moisMaintenant = mois(hittime) alors
rs1("hitmonths") = rs1("hitmonths") + 1 'Vues ce mois-ci + 1
autre
rs1("hitmonths") = 1 'Vues ce mois-ci + 1
finir si
if datediff("d",hittime,now()) > 6 then 'Il y a un problème lors du traitement de la période de la semaine. Si l'heure précédente est vendredi et que le prochain accès est le mardi de la semaine suivante, les enregistrements seront toujours. se superposer.
rs1("semaines de succès") = 1
autre
si semaineMaintenant <> 1 alors
rs1("semaines de succès") = rs1("semaines de succès") + 1
autre
weekNowss = weekday(hittime) 'Le jour de la dernière visite
si semaineMaintenant = semaineMaintenant alors
rs1("semaines de succès") = rs1("semaines de succès") + 1
autre
rs1("semaines de visites") = 1
finir si
finir si
finir si
rs1("hittime") = now() 'Mettre à jour la question de la dernière visite
rs1.mise à jour
%>
Comparaison temporelle : <%=datediff("d",hittime,now())%><br />
Heure actuelle : <%=now()%><br />
Heure du dernier clic : <%=hittime%><br />
Jour actuel : <%=dayNow%><br />
Mois en cours : <%=monthNow%><br />
Semaine en cours : <%=weekNow%><br />
Vues totales :<%=rs1("hits")%><br />
Visites du jour : <%=rs1("hitsday")%><br />
Visites hebdomadaires : <%=rs1("hitsweeks")%><br />
Nombre de visites ce mois-ci : <%=rs1("hitmonths")%><br />
<%
finir si
rs1.fermer
définir rs1 = rien
%>