44 en ligne

Boutique | Sites | Bar | Forum | PhpBB | Actu | Glossaire | Codes | Tips | Liens | Livres | Lettre

Recherche

NewsLetter

Composants ASP

Vérifier la présence d'un composant

Voici un petit script bien pratique qui permet de tester l'existence ou non d'un composant sur un serveur IIS.
Il est tiré d'un exemple pris sur le défunt site Nautilum.com

PRINCIPE DU CODE

Il est en fait très simple, le tout consiste à essayer de créer une instance d'un composant, et de récupérer l'erreur si elle y est.

L'astuce, c'est donc le
<%on error resume next%>

qui permet de ne pas stopper le code dès la première erreur.

La récupération de l'erreur se fait à cet endroit :
<%
Set xTestObj = Server.CreateObject(nom_objet) ' création d'une instance de l'objet
If Err=0 Then ' pas d'erreur
  objet_installe = True
end if
%>

Par défaut, une liste de composants à tester existe, mais il est possible d'en essayer d'autres en saisissant leurs noms.

CODE COMPLET

lister_les_composants.asp
<% Option Explicit %>

<%

' COMPOSANTS PRESENTS PAR DEFAUT DANS IIS
' cette liste est non exaustive et modifiable
dim liste_objets(8)

liste_objets(0) = "MSWC.AdRotator"
liste_objets(1) = "MSWC.BrowserType"
liste_objets(2) = "MSWC.Counters"
liste_objets(3) = "MSWC.NextLink"
liste_objets(4) = "MSWC.PermissionChecker"
liste_objets(5) = "MSWC.Status"
liste_objets(6) = "MSWC.Tools"
liste_objets(7) = "IISSample.ContentRotator"
liste_objets(8) = "IISSample.PageCounter"
' FIN COMPOSANTS PRESENTS PAR DEFAUT DANS IIS

function objet_installe(nom_objet)
   ' FONCTION DE TEST
   ' ENTREE : nom d'un composant
   ' SORTIE : vrai ou faux

   On Error Resume Next ' pour récupérer le code d'erreur

   ' initialisation
   objet_installe = False
   Err = 0

   dim xTestObj
   Set xTestObj = Server.CreateObject(nom_objet) ' création d'une instance de l'objet
   If Err=0 Then ' pas d'erreur
      objet_installe = True
   end if
   Set xTestObj = Nothing
   Err = 0
End Function
%>

<html>
<head>
<title>Tester la présence d'un composant</title>
</head>
<body>


<form action="<%=request.ServerVariables("SCRIPT_NAME")%>" method="post">
<input type="text" value="" name="nom_objet" size="40">
<input type="submit" value="Tester">
<input type="reset" value="Annuler">
</form>

<%
Dim nom_objet
nom_objet = trim(request.form("nom_objet")) ' récupération du nom du composant à tester

if nom_objet<>"" then
   ' test d'un composant en particulier dont le nom a été saisi

   If not(objet_installe(nom_objet)) then%>
      <b><%=nom_objet%></b> -> pas installé<br>
   <%else%>
      <b><%=nom_objet%></b> -> installé<br>
   <%end if
else
   ' test des composants de la liste par défaut

   dim i
   for i=0 to UBound(liste_objets) ' parcours de la liste
      if not(objet_installe(liste_objets(i))) then%>
         <b><%=liste_objets(i)%></b> -> pas installé<br>
      <%else%>
         <b><%=liste_objets(i)%></b> -> installé<br>
      <%end if
   next
end if%>

</body>
</html>

QUELQUES COMPOSANTS A TESTER

FSO Scripting.FileSystemObject

CDONTS CDONTS.NewMail

ASPMail SMTPsvg.Mailer

ASPEmail Persits.MailSender

ASPSmartMail aspSmartMail.SmartMail

JMail JMail.Message

AspSmartUpload aspSmartUpload.SmartUpload

AspSimpleUpload ASPSimpleUpload.Upload

SA-FileUp SoftArtisans.FileUp

ImageSize ImgSize.Check

S Image Util SImageUtil.Image

A lire aussi

Composants ASP : Une sélection d'outils pour...

Pour pouvoir écrire dans ce forum, identifiez-vous !

v1.3p © ASP-PHP.net 2002

Wargoat le 12/05/2005 (39 040 hits)

Didier

Ils l’ont fait avec SQL Server. Découvrez comment !

Concours de programmation Flash !

Au fil des news

ASP - Redimensionner Image + Picto après Upload - Galerie photos, revue de presse, ...
But : Proposer aux visiteurs de charger des images sans se soucier du "poids" de l'image, puisqu'on ...

Exporter et Importer un site SharePoint - Comment déplacer un site SharePoint
Une question est très régulièrement posée à tout responsable de ferme SharePoint : Comment ...

Bon anniversaire - Comment le souhaiter à ses membres ?
Avoir un site, c'est bien. Avoir des inscrits, c'est mieux. Souhaiter leur anniversaire, c'est ...

Audio & Vidéo - Multimédia dans ses pages web
AUDIO/VIDEO : QuickTime, MediaPlayer, RealPlayer, FlashPlayer, ... : Du multimédia dans ses pages ...

Magazines - Le Hors-Série .Net de Programmez !

PHP - Administrer en ligne - Protection des pages
Protéger ses pages pour administrer son site en ligne en (relative) sécurité (PHP).

Communautés - Concours de programmation Flash !

[MAJ] Afficher ses images à la taille voulue - Utilisation du composant IMGSIZE
Ajout de la vérification de l'existence du fichier et d'un test d'erreur de retour du composant ...

Protéger ses Images - Propriété intellectuelle - Vie privée
Je me suis penché sur la question en tant qu'artiste moi-même, et concepteur de site web pour ...

Création de miniatures - Fonction php de création
Cette fonction sert à créer des miniatures.

ASP - ADMINISTRER en ligne - Protection des pages
Protéger ses pages pour administrer son site en ligne en (relative) sécurité (ASP).

JavaScript - Numéros de ligne à gauche d'un textarea

Protection - Sécurité - Mise au point - Précautions - Solutions
Même sans être paranoïaque, on a tous entendu parler de failles de sécurité, piratage informatique, ...

AspSmartUpload - Mode d'Emploi
Le composant ASPSmartUpload (gratuit) permet de gérer les téléchargements de FICHIERS ou de ...

JavaScript - Contrôler une date saisie dans un formulaire

HTML - Ajouter un fichier multimédia dans une page web

HTML - Musique de Fond sur son site

Afficher ses images à la taille voulue - Utilisation du composant IMGSIZE
Devant la diversité des formats d'image actuels, il est parfois nécessaire de connaître les ...

CSS - Icône Personnalisée sur son site

JavaScript - Interdire Clic Droit et message d'alerte

CSS - Curseur Personnalisé sur son site

JavaScript - Fenêtre à la Dimension de l'Ecran

La gouvernance SharePoint - Partie 1 - Première partie sur la gouvernance dans Sharepoint
Un projet de mise en place de ferme SharePoint est un projet important pour toute structure ...

ASP - Redimensionner Image + Picto après Upload

ASP - Administration en ligne : Protection des Pages

PHP - Administration en ligne : Protection des Pages

PHP - Redimensionner Image + Picto après Upload

ASP - Boutons ON OFF pour tout type de musique

PHP - Boutons ON OFF pour tout type de musique

SharePoint et OpenSearch - Utiliser l'option OpenSearch avec SharePoint
Nous avons maintenant un site SharePoint fonctionnel associé à un moteur de recherche efficace. Il ...

Magazines - Le n°109 de Programmez est disponible

SharePoint et PowerShell - Utilisation de PowerShell pour un script d'admin
PowerShell est le nouveau moteur de script de Microsoft. Il permet tout comme VBScript de créer des ...

[MAJ] [PHP] - Validation de formulaire - Gestion des erreurs via style CSS
Ajout de la sécurité anti sql injection de premier niveau.

Adobe - Adobe propose 3 nouvelles versions bêta publiques

VBScript - Interroger un serveur MYSQL

Divers - Web developpement

PHP5 - Copie de fichiers distants

Les stratégies de Backup dans WSS V3 - Quelles sont les différentes solutions de BackUp
Nous avons vu au travers des précédents articles différents sujets pour Windows SharePoint Services ...

Création d'une solution de déploiement SharePoint - Créer la solution pour notre composant SharePoint
Après avoir suivi toutes les étapes pour la création de notre composant (Feature) SharePoint, il ...

Magazines - Le n°108 de Programmez est disponible

Tutorial : HTML | Scripting | ASP-PHP | ASP.net | SQL Server | XML
Sharepoint | XAML | Pocket | Dreamweaver | VML | Divers
Scripts : Scripting | ASP-PHP | ASP.net | Divers
Boutique | Annuaire | Bannières | Météo | Tribune | Partenariats

v3 © Didier 2003

Corpo Sciences de Reims Partitions gratuites Carte, météo, annonces

Partitions gratuites à la demande !Corpo Sciences de ReimsCarte, plan et informations sur les communes de France