تحقق من وجود مكونات النظام أو ما إذا تم تثبيت المكونات بنجاح لتسهيل استمرار التشغيل. إعطاء المستخدمين تعليمات معلومات أفضل. لتحديد ما إذا كان الخادم يحتوي على مكون asp معين مثبتًا، فإن الكود الأكثر استخدامًا هو كما يلي:
انسخ رمز الكود كما يلي:
<%
'الوظيفة: التحقق من وجود مكونات النظام أو ما إذا تم تثبيت المكونات بنجاح
'المعلمة: اسم المكون
الدالة IsObjInstalled(strClassString)
على خطأ استئناف التالي
IsObjInstalled = خطأ
الخطأ = 0
DimxTestObj
تعيين xTestObj = Server.CreateObject(strClassString)
إذا كان 0 = خطأ، فإن IsObjInstalled = صحيح
تعيين xTestObj = لا شيء
الخطأ = 0
وظيفة النهاية
'احصل على رقم إصدار مكون النظام
دالة getver(Classstr)
على خطأ استئناف التالي
getver=
الخطأ = 0
DimxTestObj
تعيين xTestObj = Server.CreateObject(Classstr)
إذا كان 0 = خطأ، ثم getver=xtestobj.version
تعيين xTestObj = لا شيء
الخطأ = 0
وظيفة النهاية
%>
طريقة الاستدعاء هي كما يلي:
انسخ رمز الكود كما يلي:
<%
إذا IsObjInstalled(fso.file) =صحيح إذن
Response.write (مثبت بالفعل)&getver(fso.file)
نهاية إذا
%>