Überprüfen Sie, ob Systemkomponenten vorhanden sind bzw. ob die Komponenten erfolgreich installiert wurden, um den weiteren Betrieb zu ermöglichen. Geben Sie den Benutzern bessere Informationsanweisungen. Um festzustellen, ob auf dem Server eine bestimmte ASP-Komponente installiert ist, lautet der am häufigsten verwendete Code wie folgt:
Kopieren Sie den Codecode wie folgt:
<%
'Funktion: Überprüfen Sie, ob Systemkomponenten vorhanden sind oder ob die Komponenten erfolgreich installiert wurden
'Parameter: Komponentenname
Funktion IsObjInstalled(strClassString)
Bei Fehler Weiter fortsetzen
IsObjInstalled = False
Fehler = 0
DimxTestObj
Setze xTestObj = Server.CreateObject(strClassString)
Wenn 0 = Err, dann ist IsObjInstalled = True
Setze xTestObj = Nothing
Fehler = 0
Funktion beenden
'Holen Sie sich die Versionsnummer der Systemkomponente
Funktion getver(Classstr)
Bei Fehler Weiter fortsetzen
getver=
Fehler = 0
DimxTestObj
Setze xTestObj = Server.CreateObject(Classstr)
Wenn 0 = Err, dann getver=xtestobj.version
Setze xTestObj = Nothing
Fehler = 0
Funktion beenden
%>
Die aufrufende Methode lautet wie folgt:
Kopieren Sie den Codecode wie folgt:
<%
wenn IsObjInstalled(fso.file) =True dann
Response.write(bereits installiert)&getver(fso.file)
Ende wenn
%>