<p>查看服务器是否支持FSO</p> <p>Function IsObjInstalled(strClassString)<br /> On Error Resume Next<br /> IsObjInstalled = False<br /> Err = 0<br /> Dim xTestObj<br /> Set xTestObj = Server.CreateObject(strClassString)<br /> If 0 = Err Then IsObjInstalled = True<br /> Set xTestObj = Nothing<br /> Err = 0<br /> End Function<br /> &lt;% if IsObjInstalled(&quot;Scripting.FileSystemObject&quot;) = False Then %&gt;<br /> 不支持FSO<br /> &lt;% Else %&gt;<br /> 支持FSO<br /> &lt;% End If %&gt;</p>