<%
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=pass&num1&num2&num3
loop
%>
<%=pass%>

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