 
<% 
'功能:檢查是否存在系統(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)組件的版本號(hào) 
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)用方法如:

復(fù)制代碼代碼如下:

 
<% 
if IsObjInstalled("fso.file") =True then 
response.write("已經(jīng)安裝")&getver("fso.file") 
end if 
%> 

您可能感興趣的文章:

相關(guān)文章

asp中command的在單條記錄時(shí),有些字段顯示為空的問題
網(wǎng)上找到一些資料,關(guān)于游標(biāo)這個(gè)問題,還是無法放進(jìn)去(如果方法找到的話,還可以改) 之前的sql這么寫,但是沒有效果有些非順序的值會(huì)丟失
2008-07-07
asp xmlhttp下載一句話
asp中通過xmlhttp下載一句話代碼，需要的朋友可以參考下
2012-10-10
flash與js通訊方法
flash與js通訊方法...
2007-04-04
asp 實(shí)現(xiàn)檢測(cè)字符串是否為純字母和數(shù)字組合的函數(shù)
asp 實(shí)現(xiàn)檢測(cè)字符串是否為純字母和數(shù)字組合的函數(shù)...
2007-08-08
ASP Access實(shí)現(xiàn)網(wǎng)站計(jì)數(shù)器（訪問量）
學(xué)習(xí)asp的朋友需要了解下
2008-11-11
asp 防盜鏈代碼(徹底屏蔽迅雷，旋風(fēng)，快車下載站內(nèi)資源)
asp 防盜鏈代碼(徹底屏蔽迅雷，旋風(fēng)，快車下載站內(nèi)資源) ，判斷是不是下載工具下載，是則報(bào)404錯(cuò)誤。
2010-04-04
asp磁盤緩存技術(shù)使用的代碼
系統(tǒng)包括兩個(gè)文件，其實(shí)可以合并為一個(gè)。之所以分為兩個(gè)是因?yàn)椴糠謿⒍拒浖?huì)因?yàn)槔镞吅蠪SO、XMLHTTP操作而被認(rèn)為是腳本木馬
2007-05-05
asp中常用的字符串安全處理函數(shù)集合(過濾特殊字符等)
在asp編寫中，我們需要注意特殊字符串的處理，防止被黑客利用。使用asp的朋友一定要參考下。
2011-01-01
ASP下的兩個(gè)防止SQL注入式攻擊的Function
ASP下的兩個(gè)防止SQL注入式攻擊的Function...
2007-10-10
幾個(gè)經(jīng)典的ASP應(yīng)用
幾個(gè)經(jīng)典的ASP應(yīng)用...
2007-01-01