当前位置: 首页IT技术 → 查看服务器是否支持FSO的实例代码分享

查看服务器是否支持FSO的实例代码分享

更多

下面提供给大家的是关于查看服务器是否支持FSO的实例代码分享,希望能够帮助到大家。

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 %>

热门评论
最新评论
昵称:
表情: 高兴 可 汗 我不要 害羞 好 下下下 送花 屎 亲亲
字数: 0/500 (您的评论需要经过审核才能显示)