请教如何在上传文件时更改文件名

Question

用什么上传？
无组件？lyfUpLoad？

Answer 1

<%
dim upload,file,formName,formPath,iCount,snameset upload=new upload_5xSoft ''建立上传对象response.write upload.Version&""  ''显示上传类的版本if upload.form("filepath")="" then   ''得到上传目录
 HtmEnd "请输入要上传至的目录!"
 set upload=nothing
 response.end
else
 formPath=upload.form("filepath")&year(now)&month(now)&"/"
 ''在目录后加(/)
 if right(formPath,1)<>"/" then formPath=formPath&"/"&year(now)&month(now)&"/" 
end ifiCount=0
for each formName in upload.file ''列出所有上传了的文件
 set file=upload.file(formName)  ''生成一个文件对象
 if file.FileSize>0 then         ''如果 FileSize > 0 说明有文件数据
  file.SaveAs Server.mappath(formPath&file.FileName)   ''保存文件
  response.write "<br/><center><font size=2 color=red>上传成功，请复制下边剪切板中内容而后粘贴到图片剪切板内!</font></center><br/>"
 dim thename,fsobj,spp,paths
'文件更名
thename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&right(file.filename,4)
'response.write thename
spp=file.filename
file.filename=thename
file.SaveAs Server.mappath(formPath&file.FileName)
paths=server.mappath("../")&"\bookpic\"&year(now)&month(now)&"\"&spp
set fsobj=server.CreateObject("scripting.filesystemobject")set fsobj=nothing
response.write "<center><input type=text size=40 value=bookpic/"&year(now)&month(now)&"/"&file.filename&"><button onclick=window.clipboardData.setData('text',this.previousSibling.value)>复制</button><br/><br/><a href='javascript:window.close()'><font color=red size=2>关闭窗口</font></a></center>"
  iCount=iCount+1
 end if
 set file=nothing
next
set upload=nothing  ''删除此对象
response.write "<font color=red size=2>"
'Htmend iCount&" 个文件上传成功!</font>"sub HtmEnd(Msg)
 set upload=nothing
 response.write "<br/>"&Msg&" [<a href='javascript:window.close()'><font color=red size=2>关闭窗口</font></a>]</body></html>"
 response.end
end sub
Function GetPP
dim s
s=Request.ServerVariables("path_translated")
GetPP=left(s,instrrev(s,"\",len(s)))
End function
%>这个不错．．根据日期产生文件名．．你可以自己改一下．．．