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