ASP -Code implementiert eine Funktion, die erkennt, ob die Komponente installiert ist

<%

'*********************************

'Funktion: Isobjinstalled (StrclassString)

'Argumente: StrclassString, Komponentenobjektname

'Autor: Alixi

'Datum: 2007/7/13

'Beschreibung: Überprüfen Sie, ob die Komponente installiert ist

Beispiel: <%= isobjinstalled (StrclassString)%>

'*********************************

Functionisobjinstalled (StrclassString)

OnErrorresumeNext

Isobjinstalled = false

'Err = 0

DimXTestObj

SetxtestObj = server.createObject (strclassString)

ISTERR <>-2147221005Thenisobjinstalled = trueelseisobjinstalled = falseendif

SetxtestObj = nichts

'rr = 0

Endfunktion

%>