Instance ASP: l'accès est un système de statistiques de site Web pour la base de données backend

<%

Définir Conn = Server.CreateObject (ADODB.Connection)

Connstr = dbq = server.mappath (cont.asp); defaultDir =; Driver = {Microsoft Access Driver (* .mdb)};

Conn.open Connstr '' *** L'instruction ci-dessus est utilisée pour se connecter à la bibliothèque, et cont.asp est le nom de fichier de la bibliothèque.

Keren = request.cookies (Keren) '' Lire les cookies, le nom des cookies est: Keren, haha. . La chose puante à propos de la littérature E d'Ayu est qu'il sait seulement utiliser Pinyin.

Si Keren = alors '' juger si les cookies sont vides. S'ils sont vides, ils doivent être de nouveaux amis, sinon ils sont de vieux amis.

sql = sélectionner * dans l'onglet où id = -1

set rs = server.createObject (adodb.recordSet)

Rs.Open SQL, Conn, 1, 3

Rs.AddNew '' S'il s'agit d'un nouveau visiteur, ajoutez un nouvel enregistrement dans la bibliothèque.

rs (cs) = 1 '' Remarque Le nombre de visites est 1

rs (ip) = request.servervariables (reote_addr) '' Dites-moi l'IP,

rs (dat) = maintenant '' Dites la date et l'heure actuelles,

RS (dat1) = date '' Dites la date en cours et la date à utiliser pour la première visite à l'avenir.

réponse.cookies (keren) = rs (id) '' Écrivez un cookie et le contenu est le même que l'ID.

Response.cookies (Keren) .expires = date 365 '' définir la date valide des cookies à partir de maintenant, 365 jours,

Sinon, ce qui précède est le moyen de traiter avec de nouveaux amis. Que dois-je faire avec de vieux amis? Regardez ce qui suit:

SQL = SELECT * FROM TAB où id = & keren '' allez à la bibliothèque pour trouver les enregistrements de nos anciens amis

set rs = server.createObject (adodb.recordSet)

Rs.Open SQL, Conn, 1, 3

RS (CS) = RS (CS) 1 '' D'accord, trouvé, ajoutez 1 visites

rs (ip) = request.servervariables (Remote_addr) '' Voir ce qu'est son IP et noter.

rs (dat) = maintenant '' Dites-moi l'heure actuelle, c'est-à-dire le moment de la dernière visite,

Response.cookies (Keren) = Rs (id) '' Ensuite, écrivez des cookies. Je ne sais pas si cette phrase est redondante, donc je ne l'ai pas essayé.

Response.cookies (Keren) .expires = Date 365 '' Définissez l'heure d'expiration des cookies afin de ne pas le reconnaître si un an arrive.

terminer si

Rs.Update '' J'ai enregistré tout ce dont je devrais me souvenir, mettez à jour la bibliothèque.

Rs.close '' Fermez l'objet RecordSet.

Définissez Conn = Rien de libération de Conn, je pense toujours que la connexion doit être activée et désactivée dès que possible. Je pense qu'il est le plus indésirable de le mettre en session. 4

%>

<%

Définir Conn = Server.CreateObject (ADODB.Connection)

Connstr = dbq = server.mappath (cont.asp); defaultDir =; Driver = {Microsoft Access Driver (* .mdb)};

Conn.open Connstr '' *** L'instruction ci-dessus est utilisée pour se connecter à la bibliothèque, et cont.asp est le nom de fichier de la bibliothèque.

Page3 = demande (PAG)

Si page3 = alors page3 = session (contpag) '' Nombre de pages, page actuelle

Si page3 = alors page3 = 1

PA = demande (PA)

Si pa = alors pa = session (contpa) '' nombre d'affichage par page

Si pa = alors pa = 15 '' par défaut, 15 éléments sont affichés par page et peuvent être modifiés à volonté

session (contpag) = page3

Session (contpa) = PA

pages = PA '' Nombre d'affichage par page ******************* Le programme ci-dessus est utilisé pour implémenter la fonction de pagination

SQL = SELECT * FROM TAB ORDAND BY -DAT, -ID

rs sombre

Set rs = server.createObject (adodb.recordSet)

Rs.Open SQL, Conn, 1,1

csi = 0

CS1 = 0

CS100 = 0

csdat1 = 0

faire tout en pas Rs.Eof

CSI = CSI RS (CS)

Si rs (cs) = 1 alors cs1 = cs1 1

Si rs (cs)> = 100 alors CS100 1

Si datevalue (rs (dat)) = date alors

CSDAT1 = CSDAT1 1

terminer si

Rs.MovEnext

boucle

Zs = Rs.recordCount

'' ************************************************** 8 Le programme suivant est utilisé pour l'affichage de pagination

%>

<adal>

<Title> Statistiques en ligne </TITME>

</ head>

<Style du corps = taille de police: 9pt bgcolor = # d8edf8>

Il y a un total de <% de réponse.Write ZS%> enregistre, et maintenant la <% de réponse.Write Page3%> Page affiche chaque page: [<a href = dispstnt.asp? Pag = <% = page3%> & pa = 15> 15], [<a href = disponcs.asp? Pag = <% = page3 %> & pa = 20> 20], [<a <a href = disponc.asp? pag = <% = page3%> & pa = 30> 30], [<a href = dispst.asp? pag = <% = page3%> & pa = 40> 40]

[<a href = disponc.asp> rafraîchir]

<div align = Left>

<Table Border = 0 CellPadding = 0 Style = Font-Size: 9pt>

<tr> <td> numéro de page </td> <% page2 = 1

pour i = 1 à zs étape pages

Si page3 = CSTR (page2) alors

%> <td> [<% Response.Write Page2%>] </td>

<% else%>

<td> <a href = disponc.asp? pag = <% réponse.Write page2% >> [<% réponse.Write page2%>] </td>

<% fin si

page2 = page2 1

suivant

sn = pages * (page3-1) '' Numéro d'enregistrement actuel = nombre d'affichage par page * Nombre de pages - Nombre d'affichage par page

Si sn> zs alors sn = 0

Rs.Move Sn, 1

'' ************************************** Le paragraphe ci-dessus est utilisé pour la pagination

%> </tr> </ table>

</ div> <Table Style = Font-Size: 9pt Width = 100% BorderColorlight = # 000000 Border = 1 BorderColordark = # fffff bgColor = # a4d1e8 Cellpacing = 0 CellPadding = 3>

<Tr> <Td> Numéro </td> <TD> Dernière visite à la page d'accueil </td> <td> Dernière visite à IP </td> <td> Nombre de page d'accueil </td> <Td> Nombre de la première visite </td> </tr> <%

pour i = 1 aux pages

Réponse.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>

Réponse.write </tr>

Rs.MovEnext

Si Rs.Eof, sortez pour

suivant

Rs.Close

%>

<tr> <td> total <% = zs%> </td> <td> Le nombre de visites est plus de 100 fois <% = CS100 %> </td> <td> Le nombre de visites est 1: <% = CS1 %> <% = csdat1%> </td> </tr>

</ table>