📄 admin_classify.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：NewCloud Site Management System Version 1.0.1
' 文件名称：admin_classify.asp
' 更新日期：2006-11-20
' 官方网站：www.newasp.net QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action,TitleColor,ChannelDir,strModules,strOption,ChannelPath
Dim RsObj,i,Flag,HtmlFileDir,AddContentLink,ClassDir,strClassDir
Dim moduleid,UseHtml,IsCreateHtml,strClass
If Request("ChannelID") = 0 Or Request("ChannelID") = "" Then
ErrMsg = "<li>Sorry！错误的系统参数,请选择正确的连接方式。</li>"
Response.Redirect("showerr.asp?action=error&message=" & Server.URLEncode(ErrMsg) & "")
Response.End
Else
ChannelID = CInt(Request("ChannelID"))
End If
Set Rs = Newasp.Execute("SELECT ChannelDir,modules,IsCreateHtml FROM NC_Channel WHERE ChannelID = "& ChannelID)
ChannelDir = Rs(0)
moduleid = Rs("modules")
IsCreateHtml = Rs("IsCreateHtml")
Select Case Rs("modules")
Case 1:strModules = "article"
Case 2:strModules = "soft"
Case 3:strModules = "shop"
Case 4:strModules = "flash"
Case Else
strModules = "article"
End Select
Set Rs = Nothing
ChannelPath = Newasp.InstallDir & ChannelDir
Flag = "AdminClass" & ChannelID
AddContentLink = "admin_" & strModules & ".asp?action=add&ChannelID=" & ChannelID & "&ClassID="
%>
<script language = "JavaScript">
function BatchAddClass(){
if(document.myform.BatchID.checked==true){
document.myform.BatchClassName.disabled=false;
document.myform.ClassName.disabled=true;
BatchClass.style.display='';
}
else{
document.myform.BatchClassName.disabled=true;
document.myform.ClassName.disabled=false;
BatchClass.style.display='none';
}
}
function ClassSetting(n){
if (n == 1){
ClassSetting1.style.display='none';
ClassSetting2.style.display='';
ClassSetting3.style.display='';
}
else{
ClassSetting1.style.display='';
ClassSetting2.style.display='none';
ClassSetting3.style.display='none';
}
}
</script>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
<tr>
<th colspan="2"><%=sModuleName%>分类管理</th>
</tr>
<tr>
<td width="100%" class="TableRow2" colspan="2"><b>频道设置选项：</b><a href="admin_channel.asp">频道设置首页</a>
| <a href="admin_channel.asp?action=add">添加频道</a> |
<%
Dim Rsm
Set Rsm = Newasp.Execute("SELECT ChannelID,ModuleName FROM NC_Channel WHERE ChannelType < 2 ORDER BY orders ASC")
Do While Not Rsm.EOF
Response.Write "<a href=admin_channel.asp?action=edit&ChannelID="
Response.Write Rsm("ChannelID")
Response.Write ">"
Response.Write Rsm("ModuleName")
Response.Write "设置</a> | "
Rsm.movenext
Loop
Set Rsm = Nothing
%>
</td>
</tr>
<tr>
<td class="TableRow1" colspan="2">
<p><B>注意</B>：<BR>①、删除分类同时将删除该分类下所有的文章信息！删除分类同时删除下属分类和所有文章！ 操作时请完整填写表单信息。<BR>
②、如果选择<B>复位所有分类</B>，则所有分类都将作为一级分类（分类），这时您需要重新对各个分类进行归属的基本设置，<B>不要轻易使用该功能</B>，仅在做出了错误的设置而无法复原分类之间的关系和排序的时候使用 <br>
</td>
</tr>
<tr>
<td class="TableRow2">
<B>操作选项</B></td>
<td class="TableRow2"><a href="?ChannelID=<%=ChannelID%>">分类管理首页</a> | <a href="?action=add&ChannelID=<%=ChannelID%>">新建<%=sModuleName%>分类</a>
| <a href="?action=orders&ChannelID=<%=ChannelID%>">一级分类排序</a> | <a href="?action=classorders&ChannelID=<%=ChannelID%>">N级分类排序</a>
| <a href="?action=Restore&ChannelID=<%=ChannelID%>" onclick="{if(confirm('复位所有分类将把所有分类恢复成为一级大分类，复位后要对所有分类重新进行归属的基本设置，请慎重操作，确定复位吗?')){return true;}return false;}">复位所有分类</a>
| <a href="admin_classad.asp?ChannelID=<%=ChannelID%>"><font color="red">分类广告管理</font></a>
| <a href="?action=resume&ChannelID=<%=ChannelID%>"><font color="blue">分类恢复</font></a>
</td>
</tr>
</table>
<br>
<%
If Not ChkAdmin(Flag) Then
Server.Transfer("showerr.asp")
Response.End
End If
Action = Newasp.RemoveBadCharacters(Request("action"))
Select Case LCase(Action)
Case "savenew"
Call savenew
Case "savedit"
Call savedit
Case "add"
Call ClassAdd
Case "edit"
Call ClassEdit
Case "del"
Call DelClass
Case "deldir"
Call DelClassDir
Case "orders"
Call orders
Case "neworders"
Call updateorders
Case "restore"
Call RestoreClass
Case "classorders"
Call classorders
Case "newclassorders"
Call updateclassorders
Case "resume"
Call ResumeClass
Case Else
Call MainPage
End Select
If FoundErr = True Then
ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
Sub MainPage()
Response.Write " <table align=center class=""tableBorder"" cellspacing=""1"" cellpadding=""2"">"
Response.Write " <tr>"
Response.Write " <th width=""3%"">选择</th>"
Response.Write " <th width=""35%"">"& sModuleName &"分类 </th>"
Response.Write " <th width=""43%"">管理选项</th>"
Response.Write " <th noWrap width=""9%"">连接性质</th>"
Response.Write "</tr>" & vbNewLine
SQL = "SELECT * FROM NC_Classify WHERE ChannelID = "& ChannelID &" ORDER BY rootid,orders"
Set Rs = Server.CreateObject("adodb.recordset")
Rs.Open SQL, Conn, 1, 1
Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
If Rs.bof And Rs.EOF Then
Response.Write " <tr> <td align=center colspan=4 class=""TableRow1"">您还没有添加任何分类！</td></tr>"
End If
Response.Write " <form name=selform method=post action=""admin_create" & strModules & ".asp"">"
Response.Write "<input type=hidden name=action value='list'>"
Response.Write "<input type=hidden name=ChannelID value='" & ChannelID & "'>"
Response.Write "<input type=hidden name=Field value='2'>"
Response.Write "<input type=hidden name=stype value='1'>" & vbNewLine
i = 0
Do While Not Rs.EOF
If (i mod 2) = 0 Then
strClass = "class=TableRow1"
Else
strClass = "class=TableRow2"
End If
Response.Write " <tr>"
Response.Write " <td align=center " & strClass & ">"
Response.Write "<input type=checkbox name=""classid"" value=""" & Rs("ClassID") & """>"
Response.Write " </td>" & vbNewLine
Response.Write " <td " & strClass & ">"
Response.Write " "
If Rs("depth") = 1 Then Response.Write " <font color=""#666666"">├</font>"
If Rs("depth") > 1 Then
For i = 2 To Rs("depth")
Response.Write " <font color=""#666666"">│</font>"
Next
Response.Write " <font color=""#666666"">├</font> "
End If
If Rs("parentid") = 0 Then Response.Write ("<b>")
Response.Write Newasp.ReadFontMode(Rs("classname"),Rs("ColorModes"),Rs("FontModes"))
If Rs("child") > 0 Then Response.Write "(" & Rs("child") & ")"
Response.Write " </td>" & vbNewLine
Response.Write " <td " & strClass & " align=""center"">"
Response.Write "<a href="""
Response.Write AddContentLink
Response.Write Rs("classid")
Response.Write """>添加内容</a> | "
Response.Write "<a href=""?action=add&ChannelID="&ChannelID&"&editid="
Response.Write Rs("classid")
Response.Write """>添加分类</a>"
Response.Write " | <a href=""?action=edit&ChannelID="&ChannelID&"&editid="
Response.Write Rs("classid")
Response.Write """>分类设置</a>"
Response.Write " |"
Response.Write " "
If Rs("child") < 1 Then
Response.Write " <a href=""admin_classify.asp?action=del&ChannelID="&ChannelID&"&editid="
Response.Write Rs("classid")
Response.Write """ onclick=""{if(confirm('删除将包括该分类的所有文章，确定删除吗?')){return true;}return false;}"">删除分类</a>"
Else
Response.Write " <a href=""#"" onclick=""{if(confirm('该分类含有下属分类，必须先删除其下属分类方能删除本分类！')){return true;}return false;}"">"
Response.Write " 删除分类</a>"
End If
'Response.Write " <a href=""admin_classify.asp?action=deldir&ChannelID="&ChannelID&"&editid="
'Response.Write Rs("classid")
'Response.Write """ onclick=""{if(confirm('删除此分类目录的同时将删除此目录下面全部的子目录和HTML文件！\n\n您确定要删除此分类目录吗?')){return true;}return false;}""><font color=red>删除分类目录</font>"
'Response.Write " "
Response.Write " </td>" & vbNewLine
Response.Write " <td align=center " & strClass & ">"
If Rs("TurnLink") <> 0 Then
Response.Write "<font color=red>转向连接</font>"
Else
Response.Write "<font color=blue>系统连接</font>"
End If
Response.Write " </td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Rs.movenext
i = i + 1
Loop
Rs.Close
Set Rs = Nothing
Response.Write " <tr>"
Response.Write "<td colspan=4 class=TableRow2>"
Response.Write "<input class=""Button"" type=""button"" name=""chkall"" value=""全选"" onClick=""CheckAll(this.form)"">"
Response.Write "<input class=Button type=""button"" name=""chksel"" value=""反选"" onClick=""ContraSel(this.form)"">" & vbNewLine
Response.Write "<input type=submit name=submit1 value=' 生成分类列表HTML ' class=button>" & vbNewLine
'Response.Write " <a href=""?action=jsmenu&ChannelID=" & ChannelID & "&stype=1"" class=showmeun>生成分类下拉式菜单JS</a>"
Response.Write " </td>"
Response.Write "</tr></form>"
Response.Write "</table>"
End Sub
Sub ClassAdd()
Dim NewClassID
SQL = "SELECT MAX(ClassID) FROM NC_Classify"
Set Rs = Newasp.Execute(SQL)
If Rs.bof And Rs.EOF Then
NewClassID = 1
Else
NewClassID = Rs(0) + 1
End If
If IsNull(NewClassID) Then NewClassID = 1
Rs.Close
%>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="TableBorder">
<tr>
<th colspan="2">添加<%=sModuleName%>分类</th>
</tr>
<form name=myform method="POST" action="?action=savenew">
<input type="hidden" name="NewClassID" value="<%=NewClassID%>">
<input type="hidden" name="ChannelID" value="<%=ChannelID%>">
<tr>
<td width="20%" class="TableRow2"><strong><%=sModuleName%>分类名称：</strong></td>
<td width="80%" class="TableRow1">
<input type="text" name="ClassName" id="ClassName" size="35">
</td>
</tr>
<tr>
<td class="TableRow2"><strong><%=sModuleName%>分类标题模式：</strong></td>
<td class="TableRow1">颜色：
<select size="1" name="ColorModes">
<option value="0">请选择颜色</option>
<%
TitleColor = "," & Newasp.InitTitleColor
TitleColor = Split(TitleColor, ",")
For i = 1 To UBound(TitleColor)
Response.Write ("<option style=""background-color:"& TitleColor(i) &";color: "& TitleColor(i) &""" value='"& i &"'>"& TitleColor(i) &"</option>")
Next
%>
</select> 字体：
<select size="1" name="FontModes">
<option value="0">请选择字体</option>
<option value="1">粗体</option>
<option value="2">斜体</option>
<option value="3">下划线</option>
<option value="4">粗体+斜体</option>
<option value="5">粗体+下划线</option>
<option value="6">斜体+下划线</option>
</select></td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -