2885 查看 8 回复

主题：[已解决]有谁能告诉我百度编辑器图片不能上传的问题怎么解决的吗 [收藏主题]

转到：

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:ygr1971 性别:男 积分:8683分 威望:1876 帖子:1404 精华:4 广播:44 粉丝:45 登录次数:124 次 注册时间:2011/11/13 20:56:01 最后登录:2021/11/2 7:36:05 ygr1971 当前离线 1404 主题 44 广播 45 粉丝 级别:版主 用户积分:8683 分 登录次数:124 次 注册时间:2011/11/13 最后登录:2021/11/2	ygr1971 发表于：2014/11/20 16:06:05   | 显示全部帖子 查看该作者主题 楼主  有课程 找生源 就上科汛课堂街 http://bbs.kesion.com/forumthread-1210129.html看这。
	一分钟快速开通线上知识店铺
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:ygr1971 性别:男 积分:8683分 威望:1876 帖子:1404 精华:4 广播:44 粉丝:45 登录次数:124 次 注册时间:2011/11/13 20:56:01 最后登录:2021/11/2 7:36:05 ygr1971 当前离线 1404 主题 44 广播 45 粉丝 级别:版主 用户积分:8683 分 登录次数:124 次 注册时间:2011/11/13 最后登录:2021/11/2	ygr1971 发表于：2014/11/21 9:32:31   | 显示全部帖子 查看该作者主题 沙发  做线上考试培训 就选#科汛网校 把ueditor/asp/uploader.class.asp里面的CheckOrCreatePath函数注释掉，然后替换成以下代码 复制代码 Public Function CreateDir(ByVal crDirname) Dim M_fso CreateDir=False Set M_fso = CreateObject("Scripting.FileSystemObject") If (M_fso.FolderExists(crDirname)) Then CreateDir=False Else M_fso.CreateFolder(crDirname) CreateDir=True End If Set M_fso = Nothing End Function Function CheckOrCreatePath(byval LocalPath) '建立目录的程序，如果有多级目录，则一级一级的创建 on error resume next LocalPath = replace(LocalPath,"\","/") set FileObject = server.createobject("Scripting.FileSystemObject") patharr = split(LocalPath,"/") path_level = ubound(patharr) for i = 0 to path_level if i=0 then pathtmp=patharr(0) & "/" else pathtmp = pathtmp & patharr(i) & "/" cpath = left(pathtmp,len(pathtmp)-1) if not FileObject.FolderExists(cpath) then FileObject.CreateFolder cpath next set FileObject = nothing if err.number<>0 then CreateDIR = false err.Clear else CreateDIR = true end if End Function 然后刷新重试。
	做考试题库 就用#科汛在线考试系统!
	支持(0) | 反对(0) 顶端 底部

＜上一主题 | 下一主题 ＞

首 页 1