admin_class.asp

新云4.0批量加栏目新云4.0批量加栏目新云4.0批量加栏目新云4.0批量加栏目新云4.0批量加栏目新云4.0批量加栏目新云4.0批量加栏目新云4.0批量加栏目新云4.0批量加栏目新云4.0批量加栏目

<!--#include file="../../conn.asp"-->
<!--#include file="../inc/setup.asp"-->
<!--#include file="../inc/const.asp"-->
<!--#include file="../inc/check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：新云网站管理系统
' 当前版本：NewAsp Content Management System Version 4.0
' 文件名称：admin_list.asp
' 更新日期：2008-06-16
' 官方网站：新云网络(www.NewAsp.net www.NewAsp.cn) QQ：94022511
'=====================================================================
' Copyright 2003-2008 NewAsp.net - All Rights Reserved.
' newasp is a trademark of NewAsp.net
'=====================================================================
If ChannelID=0 Then ChannelID=1
Dim strClassDir,ClassDir,HtmlFileDir,ChannelDir,ChannelPath
Dim moduleidu
ChannelDir = NewAsp.ChannelDir
ChannelPath = Newasp.InstallDir & ChannelDir
moduleidu = NewAsp.modules
Select Case NewAsp.modules
	Case 1:Directory = "article"
	Case 2:Directory = "soft"
	Case 3:Directory = "shop"
	Case 4:Directory = "flash"
Case Else
	Directory = "article"
End Select
%>
<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 class="table1" cellspacing="1" cellpadding="3" align="center" border="0">
	<tr>
		<td class="tableline linetitle" width="200" align="left">分类管理</td>
		<td class="tableline" width="*" align="right"><a href="?ChannelID=<%=ChannelID%>">分类管理首页</a>
			| <a href="?action=add&ChannelID=<%=ChannelID%>">新建分类</a>
			<!--By 春天-->| <a href="?action=addbyspring&amp;ChannelID=<%=ChannelID%>">新建<%=NewAsp.ModuleName%>分类(批量) </a>
			| <a href="?action=orders&ChannelID=<%=ChannelID%>">一级分类排序</a>
			| <a href="?action=classorders&ChannelID=<%=ChannelID%>">N级分类排序</a>
			| <a href="?action=resume&ChannelID=<%=ChannelID%>"><font color="blue">分类恢复</font>
			| <a href="../<%=Directory%>/admin_list.asp?ChannelID=<%=ChannelID%>"><font color="red"><%=NewAsp.ModuleName%>管理</font></a>
	  </td>
	</tr>
</table>
<%
Dim Action,Directory
If Not ChkAdmin("Class_"&ChannelID) Then
	Call Transfer_error()
End If

Action = LCase(Request("action"))
Select Case LCase(Action)
'By 春天
Case "addbyspring"
	Call addbyspring()
Case "savebyspring"
	Call savebyspring()
'By 春天
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 showmain()
End Select
If FoundErr = True Then
	ReturnError(ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
NewAsp.PageEnd

Sub showmain()
	Dim Rs,SQL,i,iCount,lCount,AddContentLink
	iCount=1:lCount=2
	AddContentLink = "../"&Directory&"/admin_post.asp?action=add&ChannelID=" & ChannelID & "&classid="
	Response.Write " <table id=""tablehovered"" align=""center"" class=""tableborder"" cellspacing=""1"" cellpadding=""2"">"
	Response.Write " <tr>"
	Response.Write " <th width=""5%"">选择</th>"
	Response.Write " <th width=""35%"">分类名称</th>"
	Response.Write " <th width=""40%"">管理选项</th>"
	Response.Write " <th noWrap width=""10%"">连接性质</th>"
	Response.Write "</tr>" & vbNewLine
	'If Not IsObject(Conn) Then ConnectionDatabase
	SQL = "SELECT * FROM NC_Classify WHERE ChannelID="& ChannelID &" ORDER BY rootid,orders"
	Set Rs = NewAsp.CreateAXObject("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=""tablerow"&iCount&""">您还没有添加任何分类！</td></tr>"
	End If
	Response.Write "<form name=""selform"" method=""post"" action=""admin_makehtml.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 iCount=1:lCount=2 Else iCount=2:lCount=1
		Response.Write " <tr>"
		Response.Write " <td align=""center"" class=""tablerow"&iCount&" hovered"">"
		Response.Write "<input type=""checkbox"" name=""classid"" value=""" & Rs("ClassID") & """>"
		Response.Write " </td>" & vbNewLine
		Response.Write " <td class=""tablerow"&iCount&" hovered"">"
		Response.Write " "
		If Rs("depth") = 1 Then Response.Write "&nbsp;&nbsp;<font color=""#666666"">├</font>"
		If Rs("depth") > 1 Then
			For i = 2 To Rs("depth")
				Response.Write "&nbsp;&nbsp;<font color=""#666666"">│</font>"
			Next
			Response.Write "&nbsp;&nbsp;<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 class=""tablerow"&iCount&" hovered"" align=""center"">"
		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=""?action=del&ChannelID="&ChannelID&"&editid="
			Response.Write Rs("classid")
			Response.Write """ onclick=""return confirm('删除将包括该分类的所有文章，确定删除吗?')"">删除分类</a>"
		Else
			Response.Write " <a href=""#"" onclick=""return confirm('该分类含有下属分类，必须先删除其下属分类方能删除本分类！')"">"
			Response.Write " 删除分类</a>"
		End If
		Response.Write " | <a href="""
		Response.Write AddContentLink
		Response.Write Rs("classid")
		Response.Write """>添加内容</a>"
		'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"" class=""tablerow"&iCount&" hovered"">"
		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=""tablerow"&lCount&""">"
	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 " </td>"
	Response.Write "</tr></form>"
	Response.Write "</table>"
End Sub

Sub ClassAdd()
	Dim NewClassID
	Dim Rs,SQL,i,TitleColor
	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 id="tablehovered1" border="0" align="center" cellpadding="3" cellspacing="1" class="tableborder">
	<tr>
		<th colspan="2">添加分类</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="tablerow1"><strong>分类名称：</strong></td>
		<td width="80%" class="tablerow1">
		<input type="text" name="ClassName" id="ClassName" size="35">
		</td>
	</tr>
	<tr>
		<td class="tablerow2"><strong>分类标题模式：</strong></td>
		<td class="tablerow2">颜色：
		<select size="1" name="ColorModes">
		<option value="0">请选择颜色</option>
<%
	TitleColor = "," & NewAsp.MainSetting(48)
	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>
		<td class="tablerow1"><strong>分类注释：</strong></td>
		<td class="tablerow1">
		<input type="text" name="Readme" size="60"> </td>
	</tr>
	<tr>
		<td class="tablerow2"><strong>所属分类：</strong></td>
		<td class="tablerow2">
<%
	Response.Write " <select name=""class"">"
	Response.Write "<option value=""0"">做为一级分类</option>"
	SQL = "SELECT classid,depth,ClassName FROM NC_Classify WHERE ChannelID = "& ChannelID &" ORDER BY rootid,orders"
	Set Rs = NewAsp.Execute(SQL)
	Do While Not Rs.EOF
		Response.Write "<option value=""" & Rs("classid") & """ "
		If Request("editid") <> "" And CLng(Request("editid")) = Rs("classid") Then Response.Write "selected"
		Response.Write ">"
		If Rs("depth") = 1 Then Response.Write "&nbsp;&nbsp;├ "
		If Rs("depth") > 1 Then
			For i = 2 To Rs("depth")
				Response.Write "&nbsp;&nbsp;│"
			Next
			Response.Write "&nbsp;&nbsp;├ "
		End If
		Response.Write Rs("ClassName") & "</option>" & vbCrLf
		Rs.movenext
	Loop
	Rs.Close
	Response.Write "</select>"
	Set Rs = Nothing
%>
		</td>
	</tr>
	<tr>
		<td class="tablerow1"><strong>连接目标：</strong></td>
		<td class="tablerow1">
		<input type="radio" value="0" checked name="LinkTarget"> 本窗口打开&nbsp;&nbsp;
		<input type="radio" name="LinkTarget" value="1"> 新窗口打开</td>
	</tr>
	<tr>
		<td class="tablerow2"><strong>是否转向连接：</strong></td>
		<td class="tablerow2">
		<input type="radio" name="TurnLink" value="0" checked  onClick="ClassSetting(1)"> 否&nbsp;&nbsp;
		<input type="radio" name="TurnLink" value="1"  onClick="ClassSetting(2)"> 是</td>
	</tr>
	<tr>
		<td class="tablerow1"><strong>分类目录：</strong></td>
		<td class="tablerow1"><input type="text" name="ClassDir" size="15" value="sort0<%=NewClassID%>"> <br><font color=blue>一级分类相对于此频道目录，N级分类相对于上级分类目录，可以是多级目录,如：html/asp请认真填写。</font></td>
	</tr>
	<tr id="ClassSetting1" style="display:none">
		<td class="tablerow2"><strong>转向连接URL：</strong></td>