账号通
    

账号  

密码  

3116

查看

4

回复
主题:无法远程存图? [收藏主题] 转到:  
godbb 当前离线

66

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:707 分
登录次数:55 次
注册时间:2006/7/4
最后登录:2017/1/14
godbb 发表于:2006/7/16 19:54:00   | 显示全部帖子 查看该作者主题 楼主 
科汛在线商城系统(NET)

最新的cms

居然无法远程存图!!

怎么回事 是到本地127.0.0.1 的

请看:

  • 错误类型:
    msxml3.dll (0x800C0005)
    系统未找到指定的资源。
    D:\DD\ADMIN\ARTICLE\../../SysCls/KS_CommonCls.asp, 第 1405 行

  • 浏览器类型:
    Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; DigExt; Maxthon; .NET CLR 1.1.4322)

  • 网页:
    POST 13566 ??? /admin/Article/Article_add.asp
  • 找到KS_CommonCls.asp 1405行

    是:

    '==================================================
     '过程名:SaveBeyondFile
     '作  用:保存远程的文件到本地
     '参  数:LocalFileName ------ 本地文件名
     '参  数:RemoteFileUrl ------ 远程文件URL
     '==================================================
     Function SaveBeyondFile(LocalFileName,RemoteFileUrl)
      Dim SaveRemoteFile:SaveRemoteFile=True
      dim Ads,Retrieval,GetRemoteData
      Set Retrieval = Server.CreateObject("Microsoft.XMLHTTP")
      With Retrieval
       .Open "Get", RemoteFileUrl, False, "", ""
       .Send       ************这就是1405行,这是什么语句,为什么找不到??
       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.07031秒 powered by KesionCMS 9.0