我想now()的小时随机，请问怎么写

[hackft]

我想now()的小时值随机，请问怎么写

[囧]

Function RandNow()
	Dim curHour, randHour
	Randomize
	curHour = Hour(Now())
	randHour = Int(Rnd() * 24) - curHour
	RandNow = DateAdd("h", randHour, Now())
End Function

[csdn_aspnet]

<% 
'==================================================== 
' 格式化时间(显示) 
' 参数：n_Flag 
'1:"yyyy-mm-dd hh:mm:ss" 
'2:"yyyy-mm-dd" 
'3:"hh:mm:ss" 
'4:"yyyy年mm月dd日" 
'5:"yyyymmdd" 
'6:"mm月dd日" 
'7:"mm-dd" 
'8:"yyyymmddhhmmss" 
'Response.Write(Format_Time(Now(),7)) 
'==================================================== 
Function Format_Time(s_Time, n_Flag) 
    Dim y, m, d, h, mi, s 
    Format_Time = "" 
    IF IsDate(s_Time) = False Then Exit Function 
    y = cstr(year(s_Time)) 
    m = cstr(month(s_Time)) 
    IF len(m) = 1 Then m = "0" & m 
    d = cstr(day(s_Time)) 
    IF len(d) = 1 Then d = "0" & d 
    h = cstr(hour(s_Time)) 
    IF len(h) = 1 Then h = "0" & h 
    mi = cstr(minute(s_Time)) 
    IF len(mi) = 1 Then mi = "0" & mi 
    s = cstr(second(s_Time)) 
    IF len(s) = 1 Then s = "0" & s 
    Select Case n_Flag 
  Case 1 
   ' yyyy-mm-dd hh:mm:ss 
   Format_Time = y & "-" & m & "-" & d & " " & h & ":" & mi & ":" & s 
  Case 2 
   ' yyyy-mm-dd 
   Format_Time = y & "-" & m & "-" & d 
  Case 3 
   ' hh:mm:ss 
   Format_Time = h & ":" & mi & ":" & s 
  Case 4 
   ' yyyy年mm月dd日 
   Format_Time = y & "年" & m & "月" & d & "日" 
  Case 5 
   ' yyyymmdd 
   Format_Time = y & m & d 
  Case 6 
   ' mm月dd日 
   Format_Time = m & "月" & d & "日" 
  Case 7 
   ' mm-dd 
   Format_Time = m & "-" & d 
  Case 8 
   ' yyyymmddhhmmss 
   Format_Time = y & m & d & h & mi & s   
    End Select 
End Function 
'==================================================== 
'产生指定长度的随机字符串 
'length:要生成的字串长度 
'ty:类型，0为数字，1为字母，2为数字与字母，3为数字与大小写字母 
'Response.Write(GetRandomString(120,0)) 
'==================================================== 
Function GetRandomString(length,ty) 
Dim char,output,num 
Dim lenChar 
Select Case ty 
  Case 0 
   char = "1234567890" 
  Case 1 
   char = "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
  Case 2 
   char = "1234567890ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
  Case 3 
   char = "1234567890abcdefghijklmnopqxyzABCDEFGHIJKLMNOPQRSTUVWXYZ" 
End Select 
lenChar = Len(char) 
Randomize 
Do While Len(output) < length 
  num = Mid(char, Int((lenChar * Rnd) + 1), 1) 
  output = output + num 
Loop 
GetRandomString = output 
End Function 
'==================================================== 
%> 
'调用函数 
<%=Format_Time(Now(),8) & GetRandomString(5,0)%>