请问VBScript里面如何得到比秒单位更小的时间？

[winfielder]

我需要用当前时间作为上传文件的文件名，可是我只能用second(now)得到当前的秒值。
请问VBScript里面如何得到比秒单位更小的时间？

[nbchp]

randomize
ranNum=int(900*rnd)+100
filename=year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&ranNum&".jpg"

文件名=年月日+时分秒+随机数+扩展名
这样重复的概率很低，除非你在1秒内同时上传了NNN个文件

[超级大笨狼]

测试脚本执行速度，输入一个正整数n,用脚本输出从1到n的全部排列顺序
<SCRIPT LANGUAGE=vbscript >
t1=timer()
Dim n
Dim s()
Dim i
Dim j
Dim k
Dim p0
Dim p
Dim cc
n = 6
p0 = 1
For j = 2 To n
p0 = p0 * j
Next
ReDim s(2,p0)
s(0, 0) = 1
s(0, 1) = 1
For i = 2 To n
p = 1
For j = 2 To i
p = p * j
Next
s(1, 0) = p
For k = 1 To s(0, 0)
For j = 1 To i
s(1, i * (k - 1) + j) = Left(s(0, k), j - 1) & i & Right(s(0, k), i - j)

Next

Next
For j = 0 To p
s(0, j) = s(1, j)
Next

Next
cc = s(1, 1)
For i = 2 To p0
cc = cc & "<br/>" & s(1, i)
Next
document.write cc
t2=timer()
msgbox t2-t1
</SCRIPT>
执行时间是：
n=6的时候0.03125
n=7的时候3.9375

[超级大笨狼]

Visual Basic Scripting Edition

Timer 函数
请参阅
Randomize 语句
要求
版本 5
返回午夜 12 时以后已经过去的秒数。

Timer
说明
下面的例子使用 Timer 函数来确定 For...Next 循环 N 次所需的时间：

Function TimeIt(N)
Dim StartTime, EndTime
StartTime = Timer
For I = 1 To N
Next
EndTime = Timer
TimeIt = EndTime - StartTime
End Function
要求
版本 5

请参阅
Randomize 语句



--------------------------------------------------------------------------------

© 2001 Microsoft Corporation. 保留所有权利。

[winfielder]

thank nbchp(生命过客),这是一种解决方法
不过我还是想知道有没有得到豪秒的函数