<!--#Include file="fl_config.asp"-->

<%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo = "Select * From BigClass Order By sj Desc"
rscd.Open sqlInfo,Conn,1,1
if not rscd.eof then
rscd.movefirst
%>
<SCRIPT language=JavaScript type=text/JavaScript>
function EH_no(src, clrOver)
{
if(!src.contains(event.fromElement))
{
src.bgColor = clrOver;
}
}
function EH_no(src)
{
if(!src.contains(event.fromElement))
{
src.bgColor = '#B2DDFF';
}
}
function EH_nbo(src, clrIn)
{
if(!src.contains(event.toElement))
{
src.bgColor = clrIn;
}
}
function EH_nbo(src)
{
if(!src.contains(event.toElement))
{
src.bgColor = '';
}
}

</SCRIPT>
<SCRIPT language=JavaScript type=text/JavaScript>
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}
//
-->
</SCRIPT>
<TABLE cellSpacing=0 cellPadding=0 width="<%=cdkd%>" border=0>
                    <TBODY>
<%do while not rscd.eof%>
                    <TR>
<%
for i=1 to ls
if not rscd.eof then
strcbid=rscd("id")
strcbigclassname=rscd("BigClassName")
set rscd2= Conn.Execute("Select Count(InfoKey) From Dat_Information where State = 1 and dl='"&strcbid&"'")
dlsl = rscd2(0)
%>
<TD height="20" onmouseover="javascript:EH_no(this);MM_showHideLayers('Layer<%=strcbid%>','','show')" onmouseout="javascript:EH_nbo(this);MM_showHideLayers('Layer<%=strcbid%>','','hide')" width="<%=100/ls%>%">
<A href="<% =gqwebdir%>list.asp?bid=<%=strcbid%>"  class="menu"><%=strcbigclassname%>(<%=dlsl%>)</A>
<DIV id=Layer<%=strcbid%> style="POSITION: absolute;VISIBILITY: hidden;">
<%
set rscd1 = Server.CreateObject("ADODB.Recordset")
sqlInfo1 = "Select * From smallClass where dl='"&strcbid&"' Order By sj Desc"
rscd1.Open sqlInfo1,Conn,1,1
if not rscd1.eof then
rscd1.movefirst
%>
                        <TABLE cellSpacing=0 cellPadding=0 border=0><TBODY><TR><TD>
                              <TABLE cellSpacing=1 cellPadding=0 width="240" bgColor=#85c1db border=0>
                                <TBODY><%do while not rscd1.eof%>
                                <TR bgColor=#ffffff>
<%
for j=1 to 2
if not rscd1.eof then
strcsid=rscd1("id")
set rscd3= Conn.Execute("Select Count(InfoKey) From Dat_Information where State = 1 and xl='"&strcsid&"'")
xlsl = rscd3(0)
xlname=rscd1("smallClassName")
xlcd=18*len(xlname)
if xlcd<=100 then
xlcd=100
end if
if xlcd>=300 then
xlcd=200
end if
rscd3.close
set rscd3=nothing
%>
                                <TD width="<%=xlcd%>" height=23 onmouseover=javascript:EH_no(this); onmouseout=javascript:EH_nbo(this); align="left">&nbsp; <A href="<% =gqwebdir%>list.asp?sid=<%=strcsid%>" class="a01"><%=xlname%>(<%=xlsl%>)</A></TD>
<%else%>
<TD height=23 onmouseover=javascript:EH_no(this); 
                                onmouseout=javascript:EH_nbo(this); 
                                width="50%" align="center">&nbsp; &nbsp; </TD>
<%end if
if not rscd1.eof then
rscd1.movenext
end if
next
%>
                                </TR>
<%loop%>
                                </TBODY></TABLE>
</TD>
                            <TD vAlign=top width=2 bgColor=#707070><IMG 
                              height=4 src="images/cc.gif" 
                              width=2></TD></TR>
                          <TR>
                            <TD bgColor=#707070 height=4><IMG height=4 
                              src="images/cc.gif" 
width=4></TD>
                            <TD bgColor=#707070 
                        height=4></TD></TR></TBODY></TABLE><%
end if
rscd1.close
set rscd1=nothing
%></DIV></td>
<%end if
if not rscd.eof then
rscd.movenext
py=py+85*(ls-1)
end if
next
%>
</TR>
<%
py=py-85*ls
loop%>
</TBODY></TABLE>
<%
end if
rscd.close
set rscd=nothing
%>