www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/photo/photoClass_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="photoClass_Manage.asp">图片分类管理</a> | <a href="photoClass_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_PhotoClass 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="photo_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="photoClass_Update.asp?id=<%=rsRoot("fclass_ID")%>">修改</a>
|
<%if rsRoot("fisSys")=0 then%>
<font color="#CCCCCC" title="系统频道 不可删除">删除</font>
<%
else
'-- 检查是否有子类 start --
if isSub("deep_PhotoClass","fParentID",rsRoot("fclass_ID")) then
response.Write("<font color='#a0a0a0' title='有子栏目 不可删除'>删除</font>")
else
%>
<a href="photoClass_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_PhotoClass 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="photo_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="photoClass_Update.asp?id=<%=rsSub("fclass_ID")%>">修改</a>
|
<%if rsSub("fisSys")=0 then%>
<font color="#CCCCCC" title="系统频道 不可删除">删除</font>
<%
else
'检查是否有子类 start
if isSub("deep_PhotoClass","fParentID",rsSub("fclass_ID")) then
response.Write("<font color='#a0a0a0' title='有子栏目 不可删除'>删除</font>")
else
%>
<a href="photoClass_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
'--------------
%>