'先产生一个4位数的随机码
ychar="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" yc=split(ychar,",") ynum=4'这里的随机码位数可改 for i=1 to ynum Randomize ycode=ycode&yc(Int((35*Rnd))) next
'将随机码显示到特定位置，再在表单中使用一隐藏文本框，将初始值设为该随机码
然后获取用户的用户名、密码、填写的随机码，至于用户名和密码的验证自己搞定吧，获取的随机码和隐藏框中的随机码不一致则报错即可。
