<%
IDmsec=(timer*1000) Mod 1000
pid=filepath&year(now)&right("0"&month(now),2)&right("0"&day(now),2)&hour(now)&minute(now)&second(now)&IDmsec
Randomize
Do While Len(pass)<=6 '随机密码位数
num1=CStr(Chr((57-48)*rnd+48)) '0~9
num2=CStr(Chr((90-65)*rnd+65)) 'A~Z
num3=CStr(Chr((122-97)*rnd+97)) 'a~z
pass=pass&num1&num2&num3
loop
pass=pid&pass
%>
<%=pass%>