<!--#include file="conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="admin/inc/code.asp"-->
<%dim id
id=Trim(Request.QueryString("id"))
if id="" then
	id=0 
end if%>
<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 height="300" 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>
 <br><%if chkmember=true and power(0)="1" then%>
 <table width="200" border="0" align="center" cellpadding="2" cellspacing="0">
   <tr>
     <td bgcolor="<%=SkinSetting(7)%>" class="TdBorderB">
       <%dim sql,rs
	if id=0 then
		response.write "<font color=white>::一级分类::</font>"
	else
		sql="select ClassName from Class where ID="&CInt(id)
		set rs=conn.execute(sql)
		response.write "<font color="&SkinSetting(6)&">::"&rs(0)&"::</font>"
	end if
	%>
     </td>
     <td align="right" bgcolor="<%=SkinSetting(7)%>" class="TdBorderB"><font color="<%=SkinSetting(6)%>">[</font><a href="javascript:history.back()"><font color="<%=SkinSetting(6)%>">返回</font></a><font color="<%=SkinSetting(6)%>">]</font></td>
   </tr>
 </table>
 <table width="200" border="0" align="center" cellpadding="2" cellspacing="0">
   <tr>
     <td class="TdBorderB">&nbsp;</td>
   </tr>
   <%
sql="select ID,ClassName,ChildID from Class where ParentID="&Cint(id)&" order by Sequence"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
response.write "<tr><td colspan=5 align=center bgcolor=#EEEEEE>没有下级分类</td></tr>"
else
do while not rs.eof%>
   <tr>
     <td align="center" bgcolor="<%=SkinSetting(4)%>" class="TdBorderRB"><a href="post_step1.asp?id=<%=rs(0)%>"><%=rs(1)%></a>
         <%if rs(2)<>"" then response.write "("&UBound(Split(rs(2),","))+1&")" end if
		if id<>0 then response.write "&nbsp;[<a href=post_step2.asp?id="&rs(0)&">添加软件</a>]"%>
     </td>
   </tr>
   <%rs.movenext
loop
end if
set rs=nothing
else
	response.write "<br><br><br><center><font color=red class=size14><b>您没有发布软件的权限！</b></font></center>"
end if
conn.close
set conn=nothing%>
 </table>
 <p>&nbsp;</p>
</td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="footer.asp"-->
</body>
</html>