文件上船问题

[eshao]

文件上传到服务器文件夹的时候，考虑到有可能文件重名所以想给文件名后面加上
一串随机数字或字母，至少1万次（当然这个数越大越好）不重复

如何做到？

[ChinaOk]

直接用当时的时间 然后再加一个随机是最保险的了。

function makefilename(fname)
fname = now()
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
randomize()
tmp=100000+90000*rnd
makefilename=fname & cstr(tmp) &".htm"
end function

这个购安全了吧

[wangfei2428]

randomize
n=(rnd*1 mod 100000 )+1

[eshao]

呵呵，你这个时间的办法好
但rnd（随机）会不会每次都一样？

[cmsoft]

出现时间+随机数相同的机率太小了吧，所以你放心好啦,我就是用ChinaOK的方法

[eshao]

似的，所以给分哈

[eshao]

那
http://www.csdn.net/expert/topic/708/708910.xml?temp=.7122919
后面的temp=.7122919也是随机数了？

[ChinaOk]

是的。这个随机数除了起到一个控制刷新，没有任何意义

[eshao]

什么叫控制刷新？？！

[8988]

随机数，也难免有重复的情况。还是用当前时间表示文件名较好。

[julyclyde]

GetTempName 方法
请参阅
GetAbsolutePathName 方法 | GetBaseName 方法 | GetDrive 方法 | GetDriveName 方法 | GetExtensionName 方法 | GetFile 方法 | GetFileName 方法 | GetFileVersion 方法 | GetFolder 方法 | GetParentFolderName 方法 | GetSpecialFolder 方法
应用于：FileSystemObject 对象
语言
JScript

VBScript

显示所有语言
返回一个随机产生的临时文件或文件夹名，有助于执行那些需要临时文件或文件夹的操作。

object.GetTempName ( );
可选的 object 应为 FileSystemObject 的名称。

说明
GetTempName 方法并不创建文件。它只提供一个临时文件名，可以通过 CreateTextFile 来创建文件。

下面的例子说明了 GetTempName 方法的用法。

[JScript]
var fso, tempfile;
fso = new ActiveXObject("Scripting.FileSystemObject");

function CreateTempFile()
{
var tfolder, tfile, tname, fname, TemporaryFolder = 2;
tfolder = fso.GetSpecialFolder(TemporaryFolder);
tname = fso.GetTempName();
tfile = tfolder.CreateTextFile(tname);
return(tfile);
}
tempfile = CreateTempFile();
tempfile.writeline("Hello World");
tempfile.close();
[VBScript]
Dim fso, tempfile
Set fso = CreateObject("Scripting.FileSystemObject")

Function CreateTempFile
Dim tfolder, tname, tfile
Const TemporaryFolder = 2
Set tfolder = fso.GetSpecialFolder(TemporaryFolder)
tname = fso.GetTempName
Set tfile = tfolder.CreateTextFile(tname)
Set CreateTempFile = tfile
End Function

Set tempfile = CreateTempFile
tempfile.WriteLine "Hello World"
tempfile.Close