asp kindeditor 批量上传图片 本地测试成功 在服务器上 上传失败
Posted
tags:
篇首语:本文由小常识网(cha138.com)小编为大家整理,主要介绍了asp kindeditor 批量上传图片 本地测试成功 在服务器上 上传失败相关的知识,希望对你有一定的参考价值。
参考技术A 可能是路径问题,在配置文件upload_json.php中我做asp程序时加kindeditor-4.1.5文本编辑器,上传图片不好用
传图片这种状况
<%
' KindEditor ASP
Dim aspUrl, savePath, saveUrl, maxSize, fileName, fileExt, newFileName, filePath, fileUrl, dirName Dim extStr, imageExtStr, flashExtStr, mediaExtStr, fileExtStr
Dim upload, file, fso, ranNum, hash, ymd, mm, dd, result
aspUrl = Request.ServerVariables("SCRIPT_NAME")aspUrl = left(aspUrl, InStrRev(aspUrl, "/"))
'文件保存目录路径 savePath = "../attached/"
'文件保存目录URL
saveUrl = aspUrl & "../attached/"
'定义允许上传的文件扩展名
imageExtStr = "gif|jpg|jpeg|png|bmp"
flashExtStr = "swf|flv"
mediaExtStr = "swf|flv|mp3|wav|wma|wmv|mid|avi|mpg|asf|rm|rmvb"
fileExtStr = "doc|docx|xls|xlsx|ppt|htm|html|txt|zip|rar|gz|bz2"
'最大文件大小
maxSize = 5 * 1024 * 1024 '5M
Set fso = Server.CreateObject("Scripting.FileSystemObject") If Not fso.FolderExists(Server.mappath(savePath)) Then
showError("上传目录不存在。")
End If
dirName = Request.QueryString("dir") If isEmpty(dirName) Then
dirName = "image"
End If
If instr(lcase("image,flash,media,file"), dirName) < 1 Then
showError("目录名不正确。")
End If
Select Case dirName Case "flash" extStr = flashExtStr
Case "media" extStr = mediaExtStr
Case "file" extStr = fileExtStr
Case Else extStr = imageExtStr
End Select
set upload = new AnUpLoad upload.Exe = extStr
upload.MaxSize = maxSize
upload.GetData()
if upload.ErrorID>0 then
showError(upload.Description)
end if
'创建文件夹 savePath = savePath & dirName & "/"
saveUrl = saveUrl & dirName & "/"
If Not fso.FolderExists(Server.mappath(savePath)) Then
fso.CreateFolder(Server.mappath(savePath))
End If
mm = month(now)
If mm < 10 Then
mm = "0" & mm
End If
dd = day(now)
If dd < 10 Then
dd = "0" & dd
End If
ymd = year(now) & mm & dd
savePath = savePath & ymd & "/"
saveUrl = saveUrl & ymd & "/"
If Not fso.FolderExists(Server.mappath(savePath)) Then
fso.CreateFolder(Server.mappath(savePath))
End If
set file = upload.files("imgFile") if file is nothing then
showError("请选择文件。")
end if
set result = file.saveToFile(savePath, 0, true) if result.error then
showError(file.Exception)
end if
filePath = Server.mappath(savePath & file.filename)fileUrl = saveUrl & file.filename
Set upload = nothingSet file = nothing
If Not fso.FileExists(filePath) Then showError("上传文件失败。")
End If
Response.AddHeader "Content-Type", "text/html; charset=UTF-8" Set hash = jsObject()
hash("error") = 0
hash("url") = fileUrl
hash.Flush
Response.End
Function showError(message) Response.AddHeader "Content-Type", "text/html; charset=UTF-8"
Dim hash
Set hash = jsObject()
hash("error") = 1
hash("message") = message
hash.Flush
Response.End
End Function
%>
怎么改谢谢大家,我的qq326226328
那帮我看看怎么配置呗,我没配置上呀!谢谢你
追答好用了没有啊??
追问我上传空间不好使,
是为什么呀请大家帮我看看呗
这个是因为目录文件夹不存在嘛,你手动建立一个uploadfile文件夹就可以啦,别忘了权限设置为777。
以上是关于asp kindeditor 批量上传图片 本地测试成功 在服务器上 上传失败的主要内容,如果未能解决你的问题,请参考以下文章
Kindeditor编辑器问题:图片上传后返回路径不对?(ASP版)
asp.net在线网页编辑器kindeditor怎么上传图片
我在kindeditor 4.1.9里单张图片可以上传,但是图片不能批量上传,求高手指点。