熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> .NET編程 >> 正文

Asp組件檢測函數

2013-11-13 10:20:02  來源: .NET編程 
 一個Asp組件檢測函數需要的朋友可以直接拿去用中國自學編程網

  \================================================
\作  用檢查組件是否已經安裝
\參  數strClassString 組件名
\返回值True  已經安裝
\        False 沒有安裝
\================================================
Function IsObjInstalled(ByVal strClassString)
 Dim xTestObjClsString
 On Error Resume Next
 IsObjInstalled = False
 ClsString = strClassString
 Err =
 Set xTestObj = ServerCreateObject(ClsString)
 If Err = Then IsObjInstalled = True
 If Err = Then IsObjInstalled = True
 Set xTestObj = Nothing
 Err =
 Exit Function
End Function 


From:http://tw.wingwit.com/Article/program/net/201311/13265.html
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.