<!--#include file="conn.asp"-->
<!--#include file="chkadmin.asp"-->
<%dim classid,softid
classid=Trim(Request.QueryString("classid"))
softid=Trim(Request.QueryString("softid"))
if classid="" then
	classid=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>
</head>

<body>
<table width="200" border="0" align="center" cellpadding="2" cellspacing="0">
  <tr> 
    <td bgcolor="#708090" class="TdBorderB"> 
<%dim sql,rs
	if classid=0 then
		response.write "<font color=white>::一级分类::</font>"
	else
		sql="select ClassName from Class where ID="&CInt(classid)
		set rs=conn.execute(sql)
		response.write "<font color=white>::"&rs(0)&"::</font>"
	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="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(classid)&" 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 align="center" class="TdBorderRB"><a href="soft_chgclass.asp?softid=<%=softid%>&classid=<%=rs(0)%>"><%=rs(1)%></a> 
        <%if rs(2)<>"" then response.write "("&UBound(Split(rs(2),","))+1&")" end if
		if classid<>0 then response.write "&nbsp;[<a href=soft_chgclass_save.asp?softid="&softid&"&classid="&rs(0)&">确定</a>]"%>
    </td>
  </tr>
  <%rs.movenext
loop
end if
set rs=nothing%>
</table>
</body>
</html>
<%conn.close
set conn=nothing%>