%
Randomize
Do While Len(pass)12 '隨機密碼位數
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=passnum1num2num3
loop
%>
%=pass%>

%
sub sjs(n)
randomize
response.write int(rnd*n)
end sub
'n為隨機數的最大值
%>