asp判斷服務器是否安裝了某個組件，也就是是否安裝了某個dll文件，判斷某個組件是否在服務器注冊了，asp組件很多，它的判斷可以減少很多asp錯誤，主要是用下面的函數： 復制代碼 代碼如下: <% '功能:檢查是否存在系統組件或組件是否安裝成功 '參數:組件名 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 '獲取系統組件的版本號 Function getver(Classstr) On Error Resume Next getver="" Err = 0 Dim xTestObj Set xTestObj = Server.CreateObject(Classstr) If 0 = Err Then getver=xtestobj.version Set xTestObj = Nothing Err = 0 End Function %>
調用方法如下： 復制代碼 代碼如下: <% if IsObjInstalled("fso.file") =True then response.write("已經安裝")&getver("fso.file") end if %>
