<%
On Error Resume Next
IsObjInstalled = "系统支持FSO"
Err.clear()
Dim xTestObj
Set xTestObj = Server.CreateObject("Scripting.FileSystemObject")'创建FSO对象
If Err Then
Err.clear()
IsObjInstalled = "系统不支持FSO"
End If
Set xTestObj = Nothing
Response.Write (IsObjInstalled)
%>
用这个函数检测下你的系统是否支持FSO对象