ASPupload如何给上传的文件重命名？

请教一下:

   这是我的上传代码,我想给上传后的文件重命名,应该如何写?

   Set upload = Server.CreateObject("persits.upload.1")
   count = upload.save(server.mappath("upload"))
   name=upload.files.item(1).filename
   houzui=mid(name,InStrRev(name, "."))

   重命名的语句：newname=year(date) & month(date) & day(date) & Hour(time) & minute(time) & second(time) & houzui

   但是这里已经先保存文件并取出文件名了，如何先重命名再入库？
   count = upload.save(server.mappath("upload"))
   name=upload.files.item(1).filename