实现代码：
<%
set NewsListRs=server.CreateObject("adodb.recordset")
NewsListRs.open "select top 11 ItemID,Item1,UpdateTime from Cuz_News where SortID in ("&AllChildSort("News",3)&") and "&ItemRecT&" order by UpdateTime desc,ItemID desc",conn,1,1

NewsListRsi=1
do while not NewsListRs.eof
%>
循环列表1
<%
NewsListRs.movenext
NewsListRsi=NewsListRsi+1
if NewsListRsi=4 then exit do
loop
%>
<%do while not NewsListRs.eof%>
循环列表2
<%
NewsListRs.movenext
loop
NewsListRs.close
set NewsListRs=nothing
%>