ASP随机生成字符串

<%
dim mychar,my,mycodenum,mycode
mychar="0,1,2,3,4,5,6,7,8,9,a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z" '将数字和小写字母组成一个字符串,也可以是数字和大写字母组成.
  my=split(mychar,",") '将字符串过滤后生成数组
  mycodenum=4 '定义密码的长度或者是位数
  for i=1 to mycodenum
    Randomize
    mycode=mycode&my(Int((21*Rnd))) '数组一般从0开始读取，所以这里为21*Rnd
  next
'在表单中使用时这样用:session("mynum")=mycode

'在网页中显示时这样用:response.write mycode
%>