<%
'*******************************
'기능 : isobjinstalled (strclassstring)
'인수 : strclassstring, 구성 요소 개체 이름
'저자 : Alixi
'날짜 : 2007/7/13
'설명 : 구성 요소가 설치되어 있는지 확인하십시오
'예 : <%= isobjinstalled (strclassstring)%>
'*******************************
FunctionisObjinstalled (strclassstring)
onerrorresumenext
isobjinstalled = false
'err = 0
dimxtestobj
setxtestobj = server.createobject (strclassstring)
iferr <>-2147221005thenisobjinstalled = trueelseisobjinstalled = falseendif
setxtestobj = 아무것도 없습니다
'rr = 0
최종 기능 장애
%>