www.pudn.com > Xiao5u_Exam_v2011627.rar > Function.asp, change:2010-04-27,size:521b


<% 
'*************************************************** 
'函数名:IsObjInstalled 
'作  用:检查组件是否已经安装 
'参  数:strClassString ----组件名 
'返回值:True  ----已经安装 
'       False ----没有安装 
'*************************************************** 
Function IsObjInstalled(strClassString) 
	On Error Resume Next 
	IsObjInstalled = False 
	Err = 0 
	Dim xTestObj 
	Set xTestObj = Server.CreateObject(strClassString) 
	If 0 = Err Then IsObjInstalled = True 
	Set xTestObj = Nothing 
	Err = 0 
End Function 
%>