admin_classify.asp

小游戏网站演示www.4399.io 拥有4万条游戏数据

	Case 1
		Newasp.Execute("DELETE NC_Comment FROM NC_Article A INNER JOIN NC_Comment C ON C.PostID=A.ArticleID WHERE A.ChannelID = "& ChannelID &" And A.classid=" & Request("editid"))
		Newasp.Execute("DELETE FROM NC_Article WHERE ChannelID = "& ChannelID &" And classid=" & Request("editid"))
	Case 2
		Newasp.Execute ("DELETE NC_DownAddress FROM NC_SoftList A INNER JOIN NC_DownAddress D ON D.SoftID=A.SoftID WHERE A.ChannelID = "& ChannelID &" And A.classid=" & Request("editid"))
		Newasp.Execute ("DELETE NC_Comment FROM NC_SoftList A INNER JOIN NC_Comment C ON C.PostID=A.SoftID WHERE A.ChannelID = "& ChannelID &" And A.classid=" & Request("editid"))
		Newasp.Execute ("DELETE FROM NC_SoftList WHERE ChannelID = "& ChannelID &" And classid=" & Request("editid"))
	Case 3
		Newasp.Execute("DELETE NC_Comment FROM NC_ShopList A INNER JOIN NC_Comment C ON C.PostID=A.ShopID WHERE A.ChannelID = "& ChannelID &" And A.classid=" & Request("editid"))
		Newasp.Execute("DELETE FROM NC_ShopList WHERE ChannelID = "& ChannelID &" And classid=" & Request("editid"))
	Case 5
		Newasp.Execute("DELETE NC_Comment FROM NC_FlashList A INNER JOIN NC_Comment C ON C.PostID=A.flashid WHERE A.ChannelID = "& ChannelID &" And A.classid=" & Request("editid"))
		Newasp.Execute("DELETE FROM NC_FlashList WHERE ChannelID = "& ChannelID &" And classid=" & Request("editid"))
	End Select
	Newasp.FolderDelete(Newasp.InstallDir & ChannelDir & HtmlFileDir)
End Sub

Sub DelClassDir()
	On Error Resume Next
	Set Rs = Newasp.Execute("select HtmlFileDir from NC_Classify where ChannelID = "& ChannelID &" And classid=" & Request("editid"))
	If Not (Rs.EOF And Rs.BOF) Then
		Newasp.FolderDelete(Newasp.InstallDir & ChannelDir & Rs("HtmlFileDir"))
	End If
	Succeed ("恭喜您！分类目录删除成功。")
End Sub

Sub orders()
	Response.Write " <table border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <th>分类一级分类重新排序修改(请在相应分类的排序表单内输入相应的排列序号) </th>"
	Response.Write " </tr>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <td class=TableRow1>"
	Response.Write "<table width=""50%"">" & vbCrLf
	SQL = "select * from NC_Classify where ChannelID = "& ChannelID &" And ParentID=0 order by RootID"
	Set Rs = Newasp.Execute (SQL)
	If Rs.bof And Rs.EOF Then
		ErrMsg = "<li>还没有相应的" & sModuleName & "分类。</li>"
		Founderr = True
		Exit Sub
	Else
		Do While Not Rs.EOF
			Response.Write "<form action=?action=neworders method=post><tr><td width=""50%"">" & Newasp.ReadFontMode(Rs("classname"),Rs("ColorModes"),Rs("FontModes")) & "</td>" & vbCrLf
			Response.Write "<td width=""50%""><input type=""hidden"" name=""ChannelID"" value=""" & ChannelID & """><input type=text name=""OrderID"" size=4 value=""" & Rs("rootid") & """><input type=hidden name=""cID"" value=""" & Rs("rootid") & """>&nbsp;&nbsp;<input type=submit name=Submit class=button value='修 改'></td></tr></form>" & vbCrLf
			Rs.movenext
		Loop
		Response.Write "</table>" & vbCrLf
		Response.Write "<BR>&nbsp;<font color=red>请注意，这里一定<B>不能填写相同的序号</B>，否则非常难修复！</font>"
	End If
	Rs.Close
	Set Rs = Nothing
	Response.Write " </td>" & vbCrLf
	Response.Write " </tr>" & vbCrLf
	Response.Write "</table>" & vbCrLf
End Sub

Sub updateorders()
	Dim cID
	Dim OrderID
	Dim ClassName
	cID = Replace(Request.Form("cID"), "'", "")
	OrderID = Replace(Request.Form("OrderID"), "'", "")
	Set Rs = Newasp.Execute("select classid from NC_Classify where ChannelID = "& ChannelID &" And rootid=" & OrderID)
	If Rs.bof And Rs.EOF Then
		Succeed ("恭喜您！设置成功，请返回。")
		Newasp.Execute ("update NC_Classify set rootid=" & OrderID & " where ChannelID = "& ChannelID &" And rootid=" & cID)
	Else
		ErrMsg = "<li>请不要和其他分类设置相同的序号</li>"
		Founderr = True
		Exit Sub
	End If
	Call RemoveCache
	Set Rs = Nothing
End Sub

Sub classorders()
	Dim trs
	Dim uporders
	Dim doorders
	Response.Write " <table border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"" align=center>" & vbCrLf
	Response.Write " <tr>" & vbCrLf
	Response.Write " <th colspan=2 class=""TableRow1"">分类N级分类重新排序修改(请在相应分类的排序表单内输入相应的排列序号)"
	Response.Write " </th>"
	Response.Write " </tr>" & vbCrLf
	Set Rs = Server.CreateObject("Adodb.recordset")
	SQL = "select * from NC_Classify where ChannelID = "& ChannelID &" order by RootID,orders"
	Rs.Open SQL, Conn, 1, 1
	If Rs.bof And Rs.EOF Then
		Response.Write "还没有相应的分类。"
	Else
		Do While Not Rs.EOF
			Response.Write "<form action=admin_classify.asp?action=newclassorders&ChannelID=" & ChannelID & " method=post><tr><td width=""50%"" class=TableRow1>" & vbCrLf
			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><td width=""50%"" class=TableRow2>" & vbCrLf
			If Rs("ParentID") > 0 Then
				Set trs = Newasp.Execute("select count(*) from NC_Classify where ChannelID = "& ChannelID &" And ParentID=" & Rs("ParentID") & " And orders<" & Rs("orders") & "")
				uporders = trs(0)
				If IsNull(uporders) Then uporders = 0

				Set trs = Newasp.Execute("select count(*) from NC_Classify where ChannelID = "& ChannelID &" And ParentID=" & Rs("ParentID") & " And orders>" & Rs("orders") & "")
				doorders = trs(0)
				If IsNull(doorders) Then doorders = 0
				If uporders > 0 Then
					Response.Write "<select name=uporders size=1><option value=0>↑</option>" & vbCrLf
					For i = 1 To uporders
						Response.Write "<option value=" & i & ">↑" & i & "</option>" & vbCrLf
					Next
					Response.Write "</select>"
				End If
				If doorders > 0 Then
					If uporders > 0 Then Response.Write "&nbsp;"
					Response.Write "<select name=doorders size=1><option value=0>↓</option>" & vbCrLf
					For i = 1 To doorders
						Response.Write "<option value=" & i & ">↓" & i & "</option>" & vbCrLf
					Next
					Response.Write "</select>" & vbCrLf
				End If
				If doorders > 0 Or uporders > 0 Then
					Response.Write "<input type=hidden name=""editID"" value=""" & Rs("classid") & """>&nbsp;<input type=submit name=Submit class=button value='修 改'>" & vbCrLf
				End If
			End If
			Response.Write "</td></tr></form>" & vbCrLf
			uporders = 0
			doorders = 0
			Rs.movenext
		Loop
	End If
	Rs.Close
	Set Rs = Nothing
	Response.Write "</table>"
End Sub

Sub updateclassorders()
	Dim ParentID,orders,ParentStr,Child
	Dim uporders,doorders,oldorders
	Dim trs,ii
	If Not IsNumeric(Request("editID")) Then
		ErrMsg = ErrMsg & "<li>非法的参数！</li>"
		Founderr = True
		Exit Sub
	End If
	If Request("ChannelID") = "" Then
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	
	If Request("uporders") <> "" And Not CInt(Request("uporders")) = 0 Then
		If Not IsNumeric(Request("uporders")) Then
			ErrMsg = ErrMsg & "<li>非法的参数！</li>"
			Founderr = True
			Exit Sub
		ElseIf CInt(Request("uporders")) = 0 Then
			ErrMsg = ErrMsg & "<li>请选择要提升的数字！</li>"
			Founderr = True
			Exit Sub
		End If
		Set Rs = Newasp.Execute("select ParentID,orders,ParentStr,child from NC_Classify where ChannelID = "& ChannelID &" And classid=" & Request("editID"))
		ParentID = Rs(0)
		orders = Rs(1)
		ParentStr = Rs(2) & "," & Request("editID")
		Child = Rs(3)
		i = 0
		If Child > 0 Then
			Set Rs = Newasp.Execute("select count(*) from NC_Classify where ChannelID = "& ChannelID &" And ParentStr like '%" & ParentStr & "%'")
			oldorders = Rs(0)
		Else
			oldorders = 0
		End If
		Set Rs = Newasp.Execute("select classid,orders,child,ParentStr from NC_Classify where ChannelID = "& ChannelID &" And ParentID=" & ParentID & " and orders<" & orders & " order by orders desc")
		Do While Not Rs.EOF
			i = i + 1
			If CInt(Request("uporders")) >= i Then
				If Rs(2) > 0 Then
					ii = 0
					Set trs = Newasp.Execute("select classid,orders from NC_Classify where ChannelID = "& ChannelID &" And ParentStr like '%" & Rs(3) & "," & Rs(0) & "%' order by orders")
					If Not (trs.EOF And trs.bof) Then
						Do While Not trs.EOF
							ii = ii + 1
							Newasp.Execute ("update NC_Classify set orders=" & orders & "+" & oldorders & "+" & ii & " where ChannelID = "& ChannelID &" And classid=" & trs(0))
							trs.movenext
						Loop
					End If
				End If
				Newasp.Execute ("update NC_Classify set orders=" & orders & "+" & oldorders & " where ChannelID = "& ChannelID &" And classid=" & Rs(0))
				If CInt(Request("uporders")) = i Then uporders = Rs(1)
			End If
			orders = Rs(1)
			Rs.movenext
		Loop
		Newasp.Execute ("update NC_Classify set orders=" & uporders & " where ChannelID = "& ChannelID &" And classid=" & Request("editID"))
		If Child > 0 Then
			i = uporders
			Set Rs = Newasp.Execute("select classid from NC_Classify where ChannelID = "& ChannelID &" And ParentStr like '%" & ParentStr & "%' order by orders")
			Do While Not Rs.EOF
				i = i + 1
				Newasp.Execute ("update NC_Classify set orders=" & i & " where ChannelID = "& ChannelID &" And classid=" & Rs(0))
				Rs.movenext
			Loop
		End If
		Set Rs = Nothing
		Set trs = Nothing
	ElseIf Request("doorders") <> "" Then
		If Not IsNumeric(Request("doorders")) Then
			ErrMsg = ErrMsg & "<li>非法的参数！</li>"
			Founderr = True
			Exit Sub
		ElseIf CInt(Request("doorders")) = 0 Then
			ErrMsg = ErrMsg & "<li>请选择要下降的数字！</li>"
			Founderr = True
			Exit Sub
		End If
		Set Rs = Newasp.Execute("select ParentID,orders,ParentStr,child from NC_Classify where ChannelID = "& ChannelID &" And classid=" & Request("editID"))
		ParentID = Rs(0)
		orders = Rs(1)
		ParentStr = Rs(2) & "," & Request("editID")
		Child = Rs(3)
		i = 0
		If Child > 0 Then
			Set Rs = Newasp.Execute("select count(*) from NC_Classify where ChannelID = "& ChannelID &" And ParentStr like '%" & ParentStr & "%'")
			oldorders = Rs(0)
		Else
			oldorders = 0
		End If
		Set Rs = Newasp.Execute("select classid,orders,child,ParentStr from NC_Classify where ChannelID = "& ChannelID &" And ParentID=" & ParentID & " and orders>" & orders & " order by orders")
		Response.Write "<li>"&ChannelID&" 错误参数！</li>"
		Do While Not Rs.EOF
			i = i + 1
			If CInt(Request("doorders")) >= i Then
				If Rs(2) > 0 Then
					ii = 0
					Set trs = Newasp.Execute("select classid,orders from NC_Classify where ChannelID = "& ChannelID &" And ParentStr like '%" & Rs(3) & "," & Rs(0) & "%' order by orders")
					If Not (trs.EOF And trs.bof) Then
						Do While Not trs.EOF
							ii = ii + 1
							Newasp.Execute ("update NC_Classify set orders=" & orders & "+" & ii & " where ChannelID = "& ChannelID &" And classid=" & trs(0))
							trs.movenext
						Loop
					End If
				End If
				Newasp.Execute ("update NC_Classify set orders=" & orders & " where ChannelID = "& ChannelID &" And classid=" & Rs(0))
				If CInt(Request("doorders")) = i Then doorders = Rs(1)
			End If
			orders = Rs(1)
			Rs.movenext
		Loop
		Newasp.Execute ("update NC_Classify set orders=" & doorders & " where ChannelID = "& ChannelID &" And classid=" & Request("editID"))
		If Child > 0 Then
			i = doorders
			Set Rs = Newasp.Execute("select classid from NC_Classify where ChannelID = "& ChannelID &" And ParentStr like '%" & ParentStr & "%' order by orders")
			Do While Not Rs.EOF
				i = i + 1
				Newasp.Execute ("update NC_Classify set orders=" & i & " where ChannelID = "& ChannelID &" And classid=" & Rs(0))
				Rs.movenext
			Loop
		End If
	End If
	Set Rs = Nothing
	Set trs = Nothing
	Call RemoveCache
	Response.redirect "admin_classify.asp?action=classorders&ChannelID=" & ChannelID
	Response.End
End Sub

Sub RestoreClass()
	i = 0
	Set Rs = Newasp.Execute("SELECT classid FROM NC_Classify WHERE ChannelID="& ChannelID &" order by rootid,orders")
	Do While Not Rs.EOF
		i = i + 1
		Newasp.Execute ("UPDATE NC_Classify SET rootid=" & i & ",depth=0,orders=0,ParentID=0,ParentStr='0',child=0, ChildStr='"&Rs(0)&"' WHERE ChannelID = "& ChannelID &" And classid=" & Rs(0))
		Rs.movenext
	Loop
	Set Rs = Nothing
	Call RemoveCache
	Succeed("<li>复位成功，请返回做分类归属设置。</li>")
End Sub
Sub RemoveCache()
	Newasp.DelCahe "SelectClass" & ChannelID
	Newasp.DelCahe "ClassJumpMenu" & ChannelID
	Newasp.DelCahe "SiteClassMap"
	Newasp.DelCache "SelectClass" & ChannelID
	Newasp.DelCache "ClassJumpMenu" & ChannelID
End Sub

%>