在这个文件中查找一下：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)
即可