Empfohlen: Dynamische Web -Enthusiasten: ASP -Funktionsfilterung HTML ASP -Filtering -HTML -Code ist der folgende Referenzinhalt: Funktion REMETHTML (STRHTML) DIMBEJREGEXP, Übereinstimmung, Übereinstimmungen Set objregexp = new Regexp OBJ
Ein Beispiel für die statistische Produktion, die Besucher nummerieren kann, die Anzahl der Besuche, IP und Zeit aufzeichnen
Ich nehme die Access Library als Beispiel. Wenn Sie die SQL Server -Bibliothek verwenden, ändern Sie in der Tat die Anweisungen der Linkbibliothek. Die Bibliotheksstruktur ist wie folgt
BIBLIOTH -Dateiname: Cont.asp wurde ursprünglich Cont.Mdb, aber nach dem Build wurde die Erweiterung in ASP geändert, um zu verhindern, dass die Bibliothek heruntergeladen wird.
Tabellenname: Registerkarte
Feldname Datentyp Beschreibung
ID nummeriert automatisch die Nummer des Besuchers
IP -Text wird verwendet, um die IP des Besuchers aufzuzeichnen
DAT1 -Datum Uhrzeit wird verwendet, um den letzten Besucherbesucher aufzuzeichnen
DAT -Datum Uhrzeit wird verwendet, um die Zeit aufzuzeichnen, in der der Besucher zum ersten Mal besucht
CS -Nummer, ganzzahliger Typ wird verwendet, um Besuche von Besuchern aufzuzeichnen
Das Programm ist sehr einfach mit nur zwei Dateien. Dispcont.asp wird verwendet, um statistische Ergebnisse anzuzeigen, und die Contpage.asp wird verwendet, um statistische Informationen anzuzeigen.
Schauen wir uns zunächst die Statistiken von Contpage.asp an, der Code ist wie folgt:
| Das Folgende ist der zitierte Inhalt: <% Setzen Sie conn = server.createObject (adodb.Connection) ConnStr = dbq = server.mappath (cont.asp); defaultDir =; TRAVER = {Microsoft Access Treiber (*.mdb)}; Conn.open connstr '' *** Die obige Anweisung wird verwendet, um eine Verbindung zur Bibliothek herzustellen, und Cont.asp ist der Name der Bibliotheksdatei. Keren = Request.Cookies (Keren) '' Lesen Cookies, der Name der Cookies lautet: Keren, haha. . Das stinkende Ding an Ayus E -Literatur ist, dass er nur weiß, wie man Pinyin benutzt. Wenn Keren = dann beurteilen, ob Cookies leer sind. Wenn sie leer sind, müssen sie neue Freunde sein, sonst sind sie alte Freunde. SQL = SELECT * Aus der Registerkarte wobei id = -1 Setzen Sie rs = server.createObject (adodb.Recordset) Rs.open SQL, Conn, 1, 3 Rs.Addnew '' Wenn es sich um einen neuen Besucher handelt, fügen Sie einen neuen Rekord in der Bibliothek hinzu. rs (cs) = 1 '' Beachten Sie die Anzahl der Besuche beträgt 1 RS (IP) = Request.Servervariables (Remote_Addr) '' Sagen Sie mir die IP. rs (dat) = nun '' Erzählen Sie das aktuelle Datum und die aktuelle Uhrzeit, RS (DAT1) = DATE '' Tagen Sie das aktuelle Datum und das Datum für den ersten Besuch in der Zukunft an. response.cookies (keren) = rs (id) '' schreibe ein Cookie und der Inhalt ist der gleiche wie die ID. Antwort.cookies (Keren) .expires = Datum 365 '' Setzen Sie das gültige Datum der Cookies von nun an, 365 Tage, sonst ist der oben genannte Weg, um mit neuen Freunden umzugehen. Was soll ich mit alten Freunden machen? Schauen Sie sich Folgendes an: SQL = SELECT * Aus der Registerkarte Wob Setzen Sie rs = server.createObject (adodb.Recordset) Rs.open SQL, Conn, 1, 3 RS (CS) = RS (CS) 1 '' Okay, gefunden, 1 Besuche hinzufügen RS (IP) = Request.Servervariables (remote_addr) '' Sehen Sie, was seine IP ist, und schreiben Sie sie auf. rs (dat) = nun '' Sagen Sie mir die aktuelle Zeit, dh die Zeit des letzten Besuchs, Antwort. Kookies (Keren) = RS (ID) '' Schreiben Sie dann Cookies. Ich weiß nicht, ob dieser Satz überflüssig ist, also habe ich es nicht versucht. Antwort.cookies (Keren) .expires = Datum 365 '' Legen Sie die Auslaufzeit von Cookies fest, damit ich ihn nicht erkennen werde, wenn ein Jahr kommt. Ende wenn Rs.Update '' Ich habe alles aufgezeichnet, an das ich mich erinnern sollte, die Bibliothek aktualisieren. Rs.close '' Schließen Sie das Recordset -Objekt. Setzen Sie Conn = Nothing '' Release conn, ich denke immer noch, dass die Verbindung so schnell wie möglich ein- und ausgeschaltet werden sollte. Ich denke, es ist am unerwünschten, es in die Sitzung zu setzen. 4 %> |
Okay, die Aufzeichnung erfolgt, es gibt mehr als zwanzig Codezeilen, ein sehr einfaches kleines Programm. Wie kann es auf der Seite platziert werden, nachdem das Programm geschrieben wurde? Es ist sehr einfach. Suchen Sie einfach einen Platz auf der Homepage und fügen Sie diese Codezeile hinzu: <img src = contpage.asp width = 0 hohe = 0>.
Der nächste Schritt besteht darin, den Datensatz anzuzeigen.
Dateiname: dispcont.asp, siehe den Code:
| Das Folgende ist der zitierte Inhalt: <% Setzen Sie conn = server.createObject (adodb.Connection) ConnStr = dbq = server.mappath (cont.asp); defaultDir =; TRAVER = {Microsoft Access Treiber (*.mdb)}; Conn.open connstr '' *** Die obige Anweisung wird verwendet, um eine Verbindung zur Bibliothek herzustellen, und Cont.asp ist der Name der Bibliotheksdatei. Seite3 = Anfrage (PAG) Wenn Seite3 = dann Seite3 = Sitzung (Contpag) '' Anzahl der Seiten, aktuelle Seite Wenn Seite3 = dann Seite3 = 1 PA = Anfrage (PA) Wenn PA = dann PA = Session (CONPA) '' Anzahl der Anzeige pro Seite Wenn PA = dann pa = 15 '' standardmäßig werden 15 Elemente pro Seite angezeigt und können nach Belieben geändert werden Sitzung (Contpag) = Seite3 Sitzung (contPA) = pa Seiten = PA '' Anzahl der Anzeige pro Seite ******************* Das obige Programm wird zur Implementierung der Paginierungsfunktion verwendet SQL = SELECT * von der Registerkarte Order by -dat, -id Dim Rs Setzen Sie rs = server.createObject (adodb.Recordset) Rs.open SQL, Conn, 1,1 csi = 0 CS1 = 0 CS100 = 0 csdat1 = 0 tun, während nicht Rs.Eof CSI = CSI RS (CS) Wenn RS (CS) = 1 dann CS1 = CS1 1 Wenn RS (CS)> = 100 dann CS100 1 Wenn DateValue (rs (dat)) = Datum dann CSDAT1 = CSDAT1 1 Ende wenn Rs.Movenext Schleife ZS = Rs.RecordCount '* %> <kopf> <title> Online -Statistik </title> </head> <Body Style = Schriftgröße: 9PT bgcolor =#d8edf8> Es gibt insgesamt eine <% -Antwort. Schreiben Sie zs%> Datensätze und jetzt die <%Antwort. href = dispcont.asp? pag = <%= page3%> & pa = 30> 30], [<a href = dispcont.asp? pag = <%= page3%> & pa = 40> 40] [<a href = dispcont.asp> Aktualisieren] <dival align = links> <Table Border = 0 CellPadding = 0 Style = Schriftgröße: 9PT> <tr> <td> Seitenzahl </td> <%Seite 2 = 1 für i = 1 bis zs Schrittseiten Wenn Seite3 = cstr (Seite 2) dann %> <td> [<%Antwort.Write Seite 2%>] </td> < % sonst %> <td> <a href = dispcont.asp? pag = <%Antwort <% Ende wenn Seite 2 = Seite 2 1 nächste sn = Seiten * (Seite 3-1) '' Aktuelle Datensatznummer = Anzahl der Anzeige pro Seite * Anzahl der Seiten - Anzahl der Anzeige pro Seite pro Seite Wenn sn> zs dann sn = 0 Rs.Move Sn, 1 ''*********** %> </tr> </table> </div> <table style = Schriftgröße: 9PT-Breite = 100% BorderColorlight =#000000 Border = 1 BorderColordark =#fffff bgcolor =#a4d1e8 cellpacing = 0 cellpadding = 3> <tr> <td> Nummer </td> <td> Letzter Besuch auf der Startseite </td> <td> Letzter Besuch in IP </td> <td> Anzahl der Homepage </td> <td> Anzahl der ersten Besuchsdatum </td> </tr> <% für i = 1 bis Seiten Response.write </tr> Response.write <td> & rs (id) & </td> Response.write <td> & rs (dat) & </td> Response.write <td> & rs (IP) & </td> Response.write <td> & rs (cs) & </td> Response.write <td> & rs (dat1) & </td> Response.write </tr> Rs.Movenext Wenn rs.eof dann beenden für nächste rs.close %> <tr> <td> Total <%= zs%> </td> <td> Die Anzahl der Besuche beträgt mehr als 100 -mal <%= CS100%> </td> <td> Die Anzahl der Besuche beträgt 1: <%= cs1%> </td> <td> Gesamtanzahl der Besuche ist <%= CSI%> </td> </td> </td> </td> </td> Die heutigen Visitsites: Die VISITIONEN: <%= csdat1%> </td> </tr> </table> |
'' ****************************** Die oben genannte ist die komplette Seitenanzeige. Alle von ihnen sind verfügbar. Es werden weder Aufzeichnungen noch eine Situation berücksichtigt.
Share: Tetris -Spiel in ASP geschrieben Im Folgenden ist der referenzierte Inhalt: <%wenn nicht anfordern