for i=1 to 10
num =10*i
sql="select id from [tb] where id in (select top 10 id from(select top "&num&" * from [tb]) order by 字符长度 asc) order by rnd(-1*序号 + time())"
set rs=Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
a["&i&"]=rs("id") '得到每个变量
next
随手写的,没检查错误
for i=1 to 10
num =10*i
sql="select id from [tb] where id in (select top 10 id from(select top "&num&" * from [tb]) order by 字符长度 asc) order by rnd(-1*序号 + time())"
set rs=Server.CreateObject ...