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 Not IsObjInstalled(“Scripting.FileSystemObject”) Then    
    logininfo=“该服务器不支持FSO，故无法使用本程序”    
  elseif not IsObjInstalled(“adodb.stream”) Then    
    logininfo=“服务器ADO组件版本太低，你将无法使用上传功能”    
  end if