Voici un beau compteur graphique conçu sans CGI.
Ceci est divisé en trois parties : 1. Créer des fichiers graphiques.
2. Créez une base de données.
3. Écrivez le code.
1. Créez des fichiers graphiques.
Tout d'abord, utilisez un logiciel graphique pour créer 10 graphiques pour afficher les dix chiffres du compteur : 1, 2, 3, 4, 5, 6, 7, 8, 9, 0. Si vous avez un talent artistique, vous pouvez créer de meilleurs graphismes.
2. Créez une base de données.
Utilisez pour créer une base de données nommée. La base de données contient une table,
Le nom est, la structure est : entier, il y a un enregistrement et la valeur initiale est 0.
Utilisé pour stocker le dernier nombre de visites sur cette page.
3. Écrivez le code.
——————numéro.asp————————————
<%@langue="vbscript" %>
<!--#include file="adovbs.inc"-->
<%
set objconn=server.createobject("adodb.connection")
objconn.attributes=adxactcommitretaining
dbpath=server.mappath("num.mdb")
objconn.open "driver={pilote d'accès Microsoft (*.mdb)};dbq=" & dbpath
Remarque : Établissez une connexion avec la base de données.
sqlquery= "sélectionner * à partir de numt"
définir rsrecordset=server.createobject("adodb.recordset")
rsrecordset.open sqlquery, objconn, adopenkeyset, adlockoptimistic
Remarque : Ouvrez la base de données.
application.lock
application("nmb")=rsrecordset("numéro")
application.déverrouiller
Remarque : Attribuez le dernier nombre d'accès à l'objet Application
application.lock.
application("nmb")=application("nmb")+1
application.déverrouiller
rsrecordset("numéro")=rsrecordset("numéro")+1
rsrecordset.update
rsrecordset.close
objconn.close
définir rsrecordset = rien
définir objconn = rien
Remarque : fermez la base de données et libérez l'objet
dim nmb1
dim str()
nmb1=application("nmb")
redim str(nmb1)
pour i=1 à len(nmb1)
str(i)=milieu(nmb1,i,1)
Remarque : Pour chaque numéro, obtenez le fichier graphique correspondant,
sélectionnez case str(i)
cas "0"
imgF="0.gif"
cas "1"
imgF="1.gif"
cas "2"
imgF="2.gif"
cas "3"
imgF="3.gif"
cas "4"
imgF="4.gif"
cas "5"
imgF="5.gif"
cas "6"
imgF="6.gif"
cas "7"
imgF="7.gif"
cas "8"
imgF="8.gif"
cas "9"
imgF="9.gif"
fin de la sélection
Remarque : Graphique de sortie
réponse.write"<img src="&imgF&">"
suivant
%>