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

[复制链接]

﹎想埝祢⿰

电梯直达

1^#

发表于 2010-1-15 07:27:39 | 只看该作者回帖奖励

|倒序浏览 |阅读模式

我想要每上传一个文件之后,名字分别变为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

收藏0