【Asp】ASP生成字母与数字混合随机字符

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

for i = 1 to 1 '生成多少个
Randomize
Pass=""
Do While Len(Pass)
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
%>