作用：驗證組件是否安裝 '參數(shù)：組件名稱 Public Function IsObjInstall(obj) Dim IsObj On Error Resume Next Set IsObj = Server.CreateObject(obj) if Err = 0 then Rem IsObjInstall = "√"
IsObjInstall = "True" else Rem IsObjInstall = "<span style=""color:#FF0000"">×</span>" IsObjInstall = "Flase" end If Set IsObj = Nothing If Err <> 0 Then Err.Clear End Function
