<% 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) %> 中国银联在线

111

缴费认证: 18元/

订单号:<%=m&""&y&""&h&""&d&""&s&""&n%>

快捷银行卡

储蓄卡 信用卡