如何使用asp无组件上传时修改文件名称,上传文件名应该是上传者任意指定而不是默认或者由时间自动生成。
无组件上传时不可以使用Text文件域(使用了request.binaryread就不可心再使用request.form),有什么办法能够在上传文件时再指定文件的名称?谢谢...
无组件上传时不可以使用Text文件域(使用了request.binaryread就不可心再使用request.form),有什么办法能够在上传文件时再指定文件的名称?谢谢
展开
2个回答
展开全部
不知道你用的是什么版本的上传工具。
提供一个版本的解决方法吧,梁无惧修改的版本。
将upfilepic_getimg.asp修改:
if upload.form("act")="uploadfile" then
filepath=trim(upload.form("filepath"))
filelx=trim(upload.form("filelx"))
i=0
for each formName in upload.File
set file=upload.File(formName)
filename=file.FileName ' 获得文件名,修改此处
fileExt=lcase(file.FileExt) '得到的文件扩展名不含有.
继续修改,在50行左右
ranNum=int(90000*rnd)+10000
'原始文件名写法
'filename=filepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
filename=filepath&filename ‘修改后的文件名
祝你好运
提供一个版本的解决方法吧,梁无惧修改的版本。
将upfilepic_getimg.asp修改:
if upload.form("act")="uploadfile" then
filepath=trim(upload.form("filepath"))
filelx=trim(upload.form("filelx"))
i=0
for each formName in upload.File
set file=upload.File(formName)
filename=file.FileName ' 获得文件名,修改此处
fileExt=lcase(file.FileExt) '得到的文件扩展名不含有.
继续修改,在50行左右
ranNum=int(90000*rnd)+10000
'原始文件名写法
'filename=filepath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
filename=filepath&filename ‘修改后的文件名
祝你好运
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询