文件上船问题

eshao 2002-05-09 04:20:21
文件上传到服务器文件夹的时候,考虑到有可能文件重名所以想给文件名后面加上
一串随机数字或字母,至少1万次(当然这个数越大越好)不重复

如何做到?
...全文
7 点赞 收藏 10
写回复
10 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
julyclyde 2002-05-09
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
回复
8988 2002-05-09
随机数,也难免有重复的情况。还是用当前时间表示文件名较好。
回复
eshao 2002-05-09
什么叫控制刷新??!
回复
ChinaOk 2002-05-09
是的。这个随机数除了起到一个控制刷新,没有任何意义
回复
eshao 2002-05-09

http://www.csdn.net/expert/topic/708/708910.xml?temp=.7122919
后面的temp=.7122919也是随机数了?
回复
eshao 2002-05-09
似的,所以给分哈
回复
cmsoft 2002-05-09
出现时间+随机数相同的机率太小了吧,所以你放心好啦,我就是用ChinaOK的方法
回复
eshao 2002-05-09
呵呵,你这个时间的办法好
但rnd(随机)会不会每次都一样?
回复
wangfei2428 2002-05-09
randomize
n=(rnd*1 mod 100000 )+1
回复
ChinaOk 2002-05-09

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

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

这个购安全了吧
回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2002-05-09 04:20
社区公告
暂无公告