|
主题:[求助]百度编辑器上传问题,谁给 指导一下, 具体怎么修改 [收藏主题] | 转到: |
有谁指导 注释掉 哪几行, 代码添加到哪里, 谢谢了,教程 说的很简单,没看懂 把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) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |