Vérifiez si les composants du système existent ou si les composants sont installés avec succès pour faciliter le fonctionnement continu. Donnez aux utilisateurs de meilleures instructions d’information. Pour déterminer si un certain composant asp est installé sur le serveur, le code le plus couramment utilisé est le suivant :
Copiez le code comme suit :
<%
'Fonction : Vérifier si les composants du système existent ou si les composants sont installés avec succès
'Paramètre : nom du composant
Fonction IsObjInstalled(strClassString)
En cas d'erreur, reprendre ensuite
IsObjInstalled = Faux
Erreur = 0
DimxTestObj
Définir xTestObj = Server.CreateObject(strClassString)
Si 0 = Err Alors IsObjInstalled = True
Définir xTestObj = Rien
Erreur = 0
Fonction de fin
'Obtenir le numéro de version du composant système
Fonction getver (Classstr)
En cas d'erreur, reprendre ensuite
getver=
Erreur = 0
DimxTestObj
Définir xTestObj = Server.CreateObject (Classstr)
Si 0 = Err Alors getver=xtestobj.version
Définir xTestObj = Rien
Erreur = 0
Fonction de fin
%>
La méthode d'appel est la suivante :
Copiez le code comme suit :
<%
si IsObjInstalled(fso.file) =True alors
réponse.write (déjà installé) & getver (fso.file)
finir si
%>