账号通
    

账号  

密码  

3679

查看

6

回复
主题:[分享]X1版百度编辑器图片无法上传的解决方法! [收藏主题] 转到:  
ygr1971 当前离线

1404

主题

44

广播

45

粉丝
添加关注
级别:版主

用户积分:8683 分
登录次数:124 次
注册时间:2011/11/13
最后登录:2021/11/2
ygr1971 发表于:2014/11/23 22:11:58   | 只看该作者 查看该作者主题 楼主 
科汛在线商城系统(NET)

原帖是“nioka”发布的,但是因为使用了回复帖,而现在被关闭了。导致许多人无法看到修改方法,特意复制贴上来。


把ueditor/asp/uploader.class.asp里面的CheckOrCreatePath函数注释掉,然后替换成以下代码,然后刷新再试。

    1. Public Function CreateDir(ByVal crDirname)
    2. Dim M_fso
    3. CreateDir=False
    4. Set M_fso = CreateObject("Scripting.FileSystemObject")
    5. If (M_fso.FolderExists(crDirname)) Then
    6. CreateDir=False
    7. Else
    8. M_fso.CreateFolder(crDirname)
    9. CreateDir=True
    10. End If
    11. Set M_fso = Nothing
    12. End Function
    13. Function CheckOrCreatePath(byval LocalPath) '建立目录的程序,如果有多级目录,则一级一级的创建
    14. on error resume next
    15. LocalPath = replace(LocalPath,"\","/")
    16. set FileObject = server.createobject("Scripting.FileSystemObject")
    17. patharr = split(LocalPath,"/")
    18. path_level = ubound(patharr)
    19. for i = 0 to path_level
    20. if i=0 then pathtmp=patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/"
    21. cpath = left(pathtmp,len(pathtmp)-1)
    22. if not FileObject.FolderExists(cpath) then FileObject.CreateFolder cpath
    23. next
    24. set FileObject = nothing
    25. if err.number<>0 then
    26. CreateDIR = false
    27. err.Clear
    28. else
    29. CreateDIR = true
    30. end if
    31. End Function

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
hpu71623 当前离线

857

主题

41

广播

1

粉丝
添加关注
级别:七年级

用户积分:5297 分
登录次数:1266 次
注册时间:2010/8/26
最后登录:2024/2/27
hpu71623 发表于:2014/11/24 18:10:06   | 只看该作者 查看该作者主题 沙发 
科汛在线商城系统(NET)

还是没有说清楚啊,老大

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
bfcm 当前离线

101

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1256 分
登录次数:149 次
注册时间:2007/11/17
最后登录:2017/8/18
bfcm 发表于:2014/12/4 13:04:02   | 只看该作者 查看该作者主题 藤椅 

老师 能否告知,注释掉那几行,增加到 哪里?,或者能否 发一下改好的文件,谢谢了

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
bfcm 当前离线

101

主题

0

广播

0

粉丝
添加关注
级别:一年级

用户积分:1256 分
登录次数:149 次
注册时间:2007/11/17
最后登录:2017/8/18
bfcm 发表于:2014/12/4 13:46:58   | 只看该作者 查看该作者主题 板凳 
做在线知识付费 选科汛云开店
搞不定,能否 详细说一下, 注释掉那几行, 添加到具体地方。谢谢了
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
veryp 当前离线

3738

主题

328

广播

29

粉丝
添加关注
级别:大三

用户积分:14990 分
登录次数:1155 次
注册时间:2006/5/29
最后登录:2023/3/28
veryp 发表于:2015/5/8 18:58:09   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
flower401 当前离线

20

主题

1

广播

0

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

用户积分:33 分
登录次数:8 次
注册时间:2015/5/17
最后登录:2017/5/13
flower401 发表于:2015/6/24 1:37:25   | 只看该作者 查看该作者主题 地板 
科汛在线网校系统
不解 求详细或修改好的文件 万分感谢
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
flower401 当前离线

20

主题

1

广播

0

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

用户积分:33 分
登录次数:8 次
注册时间:2015/5/17
最后登录:2017/5/13
flower401 发表于:2015/6/24 1:50:21   | 只看该作者 查看该作者主题 7楼 
科汛在线考试系统(NET)
试过 无效 肯定是我哪里不对 求详细 我不是不能上传 而是上传失败 还不是全部 只有部分上传会失败 PS改动点可以上传 原图死活不行 急求解决啊老大
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行4.34766秒 powered by KesionCMS 9.0