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