-
-
'ฟังก์ชั่น: isobjinstalled (strclassstring)
'อาร์กิวเมนต์: StrClassString ชื่อวัตถุส่วนประกอบ
'ผู้แต่ง: Alixi
'วันที่: 2007/7/13
'คำอธิบาย: ตรวจสอบว่ามีการติดตั้งส่วนประกอบหรือไม่
'ตัวอย่าง: <%= isobjinstalled (strClassString)%>
-
functionisobjinstalled (strclassstring)
onerrorresumenext
isobjinstalled = false
'err = 0
dimxtestobj
SetXtEsTOBJ = Server.CreateObject (StrClassString)
iferr <>-2147221005thenisobjinstalled = treeelseisoBjinstalled = talseendif
setXtESTOBJ = ไม่มีอะไร
'rr = 0
endfunction
-