asp代碼實(shí)現(xiàn)檢測組件是否安裝的函數(shù)
更新時(shí)間:2007年08月08日 12:06:21 作者:
<%
'******************************
'函數(shù):IsObjInstalled(strClassString)
'參數(shù):strClassString,組件對象名
'作者:阿里西西
'日期:2007/7/13
'描述:檢測組件是否安裝
'示例:<%=IsObjInstalled(strClassString)%>
'******************************
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
'Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err<>-2147221005 Then IsObjInstalled = True Else IsObjInstalled = False End IF
Set xTestObj = Nothing
'rr = 0
End Function
%>
'******************************
'函數(shù):IsObjInstalled(strClassString)
'參數(shù):strClassString,組件對象名
'作者:阿里西西
'日期:2007/7/13
'描述:檢測組件是否安裝
'示例:<%=IsObjInstalled(strClassString)%>
'******************************
Function IsObjInstalled(strClassString)
On Error Resume Next
IsObjInstalled = False
'Err = 0
Dim xTestObj
Set xTestObj = Server.CreateObject(strClassString)
If Err<>-2147221005 Then IsObjInstalled = True Else IsObjInstalled = False End IF
Set xTestObj = Nothing
'rr = 0
End Function
%>
相關(guān)文章
Asp 操作Access數(shù)據(jù)庫時(shí)出現(xiàn)死鎖.ldb的解決方法
在一天某個(gè)時(shí)間段內(nèi)打不開,等待好幾分鐘就會說asp腳本超時(shí),但FTP可以登陸進(jìn)去,查看數(shù)據(jù)庫目錄時(shí),發(fā)現(xiàn)與數(shù)據(jù)庫(我的數(shù)據(jù)庫是access數(shù)據(jù)庫)同名的記錄鎖定信息文件 (.ldb文件)一直都在那里2009-04-04asp 根據(jù)IP地址自動(dòng)判斷轉(zhuǎn)向分站的代碼
根據(jù)IP地址自動(dòng)判斷轉(zhuǎn)向分站的代碼 這個(gè)是一個(gè)不錯(cuò)的解決之道,可以緩解服務(wù)器壓力過大等一些問題2008-11-11