Asp初学者常见问题十可以按要求生成随机数的函数

<BR>&lt;%<BR>function gen_key(digits)<BR>dim rndnum,num<BR>Randomize<BR>Do while Len(rndnum)&lt;digits<BR>num = Cstr(Chr((57-48)*rnd+48))<BR>rndnum = rndnum &amp; num<BR>Loop<BR>gen_key = rndnum<BR>End function<BR>Response.write gen_key(1)<BR>%&gt;<BR>想生成几位就几位，只要把1改成相应数字即可<BR>