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

ASP判斷dll文件是否已經注冊的簡單函數

2013-11-13 10:46:32  來源: .NET編程 

  代碼如下

  <%
       功能:檢查是否存在系統組件或組件是否安裝成功
       參數:組件名
       Function IsObjInstalled(strClassString)
      On Error Resume Next
      IsObjInstalled = False
      Err =
      Dim xTestObj
      Set xTestObj = ServerCreateObject(strClassString)
      If = Err Then IsObjInstalled = True
      Set xTestObj = Nothing
      Err =
       End Function
       獲取系統組件的版本號
       Function getver(Classstr)
     On Error Resume Next
     getver=""
     Err =
     Dim xTestObj
     Set xTestObj = ServerCreateObject(Classstr)
     If = Err Then getver=xtestobjversion
     Set xTestObj = Nothing
     Err =
       End Function
       %>
 

  
       調用方法如下

  代碼如下

  <%
       if IsObjInstalled("fsofile") =True then
     responsewrite("已經安裝")&getver("fsofile")
       end if
       %>
 


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