 |
Publicité 
|
A l'instar de perl et de PHP via la bibliothéque GD, il est possible de créer des images à la volée avec ASP, VB ... grâce à la bibliothéque Active X ImageLib d'OVERPOWER et ce gratuitement...
L'exemple le plus courant pour mettre en application ce type de bibliothèque est la création de compteurs graphiques à la volée.
Nous n'allons pas déroger à cette évidence et mettre en application par l'exemple l'utilisation de cette bibliothèque.
Dans l'exemple traité nous ne manipulerons pas d'images sur le disque bien que cela soit possible avec cette bibliothèque. L'ensemble de l'image du compteur sera donc créé par la bibliothèque.
Vous pouvez mettre en place plusieurs compteurs sur votre site grâce à une petite procédure ASP et overpower.dll.
En effet, vous créez un petit code ASP qui permet de définir les propriétés de votre compteur :
Hauteur
Largeur
Couleur
Trame de fond
...
Ce code est ensuite appeler par vos pages, via un tag img, pour afficher le ou les compteurs souhaités.
<IMG SRC="Votre_Source.asp?ID=Votre_Identifiant_Compteur">
Vous pouvez compter le nombre d'affichage dans une base de données ou dans un fichier texte.
Après avoir recherché ce nombre, il ne vous reste plus qu'à créer un objet faisant référence à une classe de la DLL OverPower. Configurez quelques paramètres et affichez le résultat.
Exemple pour une base de données :
<%
' Création d'un objet ADODB pour la connection à la base de données.
Set ConnectBase = Server.CreateObject("ADODB.Connection")
' Connection à la base de données (n'oubliez pas de préciser vos propres paramètres.)
ConnectBase.Open "DSN=DSN_Name; UID=User_Name; PWD=User_Pass"
countreq = 0
' Récupération de l'ID et du nombre de digit à afficher
ID = Request.QueryString("ID")
NBD = Request.QueryString("NBD")
NBD = CInt(NBD)
Trouve = 0
' Recherche du nombre à afficher (la fonction de comptage n'est pas représenté)
SQL = "SELECT Cpt FROM Votre_Table WHERE ID=" & ID
Set countab = ConnectBase.Execute(SQL)
Num = countab("Cpt ")
countab.close
' Déconnection de la base de données
Set countab = Nothing
ConnectBase.close
Set ConnectBase = Nothing
' Conversion du nombre en texte et formatage du résultat
NumStr = CStr(Num)
While (len(NumStr) < NBD)
Wend
' Création de l'objet OverPower
set ILIB = server.createobject("Overpower.ImageLib")
' Paramètrage du compteur
ILIB.FontColor = "clRed"
ILIB.BrushColor = "clNavy"
ILIB.FontFace = "Comic Sans MS"
ILIB.FontSize = 16
ILIB.FontBold = true
ILIB.FontItalic = true
ILIB.width = ILIB.GetTextwidth(NumStr)+4
ILIB.height = ILIB.GetTextHeight(NumStr)+4
ILIB.PenColor = "clRed"
ILIB.fBox 1,1,ILIB.WIDTH,ILIB.HEIGHT
ILIB.Textout NumStr,1,1
ILIB.PictureBinaryWrite 2, 0, ""
%>
Affichage du résultat dans vos page Web :
<IMG SRC="Votre_Source.asp?ID=ID_Compteur&NBD=Nb_Digits">
Améliorations possibles grâce à cette bibliothèque, mais non traitées:
- utilisation d'images (gif, jpg...) pour chaque nombre (0 à 9) avec fusion de ces images en vue de créer le compteur.
- Incrémentation du nombre de hits dans la base de données...
La documentation est très claire, mais en Anglais.
Pour télécharger la DLL.
|
