<!--#include file="conn.asp"-->
<!--#include file="chkadmin.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>无标题文档</title>
<link href="../style.css" rel="stylesheet" type="text/css">
<STYLE>
BODY {
	    scrollbar-face-color : #96A2AD;
	    scrollbar-shadow-color : #96A2AD;
	    scrollbar-highlight-color : #96A2AD;
	    scrollbar-3dlight-color : #96A2AD;
	    scrollbar-darkshadow-color : #96A2AD;
	    scrollbar-track-color : #CCCCCC;
	    scrollbar-arrow-color : #FFFFFF;
}
</STYLE>
<SCRIPT language=JScript>
function del(id)
{
    if ( confirm("若要删除此分类，\n则此分类下的软件也会被删除！\n您确定要删除吗？"))
        {
            window.location.href = "class_del.asp?id=" + id
        }
}
</SCRIPT>
</head>

<body>
<table width="60%" border="0" align="center" cellpadding="2" cellspacing="0">
  <tr> 
    <td bgcolor="#708090" class="TdBorderB"> <%dim sql,rs,ClassName,ParentStr,ParentNum,i
	response.write "<a href=class_list.asp><font color=white>一级分类</font></a>"
	if id<>0 then
		sql="select ClassName,ParentStr from Class where ID="&CInt(id)
		set rs=conn.execute(sql)
		ClassName=rs(0)
		ParentStr=Split(rs(1),",")
		ParentNum=UBound(ParentStr)
		if ParentStr(0)="0" then
			response.write "<font color=white> \ "&ClassName&"</font>"
		else
			response.write "<font color=white> \ </font>"	
			for i=0 to ParentNum
				sql="select ID,ClassName from Class where ID="&CInt(ParentStr(i))
				set rs=conn.execute(sql)
				response.write "<a href=class_list.asp?id="&rs(0)&"><font color=white>"&rs(1)&"</font></a> <font color=white>\</font> "
			next
			response.write "<font color=white>"&ClassName&"</font>"
		end if
	end if
	%> </td>
    <td align="right" bgcolor="#708090" class="TdBorderB"><font color="#FFFFFF">[</font><a href="javascript:history.back()"><font color="#FFFFFF">返回</font></a><font color="#FFFFFF">]</font></td>
  </tr>
</table>
<table width="60%" border="0" align="center" cellpadding="2" cellspacing="0">
  <tr> 
    <td class="TdBorderB">&nbsp;</td>
    <td align="center" class="TdBorderB">&nbsp;</td>
    <td align="center" class="TdBorderB">&nbsp;</td>
    <td align="center" class="TdBorderB">&nbsp;</td>
    <td align="center" 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 bgcolor="#EEEEEE"> 
    <td class="TdBorderRB"><li type="circle"><a href="class_list.asp?id=<%=rs(0)%>"><%=rs(1)%></a> 
        <%if rs(2)<>"" then response.write "("&UBound(Split(rs(2),","))+1&")" end if%>
      </li></td>
    <td width="40" align="center" class="TdBorderRB"><a href=class_move.asp?id=<%=rs(0)%>&action=up>上移</a></td>
    <td width="40" align="center" class="TdBorderRB"><a href=class_move.asp?id=<%=rs(0)%>&action=down>下移</a></td>
    <td width="40" align="center" class="TdBorderRB"><a href=class_edit.asp?id=<%=rs(0)%>>编辑</a></td>
    <td width="40" align="center" class="TdBorderB"><a href=javascript:del(<%=rs(0)%>)>删除</a></td>
  </tr>
  <%rs.movenext
loop
end if
set rs=nothing%>
</table>
<br>
<table width="60%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center" class="TdBorderB"> 
      <form name="form1" method="post" action="class_add_save.asp">
        
        <input name="id" type="hidden" id="id" value="<%=id%>">
        新建同级分类： 
        <input name="ClassName" type="text" class="input" id="ClassName" size="22">
        <%if power(5)="0" then
	response.write "&nbsp;<font color=red>您没有添加分类的权限</font>"
else
	response.write "<input name='Submit' type='submit' class='button' value=' 提 交 '>&nbsp;&nbsp;"
end if
%>
      </form>
    
    </td>
  </tr>
</table>
</body>
</html>
<%conn.close
set conn=nothing%>