Periksa apakah komponen sistem ada atau apakah komponen berhasil dipasang untuk memudahkan pengoperasian lanjutan. Berikan petunjuk informasi yang lebih baik kepada pengguna. Untuk mengetahui apakah server telah menginstal komponen asp tertentu, kode yang lebih umum digunakan adalah sebagai berikut:
Copy kode kodenya sebagai berikut:
<%
'Fungsi: Periksa apakah komponen sistem ada atau apakah komponen berhasil diinstal
'Parameter: nama komponen
Fungsi IsObjInstalled(strClassString)
Pada Kesalahan Lanjutkan Berikutnya
IsObjInstalled = Salah
Salah = 0
DimxTestObj
Setel xTestObj = Server.CreateObject(strClassString)
Jika 0 = Err Maka IsObjInstalled = Benar
Setel xTestObj = Tidak Ada
Salah = 0
Fungsi Akhir
'Dapatkan nomor versi komponen sistem
Fungsi getver(Classstr)
Pada Kesalahan Lanjutkan Berikutnya
dapatkan=
Salah = 0
DimxTestObj
Setel xTestObj = Server.CreateObject(Classstr)
Jika 0 = Err Maka getver=xtestobj.version
Setel xTestObj = Tidak Ada
Salah = 0
Fungsi Akhir
%>
Metode pemanggilannya adalah sebagai berikut:
Copy kode kodenya sebagai berikut:
<%
jika IsObjInstalled(fso.file) = Benar maka
respon.tulis(sudah terpasang)&getver(fso.file)
berakhir jika
%>