第2个回答 2011-10-03
randomize
ranNum=int(90000*rnd)+10000 '随机生成一列数字
filename=formPath&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&fileEXT '重新设置文件名
if file.FileSize>0 then ''如果 FileSize > 0 说明有文件数据
file.SaveAs Server.mappath(FileName) ''保存文件
response.write "<script>parent.document.thisform.pic.value='"&FileName&"'</script>" '将上传好的文件路径和名字显示在一个form里
iCount=iCount+1
end if
set file=nothing
next
set upload=nothing ''删除开始时建立的对象本回答被提问者采纳