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)文章
分享一段代碼show.asp?id=26變成show/?26的形式
這篇文章主要介紹了分享一段代碼show.asp?id=26變成show/?26的形式,需要的朋友可以參考下2006-11-11
asp下用datediff實(shí)現(xiàn)計(jì)算兩個(gè)時(shí)間差的函數(shù)
asp下用datediff實(shí)現(xiàn)計(jì)算兩個(gè)時(shí)間差的函數(shù)...2007-11-11
asp使用Weekday函數(shù)計(jì)算項(xiàng)目的結(jié)束時(shí)間
在asp編程開(kāi)發(fā)中,計(jì)算時(shí)間很容易,直接用項(xiàng)目開(kāi)始時(shí)間+天數(shù),即可得到項(xiàng)目結(jié)束時(shí)間,但這里麻煩就在要排除周六和周日這兩個(gè)休息時(shí)間2017-04-04
[教程+分享]具有良好體驗(yàn)度的Web注冊(cè)系統(tǒng)
[教程+分享]具有良好體驗(yàn)度的Web注冊(cè)系統(tǒng)...2007-07-07
ASP生成隨機(jī)數(shù) ASP生成不重復(fù)隨機(jī)數(shù)
這篇文章主要介紹了ASP生成不重復(fù)隨機(jī)數(shù)的方法,需要的朋友可以參考下2014-05-05

