ASP嵌套循环如何取记录放入数组

已作修改，刚才一时大意

将tk_id放到strArr数组里
Dim cRs,cSql

str = ""

set cRs=server.CreateObject("adodb.Recordset")
cSql="SELECT * FROM tkfl where tkfl_zy='"&ks_zy&"' order by tkfl_px"
cRs.Open cSql,oConn,1,1

Do while not cRs.eof

Dim lRs,lSql
Randomize
set lRs=server.CreateObject("adodb.Recordset")
lSql="SELECT top "&cRs("tkfl_ts")&" tk_id FROM tk where tk_lb="&cRs("tkfl_id")&" order by rnd(-(tk_id +" & rnd() & "))"
lRs.Open lSql,oConn,1,1

Do while not lRs.eof
str = str&lRs("tk_id")&","
%>

<%=lRs("tk_id")%>

<%
lRs.Movenext
loop
lRs.Close
set lRs=nothing

cRs.Movenext
loop
cRs.Close
set cRs=nothing

str = left(str,int(len(str)-1))
strArr = split(str,",")

Strmp=Strmp&"..."