Dim cRs,cSql
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
%>
<tr>
<td><%=lRs("tk_id")%></td>
</tr>
<%
lRs.Movenext
loop
lRs.Close
set lRs=nothing
cRs.Movenext
loop
cRs.Close
set cRs=nothing
-----------------------------------------------------------------------
我想把列出的tk_id放入数组,该怎么写
比如现在读取的记录是
3
6
7
我想弄成这样3,6,7
并且这个记录数不是固定的
请高手回答,谢谢
这个只能列出子循环的,我想列出全部循环的?谢谢高手