asp訂單號 不重復

超強固定的18位隨機數，日期時間+4位隨機數，永不重復

<%

y=cstr(year(now()))

m=cstr(month(now()))

If len(m)=1 Then

m="0"&m

end if

d=cstr(day(now()))

If len(d)=1 Then

d="0"&d

end if

h=cstr(hour(now()))

If len(h)=1 Then

h="0"&h

end if

n=cstr(minute(now()))

If len(n)=1 Then

n="0"&n

end if

s=cstr(second(now()))

If len(s)=1 Then

s="0"&s

end if

str_now=y&""&m&""&d&""&h&""&n&""&s

Function gen_key(digits)

dim char_array(10)

char_array(1) = "1"

char_array(2) = "2"

char_array(3) = "3"

char_array(4) = "4"

char_array(5) = "5"

char_array(6) = "6"

char_array(7) = "7"

char_array(8) = "8"

char_array(9) = "9"

randomize

do while len(output) < digits

num = char_array(Int((9 - 1 + 1) * Rnd + 0))

output = output + num

loop

gen_key = str_now & output

End Function

strrad=gen_key(4)

response.Write(strrad)

%>