如何让文件上传后不改变它的文件名

zkjd52 2012-10-06 05:13:21
ASP无组件上传部分代码：下面代码上传文件后。文件名是按日期生成的。我希望文件名是原来的文件名谢谢，如何改
<!--#include file="upfile_class.asp"-->
<%
const upload_type=0 '上传方法：0=无惧无组件上传类，1=FSO上传 2=lyfupload，3=aspupload，4=chinaaspupload

dim upload,oFile,formName,SavePath,filename,fileExt,oFileSize
dim EnableUpload
dim arrUpFileType
dim ranNum
dim msg,FoundErr
dim PhotoUrlID
msg=""
FoundErr=false
EnableUpload=false

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style type="text/css">
<!--
BODY {
BACKGROUND-COLOR: #E1F4EE;
font-size:9pt
}
.tx1 {
height: 20px;
font-size: 9pt;
border: 1px solid;
border-color: #000000;
color: #0000FF
}
-->
</style>
</head>
<body leftmargin="2" topmargin="5" marginwidth="0" marginheight="0" >
<%
if EnableUploadFile="No" then
response.write "系统未开放文件上传功能"
else
select case upload_type
case 0
call upload_0() '使用化境无组件上传类
case else
'response.write "本系统未开放插件功能"
'response.end
end select
end if
%>
</body>
</html>
<%
sub upload_0() '使用化境无组件上传类
set upload=new upfile_class ''建立上传对象
upload.GetData(104857600) '取得上传数据,限制最大上传100M
if upload.err > 0 then '如果出错
select case upload.err
case 1
response.write "请先选择你要上传的文件！"
case 2
response.write "你上传的文件总大小超出了最大限制（200k）"
end select
response.end
end if
PhotoUrlID=Clng(trim(upload.form("PhotoUrlID")))
if PhotoUrlID>0 then
SavePath = "UploadFiles" '存放上传文件的目录
else
SavePath = "UploadFiles" '存放上传文件的目录
end if
if right(SavePath,1)<>"/" then SavePath=SavePath&"/" '在目录后加(/)

for each formName in upload.file '列出所有上传了的文件
set ofile=upload.file(formName) '生成一个文件对象
oFileSize=ofile.filesize
if oFileSize<100 then
msg="请先选择你要上传的文件！"
FoundErr=True
else
select case PhotoUrlID
case 0
if oFileSize>(MaxFileSize*1024) then
msg="文件大小超过了限制，最大只能上传" & CStr(MaxFileSize) & "K的文件！"
FoundErr=true
end if
case 1
if oFileSize>(100000*1024) then
msg="文件大小超过了限制，最大只能上传100M的文件！"
FoundErr=true
end if
end select
end if

fileExt=lcase(ofile.FileExt)
arrUpFileType=split("gif|jpg|bmp|png|swf|doc|rar|xls|exe","|")'如需添加其它类型的文档请在这里添加文档后缀名
for i=0 to ubound(arrUpFileType)
if fileEXT=trim(arrUpFileType(i)) then
EnableUpload=true
exit for
end if
next
if fileEXT="asp" or fileEXT="asa" or fileEXT="aspx" then
EnableUpload=false
end if
if EnableUpload=false then
msg="这种文件类型不允许上传！\n\n只允许上传这几种文件类型：" & "gif|jpg|bmp|png|swf|doc|rar|xls|exe"
FoundErr=true
end if


strJS="<SCRIPT language=javascript>" & vbcrlf
if FoundErr<>true then
randomize
ranNum=int(900*rnd)+100
filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt

ofile.SaveToFile Server.mappath(FileName) '保存文件

response.write "文件上传成功！文件大小为：" & cstr(round(oFileSize/1024)) & "K"
select case PhotoUrlID
case 0
strJS=strJS & "parent.document.myform.PhotoSize1.value='" & cstr(round(oFileSize/1024)) & "';" & vbcrlf
case 1
strJS=strJS & "parent.document.myform.DefaultPicUrl.value='" & fileName & "';" & vbcrlf
end select
else
strJS=strJS & "alert('" & msg & "');" & vbcrlf
strJS=strJS & "history.go(-1);" & vbcrlf
end if
strJS=strJS & "</script>" & vbcrlf
response.write strJS

set file=nothing
next
set upload=nothing
end sub
%>
...全文
684 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
luoqiaoli 2012-11-12
  • 打赏
  • 举报
 回复
我想做一个类似qq邮件那样的接收，发送的系统。可是我有疑惑，比如：我上传一个文件“aa.txt”，发第二封邮件时，也上传了一个“aa.txt”，下载时，文件名不更改。。。
zkjd52 2012-10-06
  • 打赏
  • 举报
 回复
自己研究了下。解决了。非常感谢showbo的帮助
斯洛文尼亚旅游 2012-10-06
  • 打赏
  • 举报
 回复
ofile.SaveToFile Server.mappath(SavePath&ofile.FileName)
zkjd52 2012-10-06
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 的回复:]
对比你的代码，用没注释的代码替换注释掉的
ofile.SaveToFile Server.mappath(FileName)

====>

ofile.SaveToFile Server.mappath(ofile.FileName)
[/Quote]
可以了。但是又出新问题了。。本来保存在网站目录下UploadFiles文件夹里的。现在都保存在网站目录下了。。
斯洛文尼亚旅游 2012-10-06
  • 打赏
  • 举报
 回复
对比你的代码，用没注释的代码替换注释掉的
ofile.SaveToFile Server.mappath(FileName)

====>

ofile.SaveToFile Server.mappath(ofile.FileName)
zkjd52 2012-10-06
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 的回复:]
VBScript code

'ofile.SaveToFile Server.mappath(FileName) '保存文件
ofile.SaveToFile Server.mappath(ofile.FileName)'无惧上传时filename存储原来的文件名
[/Quote]
加在哪行啊。是要替换哪行？？
斯洛文尼亚旅游 2012-10-06
  • 打赏
  • 举报
 回复 
'ofile.SaveToFile Server.mappath(FileName) '保存文件

 ofile.SaveToFile Server.mappath(ofile.FileName)'无惧上传时filename存储原来的文件名
zkjd52 2012-10-06
  • 打赏
  • 举报
 回复
[Quote=引用 1 楼 的回复:]
ofile.Name
[/Quote]
能结合上面代码，写出来吗。。不明白谢谢
孟子E章 2012-10-06
  • 打赏
  • 举报
 回复
ofile.Name

关于附件上传文件名包含特殊字符的问题解决办法
关于附件上传文件名包含特殊字符的问题解决办法
批量修改、替换文件名
此工具可用于windows下批量修改文件名，包括查找替换其中文件名符号；其中支持自定义规定改名规则.
Java代买实现文件上传下载
Java代码实现文件上传下载到服务器本地，包括自定义路径，文件名。
艾恩ASP无组件上传类 2013.12.09.zip
艾恩无组件上传类为自己写的类，不敢夸口说多完美，但能实现基本的功能.包括提取表单数据、上传到不同文件夹、保存到数据库(上传和保存表单可同时进行)、限制上传扩展名、限制上传大小、选择文件保存类型(原文件名和时间随机命名)等！ 艾恩ASP无组件上传类 2013.12.09 更新内容: 修正快速保存时的BUG 上传类的主要的功能如下： 1、自由设置最大上传大小、单文件最大上传大小 2、自由设置允许上传的文件类型 3、可设置文本的编码，以适应各种上传环境 4、内置进度条，用户可选择开启和关闭（需配合客户端程序） 5、多种错误状态处理 6、多种文件保存方式：原文件名、随机文件名、用户自定义文件名 7、自由选择是否覆盖已存在文件 8、完整保存表单数据，支持同名表单，不支持同名文件域 9、可获取常见图片格式的宽高 10、优化的上传过程。。。 程序特点： 1.尽量追求简洁，减少赘余代码 2.全面保存客户提交的信息(普通表单,文件域值,相同表单值) 3.准确获取上传中的错误信息 4.可选择文件保存方式(以原文件名保存和以新文件名保存,新文件名为时间 随机数字组成) 5.文件保存函数简洁,调用方便,并且比较灵活(保存路径和保存方式可随时改变) 6.同时可以获取文件的二进制形式,从而可以实现将二进制数据保存到数据库 7.灵活运用本类,可以实现表单数据和文件同时编辑(这是一般类无法达到的) 8.更多的用途靠大家来发现了..... 9.examples里面有两个很简单的例子,能掌握这两个例子就可以灵活使用本类 全VBS版本 complex 文本文件混合上传示例 muti 多文件上传 single 单文件上传 其中muti包含两种方法上传，index.asp-多文件单个保存；index2.asp多文件循环保存 详细说明见Jo.Upload.pdf
ＡＳＰ．ＮＥＴ　文件上传
上传文件到指定位置，对初学者很有帮助！里边有重要部分的实现代码，有兴趣的同学可以一块儿讨论！
ASP

28,407

社区成员

356,972

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章