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

　　代碼如下

　　<%
       功能:檢查是否存在系統組件或組件是否安裝成功
       參數:組件名
       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