账号通
    

账号  

密码  

3573

查看

0

回复
主题:[原创]采集图片保存到本地,字节为0的解决方法 [收藏主题]  
kesion 当前离线

2176

主题

0

广播

1

粉丝
添加关注
级别:高三年

用户积分:6810 分
登录次数:1247 次
注册时间:2006/2/23
最后登录:2014/9/16
kesion 发表于:2006/5/27 16:58:00   | 显示全部帖子 查看该作者主题 楼主 
科汛智能建站系统

打开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

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

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.34375秒 powered by KesionCMS 9.0