asp判斷服務(wù)器是否安裝了某個組件，也就是是否安裝了某個dll文件，判斷某個組件是否在服務(wù)器注冊了，asp組件很多，它的判斷可以減少很多asp錯誤，主要是用下面的函數(shù)： 復制代碼 代碼如下: <% '功能:檢查是否存在系統(tǒng)組件或組件是否安裝成功 '參數(shù):組件名 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 '獲取系統(tǒng)組件的版本號 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 %>
調(diào)用方法如下： 復制代碼 代碼如下: <% if IsObjInstalled("fso.file") =True then response.write("已經(jīng)安裝")&getver("fso.file") end if %>
