Page d'accueil>Tutoriel de programmation réseau>Tutoriel ASP

Exemple simple de production de statistiques ASP

Auteur：Eve Cole Date de mise à jour：2025-02-19 06:12:01

Un exemple de production statistique permettant de compter les visiteurs et d'enregistrer le nombre de visites, l'IP et le temps. Les amis qui en ont besoin peuvent s'y référer.

J'ai créé un site Web et, bien sûr, comme tout le monde, j'y ai également mis un compteur. J'ai continué à lire le compteur tous les jours, ce qui m'a fait très plaisir. Mais ensuite, j'ai pensé : qui a vu mon site Web ? amis ou vieux amis ? Je ne sais pas combien de fois ils sont venus, mais je voulais quand même tous les numéroter, alors j'ai demandé des statistiques gratuites, mais je n'étais toujours pas satisfait après avoir changé N numéros d'affilée. Hélas, il semble que ce soit le seul moyen. avoir suffisamment de nourriture et de vêtements, c'est le faire moi-même, j'espère toujours que les experts en riront et ne demanderont pas de conseils.

J'ai pris la bibliothèque ACCESS comme exemple. En fait, pour utiliser la bibliothèque SQL SERVER, il suffit de modifier l'instruction de la bibliothèque de liens.

La structure de la bibliothèque est la suivante

Nom du fichier de bibliothèque : CONT.ASP Il s'agissait à l'origine de CONT.MDB, mais après sa construction, l'extension a été modifiée en ASP pour empêcher le téléchargement de la bibliothèque.

Nom de la table : onglet

Description du type de données du nom du champ

ID Numéroter automatiquement le numéro du visiteur

Le texte IP est utilisé pour enregistrer l’adresse IP du visiteur

La date et l'heure dat1 sont utilisées pour enregistrer la dernière fois que le visiteur a visité

la date et l'heure sont utilisées pour enregistrer l'heure de la première visite du visiteur

Numéro CS, entier utilisé pour enregistrer le nombre de visites des visiteurs

Le programme est très simple, avec seulement deux fichiers, dispcont.asp est utilisé pour afficher les résultats statistiques et contpage.asp est utilisé pour les informations statistiques.

Regardons d'abord les statistiques de CONTPAGE.ASP. Le code est le suivant :

  1. <%SetConn=Serveur.CreateObject(ADODB.Connection)
  2. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  3. Conn.Openconnstr'***** L'instruction ci-dessus est utilisée pour se connecter à la bibliothèque et cont.asp est le nom du fichier de bibliothèque.
  5. keren=request.cookies(keren)'Lisez les cookies, le nom des cookies est : keren, haha. . Le E d'Ah Yu est un mauvais mot littéraire, et il ne sait utiliser que le pinyin.
  6. ifkeren=then' détermine si les cuisiniers sont vides. S'il est vide, alors ce doit être un nouvel ami, sinon c'est un vieil ami.
  8. sql=SELECT*FROMtabwhereid=-1
  9. setrs=server.createobject(ADODB.Recordset)
  10. rs.Opensql,conn,1,3
  11. rs.addnew'S'il s'agit d'un nouveau visiteur, ajoutez un nouvel enregistrement dans la bibliothèque.
  12. rs(cs)=1'enregistre le nombre de visites comme 1
  13. rs(ip)=request.servervariables(remote_addr)' notez l'adresse IP,
  14. rs(dat)=now'Mémorisez la date et l'heure actuelles,
  15. rs(dat1)=date'Mémorisez la date actuelle et utilisez-la comme date de la première visite dans le futur.
  16. réponse.cookies(keren)=rs(id)'Écrivez un cookie, le contenu est le même que l'ID.
  17. réponse.cookies(keren).expires=date+365'Définissez la date de validité des cookies à partir de maintenant, 365 jours,
  1. sinon'Ce qui précède est comment gérer les nouveaux amis. Que devrions-nous faire avec de vieux amis ? Regardez ci-dessous :
  2. sql=SELECT*FROMtabwhereid=&keren'Allez à la bibliothèque pour trouver le dossier de notre vieil ami
  3. setrs=server.createobject(ADODB.Recordset)
  4. rs.Opensql,conn,1,3
  5. rs(cs)=rs(cs)+1'OK, j'ai trouvé, ajoutez 1 au nombre de visites
  6. rs(ip)=request.servervariables(remote_addr)'Voyez quelle est son adresse IP et notez-la.
  7. rs(dat)=now'Mémorisez l'heure actuelle, qui est l'heure de la dernière visite,
  8. réponse.cookies(keren)=rs(id)' puis écrivez des cookies. Je ne sais pas si cette phrase est redondante, je ne l'ai pas essayée.
  9. réponse.cookies(keren).expires=date+365'Définissez le délai d'expiration du cookie afin que je ne le reconnaisse pas après un an.
  1. fin
  3. rs.update' J'ai noté tout ce qui devait être écrit, mettons à jour la bibliothèque.
  4. rs.close'Ferme l'objet recordset.
  5. setconn=nothing' libère conn. Je pense toujours que la connexion doit être ouverte et fermée à tout moment. Je pense qu'il n'est pas souhaitable de la mettre en SESSION. 4%〉

D'accord, l'enregistrement est terminé. Il contient plus de vingt lignes de code et c'est un petit programme très simple.

Une fois le programme écrit, comment le mettre sur la page ? C'est très simple. Il suffit de trouver un endroit sur la page d'accueil et d'ajouter cette ligne de code : <img src=contpage.asp width=0 height=0>.

La prochaine étape est de montrer les records. Il y a beaucoup de gens qui peuvent faire mieux qu'Ayu, mais je veux quand même montrer ma laideur.

Nom du fichier : dispcont.asp, veuillez consulter le code :

  1. <%
  2. SetConn=Serveur.CreateObject(ADODB.Connection)
  3. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  4. Conn.Openconnstr'***** L'instruction ci-dessus est utilisée pour se connecter à la bibliothèque et cont.asp est le nom du fichier de bibliothèque.
  6. page3=demande(pag)
  7. ifpage3=thenpage3=session(contpag)'Nombre de pages, page actuelle
  8. sipage3=puispage3=1
  10. pa=demande(pa)
  11. ifpa=thenpa=session(contpa)'Nombre d'affichages par page
  12. ifpa=thenpa=15' affiche 15 éléments par page par défaut, qui peuvent être modifiés arbitrairement
  13. session(contpag)=page3
  14. session(suite)=pa
  15. pages=pa'Afficher le numéro par page******************Le programme ci-dessus est utilisé pour implémenter la fonction de pagination
  17. SQL=SELECT*FROMtaborderby-dat,-id
  18. s'assombrit
  19. Setrs=Serveur.CreateObject(ADODB.RecordSet)
  20. rs.Opensql,conn,1,1
  21. CSI=0
  22. cs1=0
  23. cs100=0
  24. csdat1=0
  25. dowhilenotrs.eof
  26. csi=csi+rs(cs)
  27. ifrs(cs)=1thencs1=cs1+1
  28. ifrs(cs)〉=100thencs100+1
  29. ifdatevalue(rs(dat))=datethen
  30. csdat1=csdat1+1
  31. fin
  32. rs.movenext
  33. boucle
  34. ZS=RS.RECORDCOUNT
  35. '************************************************ * ***8Le programme suivant est utilisé pour l'affichage de la pagination
  36. %〉
  38. <tête>
  39. 〈titre〉Excellentes statistiques informatiques〈/titre〉
  40. </tête>
  41. 〈bodystyle=font-size:9ptbgcolor=#D8EDF8〉
  42. Il y a 〈%Response.Writezs%〉 enregistrements au total. La page actuelle est 〈%Response.Writepage3%〉 Chaque page affiche : [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=15〉15. ], [<ahref=dispcont. asp?pag=〈%=page3%〉&pa=20〉20] éléments, [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=30〉30] éléments, [〈ahref=dispcont.asp? pag=〈%=page3%〉&pa=40〉40]
  43. [〈ahref=dispcont.asp〉Actualiser]
  44. 〈divalign=gauche〉
  45. 〈tableborder=0cellpadding=0style=font-size:9pt〉
  46. 〈tr〉〈td〉Numéro de page〈/td〉〈%page2=1
  47. fori=1tozssteppages
  48. si page3 = cstr (page2) alors
  49. %〉〈td〉[〈%Response.Writepage2%〉]〈/td〉
  50. <%autre%>
  51. 〈td〉〈ahref=dispcont.asp?pag=〈%Response.Writepage2%〉〉[〈%Response.Writepage2%〉]〈/td〉
  52. <%endif
  53. page2=page2+1
  54. suivant
  55. sn=pages*(page3-1)'Numéro d'enregistrement actuel=numéro affiché par page*nombre de pages-nombre affiché par page
  56. ifsn〉zsthensn=0
  57. rs.movesn,1
  58. '************************************Le paragraphe ci-dessus est utilisé pour la pagination
  59. %〉〈/tr〉〈/table〉
  60. 〈/div〉〈tablestyle=font-size:9ptwidth=100%bordercolorlight=#000000border=1bordercolordark=#FFFFFFbgcolor=#A4D1E8cellspacing=0cellpadding=3〉
  61. 〈tr〉〈td〉Numéro〈/td〉〈td〉Dernière page d'accueil visitée〈/td〉〈td〉Dernière adresse IP visitée〈/td〉〈td〉Nombre de pages d'accueil〈/td〉〈td〉Date de première visite〈/td 〉 〈/tr〉〈%
  62. fori=1topages
  63. Réponse.Write〈/tr〉
  64. Réponse.Write〈td〉&rs(ID)&〈/td〉
  65. Réponse.Write〈td〉&rs(dat)&〈/td〉
  66. Réponse.Write〈td〉&rs(IP)&〈/td〉
  67. Réponse.Write〈td〉&rs(CS)&〈/td〉
  69. Réponse.Write〈td〉&rs(DAT1)&〈/td〉
  70. Réponse.Write〈/tr〉
  71. rs.movenext
  72. ifrs.eofthenexitfor
  73. suivant
  74. rs.fermer
  75. %〉
  76. 〈tr〉〈td〉Total〈%=zs%〉〈/td〉〈td〉Il y a ceux qui ont visité plus de 100 fois〈%=cs100%〉〈/td〉〈td〉Il y a ceux qui ont visité 1 : 〈%=cs1%〉〈/td〉〈td〉Nombre total de visites 〈%=csi%〉〈/td〉〈td〉Visites du jour : 〈%=csdat1%〉〈/td〉〈/tr〉
  77. </tableau>

Ce qui précède est un affichage de radiomessagerie complet qui peut être copié et utilisé (remarque : la situation où il n'y a pas d'enregistrement n'est pas prise en compte, comme le dit le proverbe, ce n'est qu'en le faisant vous-même que vous pourrez avoir suffisamment de nourriture et de vêtements, alors dépêchez-vous et). essayez-le!

Articles connexes