Startseite>Tutorial zur Netzwerkprogrammierung>ASP-Tutorial

Einfaches Beispiel für die Erstellung von ASP-Statistiken

Autor：Eve Cole Aktualisierungszeit：2025-02-19 06:12:01

Ein Beispiel für eine statistische Produktion, die Besucher zählen und die Anzahl der Besuche, IP und Zeit aufzeichnen kann. Freunde, die es benötigen, können darauf verweisen.

Ich habe eine Website erstellt und natürlich habe ich, wie alle anderen auch, jeden Tag einen Zähler darauf angebracht, was mich sehr gefreut hat. Aber dann dachte ich, wer zum Teufel hat meine Website gesehen? Freunde oder alte Freunde? Ich weiß nicht, wie oft sie gekommen sind, aber ich wollte sie trotzdem alle nummerieren, also habe ich kostenlose Statistiken beantragt, war aber immer noch nicht zufrieden, nachdem ich N Nummern hintereinander geändert hatte. Leider scheint das der einzige Weg zu sein Um genügend Essen und Kleidung zu haben, muss ich es einfach selbst tun. Ich hoffe immer noch, dass die Experten darüber lachen und nicht um Rat fragen.

Ich habe die ACCESS -Bibliothek als Beispiel genommen. Um die SQL SERVER-Bibliothek zu verwenden, müssen Sie lediglich die Anweisung der Link-Bibliothek ändern.

Die Bibliotheksstruktur ist wie folgt

Name der Bibliotheksdatei: CONT.ASP Ursprünglich hieß sie CONT.MDB, aber nach der Erstellung wurde die Erweiterung in ASP geändert, um zu verhindern, dass die Bibliothek heruntergeladen wird.

Tabellenname: tab

Beschreibung des Feldnamen-Datentyps

ID Automatische Nummerierung der Besuchernummer

IP-Text wird verwendet, um die IP des Besuchers aufzuzeichnen

Datum und Uhrzeit von dat1 werden verwendet, um den letzten Besuch des Besuchers aufzuzeichnen

Mit Datum und Uhrzeit wird der Zeitpunkt des ersten Besuchs des Besuchers erfasst

CS-Nummer, Ganzzahl, die zum Erfassen der Anzahl der Besucherbesuche verwendet wird

Das Programm ist sehr einfach, mit nur zwei Dateien: dispcont.asp wird zum Anzeigen statistischer Ergebnisse und contpage.asp für statistische Informationen verwendet.

Schauen wir uns zunächst die Statistiken von CONTPAGE.ASP an. Der Code lautet wie folgt:

  1. <%SetConn=Server.CreateObject(ADODB.Connection)
  2. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  3. Conn.Openconnstr'***** Die obige Anweisung wird verwendet, um eine Verbindung zur Bibliothek herzustellen, und cont.asp ist der Name der Bibliotheksdatei.
  5. keren=request.cookies(keren)'Lies Cookies, der Name von Cookies ist: keren, haha. . Ah Yus E ist ein schlechtes literarisches Wort und er kann nur Pinyin verwenden.
  6. ifkeren=then' bestimmt, ob Cookes leer ist. Wenn es leer ist, muss es ein neuer Freund sein, andernfalls ist es ein alter Freund.
  8. sql=SELECT*FROMtabwhereid=-1
  9. setrs=server.createobject(ADODB.Recordset)
  10. rs.Opensql,conn,1,3
  11. rs.addnew'Wenn es sich um einen neuen Besucher handelt, fügen Sie der Bibliothek einen neuen Datensatz hinzu.
  12. rs(cs)=1'zeichnet die Anzahl der Besuche als 1 auf
  13. rs(ip)=request.servervariables(remote_addr)' Notieren Sie sich die IP,
  14. rs(dat)=now'Merken Sie sich das aktuelle Datum und die aktuelle Uhrzeit,
  15. rs(dat1)=date'Merken Sie sich das aktuelle Datum und verwenden Sie es als Datum des ersten Besuchs in der Zukunft.
  16. Response.cookies(keren)=rs(id)'Schreiben Sie ein Cookie, der Inhalt ist derselbe wie die ID.
  17. Response.cookies(keren).expires=date+365'Legen Sie das Gültigkeitsdatum von Cookies ab jetzt, 365 Tage, fest.
  1. sonst'Das Obige ist, wie man mit neuen Freunden umgeht. Sehen Sie sich unten an:
  2. sql=SELECT*FROMtabwhereid=&keren'Gehen Sie in die Bibliothek, um die Aufzeichnung unseres alten Freundes zu finden
  3. setrs=server.createobject(ADODB.Recordset)
  4. rs.Opensql,conn,1,3
  5. rs(cs)=rs(cs)+1'Okay, ich habe es gefunden, addiere 1 zur Anzahl der Besuche
  6. rs(ip)=request.servervariables(remote_addr)'Sehen Sie sich seine IP an und notieren Sie sie.
  7. rs(dat)=now'Merken Sie sich die aktuelle Zeit, also die Zeit des letzten Besuchs,
  8. Response.cookies(keren)=rs(id)‘ und schreiben Sie dann Cookies hinein. Ich weiß nicht, ob dieser Satz überflüssig ist, ich habe es nicht ausprobiert.
  9. Response.cookies(keren).expires=date+365'Stellen Sie die Ablaufzeit des Cookies so ein, dass ich es nach einem Jahr nicht mehr wiedererkenne.
  1. endif
  3. rs.update‘ Ich habe alles aufgeschrieben, was aufgeschrieben werden sollte, lasst uns die Bibliothek aktualisieren.
  4. rs.close'Schließen Sie das Recordset-Objekt.
  5. setconn=nothing‘ gibt conn frei. Ich denke immer noch, dass die Verbindung jederzeit geöffnet und geschlossen werden sollte. 4%〉

Okay, die Aufzeichnung ist fertig. Sie enthält mehr als zwanzig Codezeilen und ist ein sehr einfaches kleines Programm.

Wie füge ich das Programm nach dem Schreiben auf der Seite hinzu? Suchen Sie einfach eine Stelle auf der Homepage und fügen Sie diese Codezeile hinzu: <img src=contpage.asp width=0 height=0>.

Der nächste Schritt besteht darin, die Rekorde zu zeigen. Es gibt viele Leute, die es besser können als Ayu, aber ich möchte trotzdem meine Hässlichkeit zur Schau stellen.

Dateiname: dispcont.asp, siehe Code:

  1. <%
  2. SetConn=Server.CreateObject(ADODB.Connection)
  3. Connstr=DBQ=+server.mappath(cont.asp)+;DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};
  4. Conn.Openconnstr'***** Die obige Anweisung wird verwendet, um eine Verbindung zur Bibliothek herzustellen, und cont.asp ist der Name der Bibliotheksdatei.
  6. page3=request(pag)
  7. ifpage3=thenpage3=session(contpag)'Anzahl der Seiten, aktuelle Seite
  8. ifpage3=thenpage3=1
  10. pa=Anfrage(pa)
  11. ifpa=thenpa=session(contpa)'Anzahl der Anzeigen pro Seite
  12. ifpa=thenpa=15' zeigt standardmäßig 15 Elemente pro Seite an, die beliebig geändert werden können
  13. session(contpag)=page3
  14. session(contpa)=pa
  15. seiten=pa'Anzahl pro Seite anzeigen******************Das obige Programm wird zur Implementierung der Paging-Funktion verwendet
  17. SQL=SELECT*FROMtaborderby-dat,-id
  18. dimrs
  19. Setrs=Server.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. endif
  32. rs.movenext
  33. Schleife
  34. ZS=RS.RECORDCOUNT
  35. '************************************************** * ***8Das folgende Programm wird für die Seitenanzeige verwendet
  36. %〉
  38. <Kopf>
  39. 〈Titel〉Ausgezeichnete Computerstatistik〈/Titel〉
  40. </Kopf>
  41. 〈bodystyle=font-size:9ptbgcolor=#D8EDF8〉
  42. Es gibt insgesamt 〈%Response.Writezs%〉-Datensätze. Die aktuelle Seite ist 〈%Response.Writepage3%〉. Auf jeder Seite wird Folgendes angezeigt: [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=15〉15 ], [<ahref=dispcont. asp?pag=〈%=page3%〉&pa=20〉20] Elemente, [〈ahref=dispcont.asp?pag=〈%=page3%〉&pa=30〉30] Elemente, [〈ahref=dispcont.asp? pag=〈%=page3%〉&pa=40〉40]
  43. [〈ahref=dispcont.asp〉Aktualisieren]
  44. 〈divalign=left〉
  45. 〈tableborder=0cellpadding=0style=font-size:9pt〉
  46. 〈tr〉〈td〉Seitenzahl〈/td〉〈%page2=1
  47. fori=1tozssteppages
  48. ifpage3=cstr(page2)then
  49. %〉〈td〉[〈%Response.Writepage2%〉]〈/td〉
  50. <%anders%>
  51. 〈td〉〈ahref=dispcont.asp?pag=〈%Response.Writepage2%〉〉[〈%Response.Writepage2%〉]〈/td〉
  52. <%endif
  53. Seite2=Seite2+1
  54. nächste
  55. sn=pages*(page3-1)'Aktuelle Datensatznummer=Anzahl, die pro Seite angezeigt wird*Anzahl der Seiten – Anzahl, die pro Seite angezeigt wird
  56. ifsn〉zsthensn=0
  57. rs.movesn,1
  58. '***********************************Der obige Absatz wird für das Paging verwendet
  59. %〉〈/tr〉〈/table〉
  60. 〈/div〉〈tablestyle=font-size:9ptwidth=100%bordercolorlight=#000000border=1bordercolordark=#FFFFFFbgcolor=#A4D1E8cellspacing=0cellpadding=3〉
  61. 〈tr〉〈td〉Anzahl〈/td〉〈td〉Zuletzt besuchte Homepage〈/td〉〈td〉Zuletzt besuchte IP〈/td〉〈td〉Anzahl der Homepages〈/td〉〈td〉Datum des ersten Besuchs〈/td 〉 〈/tr〉〈 %
  62. fori=1topages
  63. Response.Write〈/tr〉
  64. Response.Write〈td〉&rs(ID)&〈/td〉
  65. Response.Write〈td〉&rs(dat)&〈/td〉
  66. Response.Write〈td〉&rs(IP)&〈/td〉
  67. Response.Write〈td〉&rs(CS)&〈/td〉
  69. Response.Write〈td〉&rs(DAT1)&〈/td〉
  70. Response.Write〈/tr〉
  71. rs.movenext
  72. ifrs.eofthenexitfor
  73. nächste
  74. rs.close
  75. %〉
  76. 〈tr〉〈td〉Total〈%=zs%〉〈/td〉〈td〉Es gibt diejenigen, die mehr als 100 Mal besucht haben〈%=cs100%〉〈/td〉〈td〉Es gibt diejenigen, die 1 Mal besucht haben : 〈%=cs1%〉〈/td〉〈td〉Gesamtzahl der Besuche 〈%=csi%〉〈/td〉〈td〉Heutige Besuche: 〈%=csdat1%〉〈/td〉〈/tr〉
  77. </Tisch>

Das Obige ist eine vollständige Seitenanzeige, die kopiert und verwendet werden kann (Hinweis: Die Situation, in der es keine Aufzeichnungen gibt, wird nicht berücksichtigt. Wie das Sprichwort sagt, können Sie nur genug Essen und Kleidung haben, also beeilen Sie sich). Probieren Sie es aus!

Ähnliche Artikel