ตรวจสอบว่าส่วนประกอบของระบบมีอยู่หรือติดตั้งส่วนประกอบสำเร็จหรือไม่เพื่อช่วยให้การทำงานดำเนินต่อไปได้ ให้คำแนะนำข้อมูลที่ดีขึ้นแก่ผู้ใช้ เพื่อตรวจสอบว่าเซิร์ฟเวอร์มีการติดตั้งคอมโพเนนต์ asp หรือไม่ รหัสที่ใช้โดยทั่วไปจะเป็นดังนี้:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
'ฟังก์ชัน: ตรวจสอบว่าส่วนประกอบของระบบมีอยู่หรือติดตั้งส่วนประกอบสำเร็จหรือไม่
'พารามิเตอร์: ชื่อส่วนประกอบ
ฟังก์ชัน IsObjInstalled (strClassString)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
IsObjInstalled = เท็จ
ผิดพลาด = 0
DimxTestObj
ตั้งค่า xTestObj = Server.CreateObject(strClassString)
ถ้า 0 = ผิดพลาด ดังนั้น IsObjInstalled = True
ตั้งค่า xTestObj = ไม่มีเลย
ผิดพลาด = 0
ฟังก์ชันสิ้นสุด
'รับหมายเลขเวอร์ชันของส่วนประกอบระบบ
ฟังก์ชัน getver (Classstr)
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
เก็ทเวอร์=
ผิดพลาด = 0
DimxTestObj
ตั้งค่า xTestObj = Server.CreateObject(Classstr)
ถ้า 0 = ผิดพลาด ดังนั้น getver=xtestobj.version
ตั้งค่า xTestObj = ไม่มีเลย
ผิดพลาด = 0
ฟังก์ชันสิ้นสุด
-
วิธีการโทรมีดังนี้:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
ถ้า IsObjInstalled(fso.file) =True แล้ว
response.write(ติดตั้งแล้ว)&getver(fso.file)
สิ้นสุดถ้า
-