<!--#include file="conn.asp"-->
<!--#include file="admin/config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>软件分类 - 3鸟设社下载系统</title>
<STYLE>
BODY {
	    scrollbar-face-color : <%=SkinSetting(10)%>;
	    scrollbar-shadow-color : <%=SkinSetting(11)%>;
	    scrollbar-highlight-color : <%=SkinSetting(12)%>;
	    scrollbar-3dlight-color : <%=SkinSetting(13)%>;
	    scrollbar-darkshadow-color : <%=SkinSetting(14)%>;
	    scrollbar-track-color : <%=SkinSetting(15)%>;
	    scrollbar-arrow-color : <%=SkinSetting(16)%>;
}
.mouseover {
	background-color: <%=SkinSetting(8)%>;
	border: 1px solid <%=SkinSetting(9)%>;
}
.mouseout {
	background-color: <%=SkinSetting(3)%>;
}
.mouseout2 {
	background-color: <%=SkinSetting(4)%>;
}
</STYLE>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="<%=SkinSetting(0)%>" background="<%=SkinSetting(1)%>" leftmargin="0" topmargin="0">
<!--#include file="header.asp"-->
<table width="760" border="0" cellspacing="0" cellpadding="0" align="<%=SiteSetting(9)%>">
  <tr>
    <td bgcolor="<%=SkinSetting(3)%>">
<table width="760" border="0" cellpadding="0" cellspacing="0" class="xuxian">
        <tr> 
          <td valign="top"> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="18" valign="bottom" class="xuxian3">&nbsp;<img src="images/point1.gif" width="17" height="16" align="absmiddle"> 
                  当前位置：<a href="default.asp">首页</a> \ 软件分类</td>
              </tr>
            </table>
<%dim sql,rs
sql="select ID,ClassName,ChildID from Class where ParentID=0 order by sequence"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
	response.write "<br><br><br><br><center>当前没有任何分类！</center><br><br><br><br>"
else
	do while not rs.eof%>
            <br>
            <table width="85%" border="0" align="center" cellpadding="2" cellspacing="0">
              <tr>
                <td bgcolor="<%=SkinSetting(4)%>" class="TdBorderB">::<a href="list.asp?id=<%=rs(0)%>"><%=rs(1)%></a>::</td>
              </tr>
              <tr>
                <td style="line-height:18px">
				<%dim sql2,rs2
				sql2="select ID,ClassName,ChildID from Class where ID in ("&rs(2)&") order by Sequence"
				set rs2=conn.execute(sql2)
				if rs2.eof and rs2.bof then
					response.write "没有下级分类！"
				else
					response.write "┊"
					do while not rs2.eof
						response.write "<a href=list.asp?id="&rs2(0)&">"&rs2(1)&"</a>"
						if isnull(rs2(2)) or rs2(2)="" then 
							response.write "(0)"
						else
							response.write "(<font color=red>"&UBound(Split(rs(2)))+1&"</font>)"
						end if
						response.write "┊"
						rs2.movenext
					loop
				end if
				set rs2=nothing%>
				</td>
              </tr>
            </table>
<%		rs.movenext
	loop
end if
set rs=nothing
conn.close
set conn=nothing%>
            <br>
            <br>
          </td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="footer.asp"-->
</body>
</html>