<٪
'*********************************
'الوظيفة: isobjinstalled (strclassstring)
'الوسائط: strclassstring ، اسم كائن المكون
المؤلف: Alixi
"التاريخ: 2007/7/13
الوصف: تحقق مما إذا كان المكون مثبتًا
على سبيل المثال: <٪ = ISOBJinstalled (strclassString) ٪>
'*********************************
FunctionIsobjinstalled (StrclassString)
onerrorresumenext
isobjinstalled = false
'خطأ = 0
dimxtestobj
setxtestobj = server.createBject (strclassString)
iferr <>-2147221005thenisobjinstalled = trueelseisobjinstalled = falseendif
setxtestobj = لا شيء
'rr = 0
الوظيفية
٪>