28,406
社区成员
发帖
与我相关
我的任务
分享
<%
total = 59
Set dic = CreateObject("Scripting.Dictionary")
For i = 0 To total
dic.Add "_" & i, i
Next
num = 5
s = ""
For i=1 To num
Randomize Timer
n = dic.Count
a = dic.Items()
b = dic.Keys()
k = Int(n * Rnd())
s = s & a(k) & ","
dic.Remove(b(k))
Next
s = Left(s, Len(s)-1)
dt = Now()
y = Year(dt)
m = Month(dt)
d = Day(dt)
h = Hour(dt)
dt = CDate(y & "-" & m & "-" & d & " " & h & ":00")
a = Split(s, ",")
For i=0 To UBound(a)
tm = DateAdd("n", a(i), dt)
Response.Write tm & "<br>"
Next
%>