判斷dll文件是否已經(jīng)注冊的ASP函數(shù)代碼
更新時間：2011年09月19日 23:23:27 作者：
有時候需要判斷服務(wù)器是否按照了dll文件，那么就可以參考下面的代碼進行判斷。
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
%>
復制代碼 代碼如下:
<%
'功能:檢查是否存在系統(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
%>
相關(guān)文章
![簡單的ASP中經(jīng)常用到的代碼[推薦]](http://img.jbzj.com/images/xgimg/bcimg0.png)
簡單的ASP中經(jīng)常用到的代碼[推薦]...2007-03-03
這篇文章主要介紹了ASP強制刷新網(wǎng)頁和判斷文件地址實例代碼，需要的朋友可以參考下2015-09-09
asp的程序能實現(xiàn)偽靜態(tài)化的方法...2007-03-03
解決使用良精企業(yè)建站7.0未注冊問題...2007-04-04
Cookies 欺騙漏洞的防范方法(vbs+js 實現(xiàn))
考慮到 ASP 開發(fā)可以采用 vbs 和 js 兩種語言，這里同時提供兩種語言的程序代碼（雙語版？YY中……）2009-12-12
不論在asp中還是asp.net中response.end都是終止輸出內(nèi)容多用于調(diào)試程序的時候用處也很有用，類似設(shè)置斷點，特別是你的程序有重大問題，如有死循環(huán)的時候一般的response.write 查看中間結(jié)果是無法看到的，這時在response.write后加入response.end,這個查看中間結(jié)果很有用2014-10-10![[推薦]ASP編程通用函數(shù)收藏大全](http://img.jbzj.com/images/xgimg/bcimg6.png)
[推薦]ASP編程通用函數(shù)收藏大全...2007-08-08
我用ASP寫的m行n列的函數(shù),動態(tài)輸出創(chuàng)建TABLE行列
我用ASP寫的m行n列的函數(shù),動態(tài)輸出創(chuàng)建TABLE行列...2007-02-02
ASP中Utf-8與Gb2312編碼轉(zhuǎn)換亂碼問題的解決方法 頁面編碼聲明
ASP程序在同一個站點中,如果有UTF-8編碼的程序，又有GB2312編碼的程序時，在瀏覽UTF-8編碼的頁面后，再瀏覽當前網(wǎng)站GB2312的頁面，GB2312編碼的頁面就會出現(xiàn)亂碼2012-02-02
萬能Asp防注入代碼 拒絕攻擊...2007-06-06