账号通
    

账号  

密码  

1412

查看

3

回复
主题:[求助]百度编辑器上传问题,谁给 指导一下, 具体怎么修改 [收藏主题] 转到:  
bfcm 当前离线

101

主题

0

广播

0

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

用户积分:1256 分
登录次数:149 次
注册时间:2007/11/17
最后登录:2017/8/18
bfcm 发表于:2014/12/5 9:56:35   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统

有谁指导 注释掉 哪几行, 代码添加到哪里, 谢谢了,教程 说的很简单,没看懂




把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
 
400防伪 www.0000315.com 400电话www.3c3.cn
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2014/12/5 18:26:28   | 只看该作者 查看该作者主题 沙发 
做在线知识付费 选科汛云开店
官方即将发布新补丁,会修复此BUG,不需要自行修改。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
bfcm 当前离线

101

主题

0

广播

0

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

用户积分:1256 分
登录次数:149 次
注册时间:2007/11/17
最后登录:2017/8/18
bfcm 发表于:2014/12/7 13:44:24   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
bfcm 当前离线

101

主题

0

广播

0

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

用户积分:1256 分
登录次数:149 次
注册时间:2007/11/17
最后登录:2017/8/18
bfcm 发表于:2014/12/7 14:33:01   | 只看该作者 查看该作者主题 板凳 
最新版本,标准iis可以上传, 谢谢
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.30078秒 powered by KesionCMS 9.0