⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 news_category.asp

📁 这是我根据动网新闻核心自行设计的校园新闻系统
💻 ASP
字号:
🔍 
<%
pageadmin=10
%>
<!-- #include file="../login/check.asp" -->
<!-- #include file="../../inc/conn.asp" -->
<!-- #include file="../../inc/function.asp" -->
<!-- #include file="../category/category_class.asp" -->
<%
	dim deep
	dim categorytype
	categorytype="新闻"
	deep=0
	dim ct
	set ct=new LBCategory
	ct.CategoryType=categorytype
	dim ctlist
	ctlist=ct.list("-1")
	set ct=nothing
	
%>
<head>
<link rel="stylesheet" type="text/css" href="../../inc/lbstyle.css">
</head>
<body>
<div align="center">

<div align="center">
	<table border="0" width="100%" id="table4" class="table" style="border-width: 0">
		<tr>
			<td><font class=headtext>新闻类别管理</font></td>
		</tr>
		<tr>
			<td>　</td>
		</tr>
	</table>
</div>
<table border="1" width="100%" id="table1" class=table>
	<tr class=headtr><form name="form1" method="POST" action="category_save.asp?action=add&fid=-1&categorytype=<%=categorytype%>&deep=<%=deep%>">

		<td class=td>&nbsp;根目录 　<a title="" href="javascript:add('-1');">添加一级分类</a>&nbsp;&nbsp;
		<a href="javascript:delall();">
		删除所有类别</a></td>
	</form>
	</tr>
	<%for i=1 to ubound(ctlist)%>
	<tr>
	<form name="form<%=i%>" method="POST" action="category_save.asp?action=add&fid=<%=ctlist(i,2)%>&categorytype=<%=categorytype%>&deep=<%=deep%>">
		<td class=tr<%if i mod 2=0 then response.write "1"%> height="25">
		<table border="0" width="100%" id="table3">
			<tr>
				<td>　<a title="" href="../category/category_redirect.asp?categorytype=<%=ctlist(i,4)%>&categoryid=<%=ctlist(i,2)%>"><%=ctlist(i,0)%></a>&nbsp;
				<A HREF="../category/category_order.asp?action=up&id=<%=ctlist(i,1)%>&categorytype=<%=categorytype%>&deep=<%=deep%>">上移</A>&nbsp;<A HREF="../category/category_order.asp?action=down&id=<%=ctlist(i,1)%>&categorytype=<%=categorytype%>&deep=<%=deep%>">下移</A></td>
				<td width="319"> 
		<p align="center">&nbsp;
		<%if len(ctlist(i,2))/5<cint(deep) or deep=0 then%>
			<a title="" href="javascript:add('<%=ctlist(i,1)%>');">添加下级分类</a>&nbsp;
		<%end if%>		
		<a href="javascript:config('<%=ctlist(i,1)%>');">设置</a>&nbsp;
		<a href="javascript:del('<%=ctlist(i,1)%>');">删除</a></td>
			</tr>
		</table>
		</td></form>
	</tr>
	<%next%>
</table>
</div>
<script>
function delall()
{
	var ch;
	ch=window.confirm("是否删除所有类别？");
	if (ch)
	{
		location.href="category_save.asp?action=del&id=-1&categorytype=<%=categorytype%>&deep=<%=deep%>";
	}
	
}
function del(categoryid)
{
	var ch;
	ch=window.confirm("是否删除该类别以及下面的所有类别？");
	if (ch)
	{
		location.href="category_save.asp?action=del&id="+categoryid+"";
	}
}
function add(id)
{
var a=window.showModalDialog("category_add_dialog.asp?id="+id,"","dialogHeight: 270px; dialogWidth: 320px; center: Yes; status: No;");
location.reload();
}
function config(id)
{
var a=window.showModalDialog("category_modify_dialog.asp?id="+id,"","dialogHeight: 200px; dialogWidth: 320px; center: Yes; status: No;");
location.reload();
}
</script>
</body>
<%
conn.close
set conn=nothing
%>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -