Function RandNow()

	Dim curHour, randHour

	Randomize

	curHour = Hour(Now())

	randHour = Int(Rnd() * 24) - curHour

	RandNow = DateAdd("h", randHour, Now())

End Function

<% 

'==================================================== 

' 格式化时间(显示) 

' 参数：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)%>