急，自动生成数子的问题！！！

[leon168]

用0123456789
10个数子通过任意组合成8位的数字
不能有重复

大家望给点提示或者有类似的代码参考最好
先谢谢大家了

[goodera]

<% Function gen_key(digits)
dim char_array(35)
char_array(0) = "0"
char_array(1) = "1"
char_array(2) = "2"
char_array(3) = "3"
char_array(4) = "4"
char_array(5) = "5"
char_array(6) = "6"
char_array(7) = "7"
char_array(8) = "8"
char_array(9) = "9"
char_array(10) = "A"
char_array(11) = "B"
char_array(12) = "C"
char_array(13) = "D"
char_array(14) = "E"
char_array(15) = "F"
char_array(16) = "G"
char_array(17) = "H"
char_array(18) = "I"
char_array(19) = "J"
char_array(20) = "K"
char_array(21) = "L"
char_array(22) = "M"
char_array(23) = "N"
char_array(24) = "O"
char_array(25) = "P"
char_array(26) = "Q"
char_array(27) = "R"
char_array(28) = "S"
char_array(29) = "T"
char_array(30) = "U"
char_array(31) = "V"
char_array(32) = "W"
char_array(33) = "X"
char_array(34) = "Y"
char_array(35) = "Z"
randomize
do while len(output) < digits
num = char_array(Int(35 * Rnd + 0))
output = output + num
loop
gen_key = output
End Function
%>
gen_key(str) ''str为密码位数
这个函数还可以扩展。。如果你还要加上“大小写敏感区分大小写”特性的话，修改数组大小为char_array(50)，然后在后面列出所有可能的小写字符。例如：
char_array(36) = "a"
char_array(37) = "b"
...............类推

你要是只想产生数字得话char_array(10) = "A"到char_array(10) = "Z"得不要

[b4ys]

<%
function makepassword()
randomize timer
str=int((999999-100000+1)*rnd+100000)
makepassword = str
end function
nub=makepassword
response.write nub
%>
“nub”就是自动产生的数，每次都不会重复的

[skyboy0720]

<%
str="0,1,2,3,4,5,6,7,8,9"
codeArr=split(str,",")
arrLen=ubound(codeArr)
Randomize
do while len(rndCode)<8
tempCode=codeArr(cint(rnd()*arrLen))
do while tempCode=right(rndCode,1)
tempCode=codeArr(cint(rnd()*arrLen))
loop
rndCode=rndCode&tempCode
loop
response.write rndCode
%>

[leon168]

这个功能是实现了，先说声谢谢，但这不是我最头痛的

最烦是要在同时生成几个不同的数，要10000个

最左边的边是不能为0的

[guihengzhang]

有了思路就开始写，程序不是一次就写完的，需要很多次修改。

[skyboy0720]

楼上已经说了，思路给你了，剩下就靠你自己了！

[leon168]

我试了很多次循环了
可是出来的都是一样的数
用session也不行
如果有足够的时间让我去整的话那也罢了
这是急的东西，我肯定希望得到一点点启发

[leon168]

解决，给分，谢谢大家