<1>一种最为简单的全数字型的方法:

<%dim num1
   dim rndnum
   Randomize
   Do While Len(rndnum)<4   '定义密码的长度或者是位数

   num1=CStr(Chr((57-48)*rnd+48))
   rndnum=rndnum&num1
   loop
'在显示时这样用:response.write rndnum

'在表单中使用时这样用:session("mynum")=rndnum

%>

<2>随机生成数字与字母的组合型的方法:

<%
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
%>