标题 作者 请选择栏目 所有栏目 <% sql = "select * from lm where lm<>'' order by id asc" Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open sql,conn,1,1 while not rs.eof %> ><%=rs("lm")%> <% sql2 = "select * from lm where lmid='"&rs("id")&"' order by id asc" Set rs2 = Server.CreateObject("ADODB.RecordSet") rs2.Open sql2,conn,1,1 while not rs2.eof %> >　├<%=rs2("lm2")%> <% Set rs33 = Server.CreateObject("ADODB.RecordSet") rs33.Open "select * from [lm] where lmid='"&rs2("id")&"' and LM3<>'' order by id desc",conn,1,1 while not rs33.eof %> >　　├<%=rs33("lm3")%> <% rs33.movenext wend rs2.movenext wend rs.movenext wend rs.close set rs=nothing %> 年份 不限 2005 2006 2007 2008 2009 2010 月份 不限 1 2 3 4 5 6 7 8 9 10 11 12