<%set rs=server.CreateObject("adodb.recordset") set rs1=server.CreateObject("adodb.recordset") rs.open "select id,newsort,n_ml from news_sort order by id desc",conn,1,1 do while not rs.eof%> <%rs1.open "select top 8 id,title from news_purpose where newsort='"&rs("id")&"' order by id desc",conn,1,1 do while not rs1.eof%> <%rs1.movenext loop rs1.close%> <%rs.movenext loop rs.close set rs1=nothing set rs=nothing%> <%=rs("newsort")%> 　·.html"><%=rs1("title")%> ">更多...