當(dāng)前位置: 首頁(yè)IT技術(shù) → 查看服務(wù)器是否支持FSO的實(shí)例代碼分享

查看服務(wù)器是否支持FSO的實(shí)例代碼分享

更多

下面提供給大家的是關(guān)于查看服務(wù)器是否支持FSO的實(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

<% if IsObjInstalled("Scripting.FileSystemObject") = False Then %>

不支持FSO

<% Else %>

支持FSO

<% End If %>

熱門評(píng)論
最新評(píng)論
發(fā)表評(píng)論 查看所有評(píng)論(0)
昵稱:
表情: 高興 可 汗 我不要 害羞 好 下下下 送花 屎 親親
字?jǐn)?shù): 0/500 (您的評(píng)論需要經(jīng)過審核才能顯示)