打开syscls/KS_CollectCommonCls.asp这个文件，大约在第901行 

 '==================================================
  '过程名：SaveRemoteFile
  '作  用：保存远程的文件到本地
  '参  数：LocalFileName ------ 本地文件名
  '参  数：RemoteFileUrl ------ 远程文件URL
  '==================================================
  Function SaveRemoteFile(LocalFileName, RemoteFileUrl)
   On Error Resume Next
   SaveRemoteFile = True
   Dim Ads, Retrieval, GetRemoteData
   Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
   With Retrieval
    .Open "Get", RemoteFileUrl, False, "", ""
    .Send
    If .Readystate <> 4 Then
     SaveRemoteFile = False
     Exit Function
    End If
    GetRemoteData = .ResponseBody
   End With
   Set Retrieval = Nothing
   Set Ads = Server.CreateObject("Adodb.Stream")
   With Ads
    .Type = 1
    .Open
    Response.Write GetRemoteData
    .SaveToFile Server.MapPath(LocalFileName), 2
    .Cancel
    .Close
   End With
   Set Ads = Nothing
  End Function
将这个函数，替换为以下这个函数

  '==================================================
  '过程名：SaveRemoteFile
  '作  用：保存远程的文件到本地
  '参  数：LocalFileName ------ 本地文件名
  '参  数：RemoteFileUrl ------ 远程文件URL
  '==================================================
  Function SaveRemoteFile(LocalFileName, RemoteFileUrl)
          SaveRemoteFile=True
   dim Ads,Retrieval,GetRemoteData
   Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
   With Retrieval
    .Open "Get", RemoteFileUrl, False, "", ""
    .Send
    If .Readystate<>4 then
     SaveRemoteFile=False
     Exit Function
    End If
    GetRemoteData = .ResponseBody
   End With
   Set Retrieval = Nothing
   Set Ads = Server.CreateObject("Adodb.Stream")
   With Ads
    .Type = 1
    .Open
    .Write GetRemoteData
    .SaveToFile server.MapPath(LocalFileName),2
    .Cancel()
    .Close()
   End With
   Set Ads=nothing
  End Function

注意：函数名要和原来的函数名一致