<%
dim ok(35)
for a=1 to 23
if len(a)=1 then a="0" & a
ok(a)=a
MN=MN & " " & ok(a)
next
s=split(mn)


    Dim lsNums()
    redim lsNums(6)
   
    Randomize
    k = 0
    Do While k < 6
        aaa = Int(Rnd * ubound(split(mn))) + 1
         If s(aaa) <> "tttttttt" Then
            k = k + 1
           
            lsNums(k) =s(aaa)
             s(aaa) = "tttttttt"
            response.Write(lsNums(k)&"<br>")
         End If         
    Loop
for k=1 to 6
  response.write isnums(k) & "<BR>"
   next
%>

代码是先生成一个数组，然后随机取6个不相同的数，但为什么就只能显示，而不能把数组保存下来？！？就是说上述代码是有错的，把最后的for...next去掉就可以正常！！！！如何保存isnums中的值呀？

dim ok(35)
for a=1 to 23
if len(a)=1 then a="0" & a
ok(a)=a
MN=MN & " " & ok(a)
next
这里a是什么类型的变量？

但为什么就只能显示，而不能把数组保存下来？！？
你想保存在哪？数据库中么？你没写保存代码，那怎么保存啊？

split(mn)
分解数组不是这样写的
而是 split(mn," ")

2楼的：我的代码很明显是字符型．

其它楼的：大家没有看我最后的说明吗？？！？！？！代码中的意思就是取出不重的随机数后是给lsNums(k)这个数组，在代码中我能用response.write 来显示它，但我在最后的for next中想把它显示出来就出错了！！！也就是说取出来的数似乎是＂虚＂的.......

不信的话，大家把一楼代码整个复制了调试．就会出错，把最后的for next去了就正常，编程序最怕就是出现这种没有理由的出错代码！！！！！

因为我随机取了数后，还要继续操作的，所以只用来显示是不够的！！！！

dim ok(35)
for a=1 to 23 ' a是整数型
if len(a)=1 then a="0" & a ' a是字符串
ok(a)=a ' a既是整数型又是字符串
MN=MN & " " & ok(a) ' a是整数型
next

这就是所谓矛盾的普遍性，对立统一无处不在……

那假如有一组字符串，改为数组后．就按上面代码所示
dim ok(35)
for a=1 to 23
if len(a)=1 then a="0" & a
ok(a)=a
MN=MN & " " & ok(a)
next
s=split(mn)

把这组字符串处理成数组s，然后我要求随机取不重复的N个数，并最后再赋给另一个数组，最后显示出来，代码应该如何写？

继续急顶....................................

redim 就没有以前的了.

看错了。