[QUOTE]<%
dim i,mychar,my,mycodenum,mycode
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=14
for i=1 to mycodenum
Randomize
mycode=mycode&my(Int((21*Rnd)))
next
%>[/QUOTE]
mychar定义要生成的字符可以包含的内容
mycodenum定义要生成的字符长度