
<TABLE align="center" cellSpacing=0 cellPadding=0 width=210 border=0 style="border-collapse: collapse">
<TBODY>
<TR>
<TD vAlign=middle align=left width=300>
<%
dim Nclasslie,classlie,classid
Set Nclasslie =Server.CreateObject("ADODB.Recordset") 
sql="select top 9 * from jle_class1 order by paixu desc"        
Set classlie = Server.CreateObject("ADODB.Recordset")                          
classlie.open sql,conn,1,1
if not classlie.eof then
ki=0
do while not classlie.eof
ki=ki+1
classid=classlie("id")%>
<TABLE width=210 height="40" 
            border=0 cellpadding="1" cellSpacing=1 bordercolor="#111111" bgColor=#FFFFFF style="border-collapse: collapse">
<TBODY>
<TR>
<TD align=left bgColor=#FFFFFF colspan="3" height="20" style="padding:1px; border-top-style: dotted; border-top-width: 1px" bordercolor="#CCCCCC"><table width="156" height="15" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="41"><div align="center"><img src="img/num-<%=ki%>.gif"/></div></td>
    <td width="115"><a href=info.asp?/=<%=classid%>&cnmai=1><u><b><font style="font-zize:15px; color:#990000"><%=classlie("class1")%></font></b></u></a>
      <%

                set rs=conn.execute("select count(id) from [jle_xinxi] where class1="&classid&"")
                %>
      <font color="#2a00ff">(<%=rs(0)%>)</font></td>
  </tr>
</table></TD>  
</TR>
<%
        sql="select * from jle_class2 where class1="&classid  
		Nclasslie.open sql,conn,1,1  
		do while not Nclasslie.eof
		%>   
<TR>  
<TD align=left bgColor=#FAFAFA width="74" height="17">&nbsp;
  <%if not Nclasslie.eof then%><a href=info.asp?/=<%=classid%>&//=<%=Nclasslie("id")%>&/1=<%=escape(Nclasslie("class2"))%>&cnmai=2 class="a1"><font color="#000000"><%=Nclasslie("class2")%></font></a>  
<%
              set rs=conn.execute("select count(id) from [jle_xinxi] where class1="&classid&" and class2="&Nclasslie("id")&"")
              
              Nclasslie.movenext 
              end if
              %></TD>  
<TD align=left bgColor=#FAFAFA width="58" height="17"><%if not Nclasslie.eof then%><a href=info.asp?/=<%=classid%>&//=<%=Nclasslie("id")%>&/1=<%=escape(Nclasslie("class2"))%>&cnmai=2 class="a1"><font color="#000000"><%=Nclasslie("class2")%></font></a>  
<%
              set rs=conn.execute("select count(id) from [jle_xinxi] where class1="&classid&" and class2="&Nclasslie("id")&"")
              
              Nclasslie.movenext
              end if%></TD>  
<TD align=left bgColor=#FAFAFA width="68" height="17"><%if not Nclasslie.eof then%><a href=info.asp?/=<%=classid%>&//=<%=Nclasslie("id")%>&/1=<%=escape(Nclasslie("class2"))%>&cnmai=2 class="a1"><font color="#000000"><%=Nclasslie("class2")%></font></a>  
<%
              set rs=conn.execute("select count(id) from [jle_xinxi] where class1="&classid&" and class2="&Nclasslie("id")&"")
              
              Nclasslie.movenext  
              end if
              %></TD>  
</TR>
<%
loop               
Nclasslie.Close               
%></TBODY></TABLE>
<%
classlie.movenext               
loop  
end if  

%></TD>
</TR></TBODY></TABLE>
