📄 class_manage.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Const dbdns="../"%>
<!--#include file="chk.asp"-->
<!--#include file="../AppCode/Class/Ok3w_Class.asp"-->
<!--#include file="../AppCode/fun/function.asp"-->
<%
Set myClass = New Ok3w_Class
ParentID = Request.QueryString("ParentID")
ChannelID = Request.QueryString("ChannelID")
SortPath = Request.QueryString("SortPath")
If SortPath="" Then SortPath = "0,"
Select Case Request.Form("action")
Case "add"
Call myClass.Add()
Call ActionOk("Class_Manage.asp?ChannelID=" & ChannelID & "&ParentID=" & ParentID & "&SortPath=" & SortPath)
Case "edit"
Call myClass.Edit()
Call ActionOk("Class_Manage.asp?ChannelID=" & ChannelID & "&ParentID=" & ParentID & "&SortPath=" & SortPath)
Case "del"
Call myClass.Del()
Call ActionOk("Class_Manage.asp?ChannelID=" & ChannelID & "&ParentID=" & ParentID & "&SortPath=" & SortPath)
End Select
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后台管理系统</title>
<link rel="stylesheet" type="text/css" href="images/Style.css">
</head>
<body>
<!--#include file="top.asp"-->
<br />
<table cellspacing="0" cellpadding="0" width="98%" align="center" border="0">
<tbody>
<tr>
<td style="PADDING-LEFT: 2px; HEIGHT: 22px"
background="images/tab_top_bg.gif"><table cellspacing="0" cellpadding="0" width="477" border="0">
<tbody>
<tr>
<td width="147"><table height="22" cellspacing="0" cellpadding="0" border="0">
<tbody>
<tr>
<td width="3"><img id="tabImgLeft__0" height="22"
src="images/tab_active_left.gif" width="3" /></td>
<td class="mtitle"
background="images/tab_active_bg.gif">分类管理</td>
<td width="3"><img id="tabImgRight__0" height="22"
src="images/tab_active_right.gif"
width="3" /></td>
</tr>
</tbody>
</table></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td bgcolor="#ffffff"><table cellspacing="0" cellpadding="0" width="100%" border="0">
<tbody>
<tr>
<td width="1" background="images/tab_bg.gif"><img height="1"
src="images/tab_bg.gif" width="1" /></td>
<td
style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px"
valign="top"><div id="tabContent__0" style="DISPLAY: block; VISIBILITY: visible">
<table cellspacing="1" cellpadding="1" width="100%" align="center"
bgcolor="#8ccebd" border="0">
<tbody>
<tr>
<td
style="PADDING-RIGHT: 10px; PADDING-LEFT: 10px; PADDING-BOTTOM: 10px; PADDING-TOP: 10px"
valign="top" bgcolor="#fffcf7">当前位置：<a href="?ChannelID=<%=ChannelID%>&ParentID=0"><%=GetChannelName(ChannelID)%></a>
<%
Tmp = Split(SortPath,",")
For i=1 To Ubound(Tmp)-1
Sql="select * from Ok3w_Class where ID=" & Tmp(i)
Set oRs = Conn.Execute(Sql)
%>
>> <a href="?ChannelID=<%=ChannelID%>&ParentID=<%=oRs("ID")%>&SortPath=<%=oRs("SortPath")%>"><%=oRs("SortName")%></a>
<%
oRs.Close
Set oRs = Nothing
Next
%><br /><br /><table border="0" cellpadding="5" cellspacing="1" bgcolor="#CCCCCC">
<form action="" method="post" onsubmit="return chkform(this);">
<tr bgcolor="#FFFFFF">
<td colspan="7" bgcolor="#FFFFFF">类别名称：
<input name="SortName" type="text" id="SortName" size="25" />
排序：
<input name="OrderID" type="text" id="OrderID" value="0" size="4" maxlength="4" />
启用：
<input name="IsOpen" type="checkbox" id="IsOpen" value="1" checked="checked" />
<input name="Submit3" type="submit" class="bntStyle" value="添 加" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=ChannelID%>" />
<input name="SortPath" type="hidden" id="SortPath" value="<%=SortPath%>" />
<input name="ParentID" type="hidden" id="ParentID" value="<%=ParentID%>" />
<input name="action" type="hidden" id="action" value="add" /></td>
</tr>
</form>
<tr bgcolor="#EBEBEB">
<td align="center">所属分类</td>
<td align="center">分类ID</td>
<td align="center">栏目名称</td>
<td align="center">排序</td>
<td align="center">启用</td>
<td align="center">子栏目管理</td>
<td align="center">操作</td>
</tr>
<%
Sql="select * from Ok3w_Class where ChannelID=" & ChannelID & " and ParentID=" & ParentID & " order by OrderID"
Rs.Open Sql,Conn,1,1
If Not(Rs.Eof And Rs.Bof) Then
Do While Not Rs.Eof
%>
<form action="" method="post" onsubmit="return chkform(this);">
<tr bgcolor="#FFFFFF">
<td align="center"><%=GetClassName(Rs("ParentID"))%></td>
<td align="center"><input name="ID" type="text" id="ID" value="<%=Rs("ID")%>" size="8" disabled="disabled" /></td>
<td align="center"><input name="SortName" type="text" id="SortName" value="<%= Rs("SortName")%>" size="25" /></td>
<td align="center"><input name="OrderID" type="text" id="OrderID" value="<%=Rs("OrderID")%>" size="4" maxlength="4" /></td>
<td align="center"><input name="IsOpen" type="checkbox" id="IsOpen" value="1" <%If Rs("IsOpen")=1 Then%>checked="checked"<%End If%> /></td>
<td align="center"><%If ChannelID<>2 Then%><a href="?ChannelID=<%=ChannelID%>&ParentID=<%=Rs("ID")%>&SortPath=<%=Rs("SortPath")%>">>>></a><%End If%></td>
<td align="center"><input name="Submit" type="submit" class="bntStyle" value="修 改" />
<input name="Submit2" type="submit" class="bntStyle" value="删 除" onclick="if(confirm('真的要删除吗？')){this.form.action.value='del';}else{return false;}" <%If myClass.IsHaveNextClass(Rs("ID")) Then%>disabled="disabled"<%End If%>/>
<input name="SortPath" type="hidden" id="SortPath" value="<%=Rs("SortPath")%>" />
<input name="ParentID" type="hidden" id="ParentID" value="<%=Rs("ParentID")%>" />
<input name="ChannelID" type="hidden" id="ChannelID" value="<%=Rs("ChannelID")%>" />
<input name="action" type="hidden" id="action" value="edit" />
<input name="ID" type="hidden" id="ID" value="<%=Rs("ID")%>" /></td>
</tr>
</form>
<%
Rs.MoveNext
Loop
Else
%>
<tr bgcolor="#FFFFFF">
<td colspan="7" align="center">暂无栏目，请先添加</td>
</tr>
<%
End If
Rs.Close
%>
</table></td>
</tr>
</tbody>
</table>
</div></td>
<td width="1" background="images/tab_bg.gif"><img height="1"
src="images/tab_bg.gif" width="1" /></td>
</tr>
</tbody>
</table></td>
</tr>
<tr>
<td background="images/tab_bg.gif" bgcolor="#ffffff"><img height="1"
src="images/tab_bg.gif" width="1" /></td>
</tr>
</tbody>
</table>
<script language="javascript">
function chkform(frm)
{
if(frm.SortName.value=="")
{
alert("请输入分类名称")
frm.SortName.focus();
return false;
}
}
<%If ChannelID=2 Then%>
parent.left.location.reload();
<%End If%>
</script>
</body>
</html>
<%
Set myClass = Nothing
Set Rs = Nothing
Call CloseConn()
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -