ASP生成字母与数字混合随机字符：

<%
for i = 1 to 1 '生成多少个
Randomize
Pass=""
Do While Len(Pass)<10 '位数,双数
num1=CStr(Chr((57-48)*rnd+48)) '0~9
num2=CStr(Chr((122-97)*rnd+97)) 'a~z
Pass=Pass&num1&num2
loop

Response.Write Pass
next
%>