男女做爽爽爽网站-男女做羞羞高清-男女做爰高清无遮挡免费视频-男女做爰猛烈-男女做爰猛烈吃奶啪啪喷水网站-内射白浆一区

<%
'******************************
'函數：IsObjInstalled(strClassString)
'參數：strClassString,組件對象名
'描述：檢測組件是否安裝
'示例：<%=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
%>

該文章在 2011/2/16 11:17:33 編輯過