admin_rndcard.asp

QQ呱唧网

<%
randomize
function RndCardInfo()
Cardyear=year(now())
Cardmonth=month(now())
CardDay=day(now())
CardHour=Hour(now())
CardSecond=Second(Now())
For i=1 to 4
CardRnd=CardRnd & INT(Rnd*9)
next
RndCardInfo=Cardyear&Cardmonth&CardDay&CardHour&CardSecond&CardRnd
end function

function RndPwd()
For i=1 to 8
RndPwd=RndPwd & INT(Rnd*9)
next
end function

%>