Ce programme place les numéros de compteur dans la base de données ACCESS, mais vous pouvez utiliser n'importe quelle autre source de données ODBC de votre choix. Ce programme lit les informations du compteur à partir de l'URL :
< IMG src="id=MYTEST&seq=default&cells =7" >.
Paramètres
id est
la désignation de la page Web du client (c'est-à-dire le nom d'utilisateur). Chaque fois que vous utilisez un nouvel identifiant, un nouvel enregistrement sera inséré dans la base de données. Si l'identifiant existe à l'origine, son nombre augmentera de 1. Si vous ne souhaitez pas que le client active automatiquement un identifiant et doive s'inscrire, alors vous attribuez la valeur "insertion automatique" à False.
Elle
est utilisée pour sélectionner le style de l'image du compteur. le nom de l'image affichée sur le client est .gif. La valeur par défaut est "defalut.gif", et ce "defalut.gif" doit être placé dans le répertoire de travail courant
est facultatif. Le nombre de chiffres affichés dans le comptage
.
résultat, la valeur par défaut est 5 chiffres (cette valeur que vous avez définie dans le programme (peut également être ajustée) Comment exécuter ce programme ? Copiez ce programme à l'endroit souhaité sur le serveur.
Créez une source de données "Webcounter". Il doit y avoir une table nommée « main » dans cette source de données. Voici les champs de la table dans :
< table border="1" cellpadding="3" Cellpacing="1" >
<tr>
< th >Champ< /th >
< th >Type< /th >
< th >Indexé< /th >
< th >Moyens< /th >
< /tr >
<tr>
< td >ident< /td >
< td >NuméroAuto</ td >
< td >Oui</ td >
< td >Pour vos besoins< /td >
< /tr >
<tr>
< td >identifiant< /td >
< td >Texte</ /td >
< td >Oui</ td >
<td>Nom d'utilisateur</td>
< /tr >
<tr>
< td >compte< /td >
< td >Numéro</ td >
< td >Non< /td >
< td >Compter les nombres</td>
< /tr >
< /table >
Si nécessaire, attribuez des autorisations à la base de données
et créez un répertoire pour stocker les graphiques GIF. Dans ce répertoire, au moins un groupe graphique de default.gif doit être placé. Accordez des autorisations sur ce fichier le cas échéant.
Mettez dans ce répertoire des graphiques numériques divisibles par 10.
< table width="100%" border="1" cellpacing="1" cellpadding="2" >
<tr>
< td bgcolor="#ccffff" >Fichier < b >counter.asp< /b > </ /td >
< /tr >
<tr>
< td bgcolor="#ffffcc" >< pré >
<%
Réponse.ContentType="image/gif"
Réponse.Expire=0
'Le répertoire où sont placées les barres GIF se termine par .
workdir="c:gifbars"
'Réglez ceci sur False si vous souhaitez désactiver l'insertion automatique
'nouveaux enregistrements de compteur dans la base de données à chaque coup avec un
'chaîne d'identification
auto_insert=Vrai
identifiant=Trim(Request.QueryString("id"))
seq=Trim(Request.QueryString("seq"))
si seq="" alors seq="par défaut"
cellules=Trim(Request.QueryString("cellules"))
si cellules="" alors cellules=5 sinon cellules=cellules*1
set conn=Server.CreateObject("ADODB.Connection")
conn.Ouvrir "Webcounter"
sql="select count,ident from main où id='" & id & "'"
définir rs=conn.Execute(sql)
sinon rs.EOF alors
compte=rs("compte")+1
ident=rs("ident")
rs.close()
conn.Execute("mettre à jour l'ensemble principal count=count+1 où ident=" & ident)
conn.close()
Afficher les numéros()
autre
rs.close()
si auto_insert=True et id< >"" alors
conn.Execute("insérer dans les valeurs principales (id,count) ('" & id & "',1)")
compte = 1
Afficher les numéros()
finir si
conn.close()
terminer si
Sub ShowNumbers()
set g=CreateObject("shotgraph.image")
nom de fichier = répertoire de travail & séquence & ".gif"
si g.GetFileDimensions(filename,xsize,ysize,pal)< >1 alors Exit Sub
xchiffre=taillex10
g.CreateImage xdigit*cells,ysize,UBound(pal)+1
g.InitClipboard xsize,ysize
g.SelectClipboard Vrai
pour i=0 à UBound(pal)
g.SetColor i,pal(i,0),pal(i,1),pal(i,2)
suivant
g.ReadImage nom de fichier, pal,0,0
pour i=1 aux cellules
k = GetDigit (nombre, cellules-i)
g. Copier (i-1)*xdigit,0,xdigit,ysize,k*xdigit,0,"SRCCOPY"
suivant
Réponse.BinaryWrite g.GifImage(-1,1,"")
Fin de la sous
-fonction GetDigit (numéro, position)
numéro1=numéro(10^position)
tmp=numéro110
GetDigit=numéro1-tmp*10
Fin de la fonction
%>
<xmp>
< /pré >
</ /td >
< /tr >
< /table >
< hr >< /span >< /td >
< /tr >
<tr>
< td largeur="50%" > </ /td >
< td width="50%" >< br >< /td >
< /tr >
<tr>
< td colspan=2 align="right" >
< img border="0" src="images/bbstitle.gif" >< a id="hlkAddMsg" href="/AddMsg.aspx?id=234" style="color:red" >Laisser un commentaire</a >
< img border="0" src="images/mail.gif" >< a id="hlkMailTo" href="/MailTo.aspx?id=234" >Envoyer cette page</a>
< img border="0" src="images/print.gif" >< a href="javascript:window.print()" >Imprimer cette page</a>
< img border="0" src="images/profile.gif" >< a href="javascript:void(null)" onclick="if(!document.execCommand('SaveAs','show.aspx',1 )) return false;" >Enregistrer cette page< /a >
< img border="0" src="images/ask.gif" >< a href="bbs/index.asp" >Vous avez des questions</a>
</ /td >
< /tr >
<tr bgcolor="#97B9FF" >
< td width="50%" >< b >< font color="#FFFFFF" >Articles connexes</font >< /b >< /td >
< td width="50%" >< b >< font color="#FFFFFF" >Commentaires associés</font >< /b >< /td >
< /tr >
<tr>
<td width="50%" valign="top" >
</ /td >
< td width="50%" valign="top" >
</ /td >
< /tr >
<tr>
< largeur td="50%" >
</ /td >
< td width="50%" align="right" >< img border="0" src="images/more.gif" >< a id="hlkRela" >< /a >< /td >
< /tr >
< /table >
</ /td >
< /tr >
< /table >
</ /td >
< /tr >
< /table >
< /corps >
< /html >