Question

网页ASP制作：上传文件的网页如何设置默认文件名

我的上传文件，上传了之后文件名变成了数字，现在想他上传后显示还是默认文件名，不知要改以下代码的哪个位置：
说明：我的这个是将文件上传到指定的文件夹的。
upload.asp
<%
dim contentlen
contentlen=request.totalbytes
if contentlen>10240000 then
response.write "文件太大，超过10M，不允许上传。请返回"
else
dim content
content=request.binaryread(request.totalbytes)
'二进制相互转换
Function getByteString(StringStr)
For i=1 to Len(StringStr)
char=Mid(StringStr,i,1)
getByteString=getByteString&chrB(AscB(char))
Next
End Function
Function getString(StringBin)
getString =""
For intCount = 1 to LenB(StringBin)
getString = getString & chr(AscB(MidB(StringBin,intCount,1)))
Next
End Function
dim upbeg,upend,lineone,linetwo,linethree,line1,line2,line3
upbeg=1
upend=instrb(upbeg,content,getbytestring(chr(10)))
lineone=midb(content,upbeg,upend-upbeg)
upbeg=upend+1
line1=lenb(lineone)
upend=instrb(upbeg,content,getbytestring(chr(10)))
linetwo=midb(content,upbeg,upend-upbeg)
upbeg=upend+1
line2=lenb(linetwo)
upend=instrb(upbeg,content,getbytestring(chr(13)))
linethree=midb(content,upbeg,upend-upbeg)
line3=lenb(linethree)

'获得文件名
dim pp,checknametemp,checklen,checkname,filename
pp=instrb(1,linetwo,getbytestring(chr(46)))
checknametemp=rightb(linetwo,line2-pp+1)
checklen=instrb(1,checknametemp,getbytestring(chr(34)))
checkname=getstring(leftb(checknametemp,checklen-1))
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&checkname

'上传文件
dim alllen,upstream,upstreamend,file
alllen=line1+line2+line3+6
set upstream=server.createobject("adodb.stream")
set upstreamend=server.createobject("adodb.stream")
upstream.type=1
upstreamend.type=1
upstream.open
upstreamend.open
upstream.write content
upstream.position=alllen
file=upstream.read(clng(contentlen-alllen-line1-5))
upstreamend.write file
upstreamend.savetofile(server.mappath("../tupian/lbbs_pic/"&filename))'此处pic改成指定目录下文件夹
upstream.close
upstreamend.close
set upstream=nothing
set upstreamend=nothing
response.write("图片已上传")
end if
%>
应该是改：filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&checkname
如何改呢，变回原来的文件名。

Answer 1

filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&checkname
改成
filename=file.filename，不要重命名

但是如果存在重名文件会出问题，需要判断一下，之所以给文件重新命名就是为了避免这个问题

Answer 2

upstreamend.savetofile(server.mappath("../tupian/lbbs_pic/"&filename))'此处pic改成指定目录下文件夹

吧上面这句话里的filename修改成你需要的文件名即可，例如
upstreamend.savetofile(server.mappath("../tupian/lbbs_pic/abc.jpg"))

Answer 3

你把
pp=instrb(1,linetwo,getbytestring(chr(46)))
checknametemp=rightb(linetwo,line2-pp+1)
checklen=instrb(1,checknametemp,getbytestring(chr(34)))
checkname=getstring(leftb(checknametemp,checklen-1))
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&checkname

这几个取到的是什么，都分别写出来看看，应该就知道如何得到原来的文件名了。
checkname我估计应该是扩展名