asp上传图片如何保留原图片名？求助大神

Posted 2023-05-15

asp图片上传以后总会重新命名一个图片名，求助大神。下面是我的代码：
formName=request("formName")
EditName=request("EditName")
set upload=new upload_sdxmf
set file=upload.file("file1")
if file.fileSize>0 then
filenameend=file.filename
filenameend=split(filenameend,".")
n=UBound(filenameend)
filename=filename&filenameend(n)

const filepath="../images/upfile/" '上传路径
const filepathname = "../images/upfile/"
dtNow=Now()
randomize
ranNum=int(90000*rnd)+10000
filename1=year(dtNow) & right("0" & month(dtNow),2) & right("0" & day(dtNow),2) & right("0" & hour(dtNow),2) & right("0" & minute(dtNow),2) & right("0" & second(dtNow),2) & ranNum &"."&fileExt
filename=filepath&filename&filenameend(n)
filelstname=filepathname&filename1&filenameend(n)

参考技术A 在 ASP 中，上传文件时重命名文件名的原因是避免文件名冲突和安全问题。但是，如果您确实需要保留原始文件名，可以通过下面两种方式来实现：

1. 获取上传文件的原始文件名

可以通过上传文件对象的 `OriginalFileName` 属性来获取上传文件的原始文件名，然后将上传文件直接保存到指定的路径：

```asp
set upload = Server.CreateObjectPersits.Uploadset file = upload.Filesfile1if file.Size > Then
' 获取原始文件名
filename = file.OriginalFileName

' 将上传文件直接保存到指定路径下
file.SaveAs(Server.MapPathimages/upfile & & filename)
End If
```

使用这种方式需要注意的是，如果有多个用户上传了同名的文件，后上传的文件可能会覆盖先上传的文件。如果你不想覆盖现有文件，最好对文件名进行进一步处理，例如在文件名前添加时间戳。

2. 拷贝上传文件并使用原始文件名

另一种方法是在上传后将上传的文件保存到临时目录，对文件进行重命名。然后将文件名和原始文件名映射，把上传目录中的重命名后的文件拷贝到正式目录下，并使用原始文件名：

```asp
set upload = Server.CreateObjectPersits.Uploadset file = upload.Filesfile1if file.Size > Then
' 对上传文件进行重命名
filenameend = split(file.FileName,
filename = Trim(filenameend()) & & FormatDateTime(Now(), ) & & filenameend(1)
tempPath = Server.MapPathimages/upfile/temp ' 创建临时目录
Set fso = CreateObjectScripting.FileSystemObject If Not fso.FolderExists(tempPath) Then
fso.CreateFolder tempPath
End If

' 将上传文件保存到临时目录
file.SaveAs (tempPath & & filename)

' 将重命名后的文件拷贝到正式目录并使用原始文件名
Set fso = Nothing
Set fso = CreateObjectScripting.FileSystemObject If Not fso.FileExists(tempPath & & filename) Then
Response.Write文件不存在 Else
fileNameArr = Split(file.OriginalFileName, fileExt = fileNameArr(UBound(fileNameArr))
destPath = Server.MapPathimages/upfile destFileName = destPath & & filenameArr() & & fileExt
fso.CopyFile tempPath & & filename, destFileName, True
End If

' 删除临时目录
fso.DeleteFolder(tempPath)
End If
```

上面代码中，首先对上传文件进行重命名，包括添加时间戳等，然后将上传文件保存到指定的临时目录中。接着将重命名后的文件拷贝到正式目录，并使用原始文件名。最后，删除临时目录。需要注意的是，这种方法需要使用 Scripting.FileSystemObject 对象来操作文件系统，该对象必须先使用 CreateObject 创建。

kindEditor 无法获取 word文档中的图片,如何才能获取？用asp代码网站上使用~

有那些大神能帮助我啊

参考技术A kindEditor怎么和WORD扯一起去了！追问

在编辑器里复制world里的图片，编辑器里不显示图片啊

追答

那肯定不能显示了，你得用图片上传的形式插进编辑器里面！

追问

怎么上传？不会写啊？

本回答被提问者采纳