www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/channel/channel_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="channel_Manage.asp">频道栏目管理</a> | <a href="Channel_Add.asp">频道栏目添加</a>
<hr class="Nav-hr" />
<br />
<dl class="manageContent">
<dt>频道栏目管理</dt>
<dd>
<br />
<%
Set rsChannel=Server.CreateObject("Adodb.Recordset")
sql="Select * from deep_Channel where fParentID=0 order by fplace,forderID,fid"
rsChannel.open sql,conn,0,1
if rsChannel.Eof and rsChannel.Bof then
Response.Write("<p>暂时没有栏目！！！</p>")
else
%>
<div align="center">
<table width="95%" border="0" align="center" cellspacing="1" class="tableBoder01">
<tr>
<th>频道栏目名称</th>
<th>显示位置</th>
<th>显示方式</th>
<th>显示</th>
<th>排序ID</th>
<th>管 理</th>
</tr>
<%
while (Not rsChannel.Eof)
%>
<tr >
<td title="<%=rsChannel("ftip")%>"><%=rsChannel("fname")%></td>
<td><%= viewPlace( rsChannel("fplace") ) %></td>
<td><%
if (rsChannel("fplace")<>2) then
if rsChannel("fviewType")=0 then
Response.Write("链接地址")
else
Response.Write("<font color='#717171'>内容页</font>")
end if
else
Response.Write(" ")
end if
%></td>
<td><%if rsChannel("fisView")=0 then Response.Write("不显示") else Response.Write(" ") end if%></td>
<td><%=rsChannel("forderID")%></td>
<td><a href="channel_Update.asp?id=<%=rsChannel("fid")%>">修改</a> |
<%if rsChannel("fisSys")=0 then%>
<font color="#CCCCCC">删除</font>
<%else%>
<a href="channel_DEL.asp?id=<%=rsChannel("fid")%>" onClick="return confirm('删除后将不能恢复，你确定删除么？')">删除</a>
<%end if%></td>
</tr>
<%
call subList(rsChannel("fid"),suo)
rsChannel.MoveNext
wend
%>
</table>
</div>
<%
end if
rsChannel.close
Set rsChannel =Nothing
%><br />
</dd>
</dl>
</body>
</html>
<%
Call CloseConnDB()
'----------------------------------
function viewPlace(p)
select case p
case 0
Response.Write("网页上部")
case 1
Response.Write("<font color='#717171'>网页下部</font>")
case 2
Response.Write("<font color='#999999'>首页中部图文</font>")
case else
response.Write("无对应")
end select
end function
'┌──────────────────── 深度空间 深度学习 ──┐
'│函数名：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_Channel 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
%>
<tr >
<td title="<%=rsSub("ftip")%>">
<%=kong(i,rsSub.recordCount,suo)%>
<%=rsSub("fname")%></td>
<td><%= viewPlace( rsSub("fplace") ) %></td>
<td><%
if (rsSub("fplace")<>2) then
if rsSub("fviewType")=0 then
Response.Write("链接地址")
else
Response.Write("<font color='#717171'>内容页</font>")
end if
else
Response.Write(" ")
end if
%></td>
<td><%if rsSub("fisView")=0 then Response.Write("不显示") else Response.Write(" ") end if%></td>
<td><%=rsSub("forderID")%></td>
<td><a href="channel_Update.asp?id=<%=rsSub("fid")%>">修改</a> |
<%if rsSub("fisSys")=0 then%><a href="channel_DEL.asp?id=<%=rsSub("fid")%>" onClick="return confirm('删除后将不能恢复，你确定删除么？')">删除</a>
<%else%>
<font color="#CCCCCC">删除</font>
<%end if%></td>
</tr>
<%
call subList(rsSub("fid"),suo+1)
rsSub.moveNext
next
end if
rsSub.close
set rsSub=nothing
end sub
'--------------
%>