如何改变上传文件的名称?

※随风飘荡※

我想要每上传一个文件之后,名字分别变为1,2,3,-------如何做到？？
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
file.SaveToFile Server.mappath(FileName) '保存文件
filename1=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt
' set rs=server.createobject("adodb.recordset")
' sql="select * from uploadpic"
' rs.open sql,dataconn,1,3
'rs.addnew
'rs("picname")=filename1
'username=session("usersessionname")
'rs("username")=username
'rs.update
'rs.close
'set rs=nothing
'dataconn.close
'set dataconn=nothing
msg="The picture is upfiled！"
strJS=strJS & "parent.document.form1.a.value='"&"';"& vbcrlf &"content=parent.document.form1.a.value;"
FileType=right(fileExt,3)
select case FileType
case "jpg","gif","png","bmp"
strJS=strJS &"content=content+'" & filename & "';" & vbcrlf

神①→沙加

filename=SavePath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&"."&fileExt

filename=什么 就是什么

听雨飞扬

问题就出在我要上传5个图片,在另一个页面调用分别叫1/2/3/4/5的图片