asp产生个时间随机数适合编号

<%
'====================================================
' 格式化时间(显示)
' 参数：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)%>