www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/soft/softClass_Manage.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% projectRootPath = "../../" '相对当前应用程序根的位置 %> <!-- #include file="../web.config.asp"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta name="robots" content="noindex,nofollow" /> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>管理</title> <link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" /> </head> <body id="bodyBg1"> <br /> <a href="softClass_Manage.asp">下载分类管理</a> | <a href="softClass_Add.asp">添加分类</a> <hr class="Nav-hr" /> <br /> <dl class="manageContent"> <dt>下载分类管理</dt> <dd> <br /> <% set rsRoot =server.CreateObject("adodb.recordset") sqlRoot="select * from deep_SoftClass where fParentID=0 order by fOrderID" rsRoot.open sqlRoot,conn,1,1 if rsRoot.eof and rsRoot.bof then response.Write("<p>暂时没有分类!!请添加分类!</p>") else %> 一级栏目共计: <span class="word_Red"><%=rsRoot.RecordCount%></span> 个 <div class="class_kuai"> <div class="class_hang"> <span class="class_lie1"> 下载栏目名称</span> <span class="class_lie2">排序ID</span> <span class="class_lie3">管 理</span> </div> <% while not rsRoot.eof suo=0 '下级栏目缩格快 块数 %> <div class="class_hang" > <span class="class_lie1"> <strong><a href="soft_Manage.asp?classID=<%=rsRoot("fclass_ID")%>" title="点击查看 [<%=rsRoot("fclassName")%>] 栏目下下载"><%=rsRoot("fclassName")%></a></strong> <%if rsRoot("fplace")=0 then%><font color="#FF0000">*</font><%end if%> <%if rsRoot("fisView")=0 then%><font color="#0000FF">#</font><%end if%> </span> <span class="class_lie2"> <%=rsRoot("fOrderID")%> </span> <span class="class_lie3"> <a href="softClass_Update.asp?id=<%=rsRoot("fclass_ID")%>">修改</a> | <%if rsRoot("fisSys")=0 then%> <font color="#CCCCCC" title="系统频道 不可删除">删除</font> <% else '-- 检查是否有子类 start -- if isSub("deep_SoftClass","fParentID",rsRoot("fclass_ID")) then response.Write("<font color='#a0a0a0' title='有子栏目 不可删除'>删除</font>") else %> <a href="softClass_DEL.asp?id=<%=rsRoot("fclass_ID")%>" onClick="return confirm('删除后将不能恢复,你确定删除么?')">删除</a> <% end if '-- 检查是否有子类 end -- end if %> </span> </div> <% call subList(rsRoot("fclass_ID"),suo) rsRoot.moveNext wend end if rsRoot.close set rsRoot=nothing %> <br /> <div align="center"> (<font color="#FF0000">*</font>) 此栏目首页显示 (<font color="#0000FF">#</font>) 此栏目前台不显示 </div> <br /> </div> <br /> </dd> </dl> <br /> </body> </html> <% call closeConnDB() '┌──────────────────── 深度空间 深度学习 ──┐ '│函数名:subList(ClassID,suo) '│作 用:递归读取子分类函数 '│参 数:ClassID:父ID号 suo: '│返回值: '│日 期:2006/4/21 '└──────────────────── www.deepstudy.cn ──┘ sub subList(ClassID,suo) set rsSub =server.CreateObject("adodb.recordset") sqlSub="select * from deep_SoftClass where fParentID=" & ClassID &" order by fOrderID" rsSub.open sqlSub,conn,3,1 if rsSub.eof and rsSub.bof then else for i=1 to rsSub.recordCount %> <div class="class_hang" > <span class="class_lie1"> <%=kong(i,rsSub.recordCount,suo)%> <a href="soft_Manage.asp?ClassID=<%=rsSub("fclass_ID")%>" title="点击查看 [<%=rsSub("fclassName")%>] 栏目下下载"><%=rsSub("fclassName")%></a> <%if rsSub("fplace")=0 then%><font color="#FF0000">*</font><%end if%> <%if rsSub("fisView")=0 then%><font color="#0000FF">#</font><%end if%> </span> <span class="class_lie2"><%=rsSub("fOrderID")%> </span> <span class="class_lie3"><a href="softClass_Update.asp?id=<%=rsSub("fclass_ID")%>">修改</a> | <%if rsSub("fisSys")=0 then%> <font color="#CCCCCC" title="系统频道 不可删除">删除</font> <% else '检查是否有子类 start if isSub("deep_SoftClass","fParentID",rsSub("fclass_ID")) then response.Write("<font color='#a0a0a0' title='有子栏目 不可删除'>删除</font>") else %> <a href="softClass_DEL.asp?id=<%=rsSub("fclass_ID")%>" onClick="return confirm('删除后将不能恢复,你确定删除么?')">删除</a> <% end if '检查是否有子类 end end if %> </span> </div> <% call subList(rsSub("fclass_ID"),suo+1) rsSub.moveNext next end if rsSub.close set rsSub=nothing end sub '-------------- %>