asp代碼實(shí)現(xiàn)檢測(cè)組件是否安裝的函數(shù)
更新時(shí)間：2007年08月08日 12:06:21 作者：
<%
'******************************
'函數(shù)：IsObjInstalled(strClassString)
'參數(shù)：strClassString,組件對(duì)象名
'作者：阿里西西
'日期：2007/7/13
'描述：檢測(cè)組件是否安裝
'示例：<%=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,組件對(duì)象名
'作者：阿里西西
'日期：2007/7/13
'描述：檢測(cè)組件是否安裝
'示例：<%=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ù)庫(kù)時(shí)出現(xiàn)死鎖.ldb的解決方法
在一天某個(gè)時(shí)間段內(nèi)打不開，等待好幾分鐘就會(huì)說(shuō)asp腳本超時(shí)，但FTP可以登陸進(jìn)去，查看數(shù)據(jù)庫(kù)目錄時(shí)，發(fā)現(xiàn)與數(shù)據(jù)庫(kù)（我的數(shù)據(jù)庫(kù)是access數(shù)據(jù)庫(kù)）同名的記錄鎖定信息文件 (.ldb文件)一直都在那里2009-04-04
asp 橫排顯示數(shù)據(jù)的方法，實(shí)際上就是控制tr td來(lái)實(shí)現(xiàn)多行多列的實(shí)現(xiàn)方法，大家可以先用靜態(tài)的表格然后循環(huán)輸出就可以了。2009-07-07
本文再和大家分享一些ASP程序設(shè)計(jì)中經(jīng)常用到的源代碼。適合初學(xué)者閱讀。希望對(duì)你有幫助，一起來(lái)看吧！2015-10-10
使用asp代碼突破圖片的防盜連...2007-01-01
asp中需要獲取某年總共有多少天，主要是利用了asp中的DatePart函數(shù)2012-07-07
asp 根據(jù)IP地址自動(dòng)判斷轉(zhuǎn)向分站的代碼
根據(jù)IP地址自動(dòng)判斷轉(zhuǎn)向分站的代碼 這個(gè)是一個(gè)不錯(cuò)的解決之道，可以緩解服務(wù)器壓力過(guò)大等一些問(wèn)題2008-11-11
生成rss和xml聚合主要是方便訂閱，讓用戶快速知道您的網(wǎng)站的更新。2009-02-02
多域名綁定到一個(gè)空間訪問(wèn)不同首頁(yè)的技巧
多域名綁定到一個(gè)空間訪問(wèn)不同首頁(yè)的技巧...2006-09-09
解決ASP（圖像）上傳漏洞的方法...2006-12-12
asp可以輕松將字符串類型轉(zhuǎn)化為其它類型的函數(shù)2008-05-05