<%
sqqq = ""
sql="select * from downtype where tname like '精品源码%'"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
sqqq=sqqq&""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
rs.open ("select Top 10 * from down where tid in ("&sqqq&") order by date desc"),conn,1,1
if rs.eof then
%>