判斷dll文件是否已經(jīng)注冊(cè)的ASP函數(shù)代碼
更新時(shí)間:2011年09月19日 23:23:27 作者:
有時(shí)候需要判斷服務(wù)器是否按照了dll文件,那么就可以參考下面的代碼進(jìn)行判斷。
asp判斷服務(wù)器是否安裝了某個(gè)組件,也就是是否安裝了某個(gè)dll文件,判斷某個(gè)組件是否在服務(wù)器注冊(cè)了,asp組件很多,它的判斷可以減少很多asp錯(cuò)誤,主要是用下面的函數(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)組件的版本號(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)用方法如下:
<%
if IsObjInstalled("fso.file") =True then
response.write("已經(jīng)安裝")&getver("fso.file")
end if
%>
復(fù)制代碼 代碼如下:
<%
'功能:檢查是否存在系統(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)文章
簡(jiǎn)單的ASP中經(jīng)常用到的代碼[推薦]
簡(jiǎn)單的ASP中經(jīng)常用到的代碼[推薦]...2007-03-03
ASP強(qiáng)制刷新網(wǎng)頁(yè)和判斷文件地址實(shí)例代碼
這篇文章主要介紹了ASP強(qiáng)制刷新網(wǎng)頁(yè)和判斷文件地址實(shí)例代碼,需要的朋友可以參考下2015-09-09
asp的程序能實(shí)現(xiàn)偽靜態(tài)化的方法
asp的程序能實(shí)現(xiàn)偽靜態(tài)化的方法...2007-03-03
解決使用良精企業(yè)建站7.0未注冊(cè)問(wèn)題
解決使用良精企業(yè)建站7.0未注冊(cè)問(wèn)題...2007-04-04
Cookies 欺騙漏洞的防范方法(vbs+js 實(shí)現(xiàn))
考慮到 ASP 開(kāi)發(fā)可以采用 vbs 和 js 兩種語(yǔ)言,這里同時(shí)提供兩種語(yǔ)言的程序代碼(雙語(yǔ)版?YY中……)2009-12-12
我用ASP寫(xiě)的m行n列的函數(shù),動(dòng)態(tài)輸出創(chuàng)建TABLE行列
我用ASP寫(xiě)的m行n列的函數(shù),動(dòng)態(tài)輸出創(chuàng)建TABLE行列...2007-02-02
ASP中Utf-8與Gb2312編碼轉(zhuǎn)換亂碼問(wèn)題的解決方法 頁(yè)面編碼聲明
ASP程序在同一個(gè)站點(diǎn)中,如果有UTF-8編碼的程序,又有GB2312編碼的程序時(shí),在瀏覽UTF-8編碼的頁(yè)面后,再瀏覽當(dāng)前網(wǎng)站GB2312的頁(yè)面,GB2312編碼的頁(yè)面就會(huì)出現(xiàn)亂碼2012-02-02

