在这个文件中查找一下:FileUpload
会找到这个函数
把
Dim sFilePath
sFilePath = CombineLocalPaths(sServerDir, sFileName)
改为
Dim sFilePath,ranNum
Randomize
ranNum=int(90000*rnd)+10000
sFilePath = CombineLocalPaths(sServerDir, year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&"."&sExtension)
即可