admin_channel.asp

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

		Rs("Channel_Setting") = Trim(ChannelSetting)
		Rs("SortDestination") = Replace(Trim(Request.Form("SortDestination")), "\", "/")
		Rs("InfoDestination") = Replace(Trim(Request.Form("InfoDestination")), "\", "/")
		Rs("MoreDestination") = Replace(Trim(Request.Form("MoreDestination")), "\", "/")
		Rs("setEditor") = m_setEditor
		Rs("NamedPath") = strNamedPath
	Rs.update
	Rs.Close
	Set Rs = Nothing
	Call RemoveCache
	Succeed("<li>修改频道设置成功！</li>")
End Sub

Private Sub ChannelDel()
	If Request("ChannelID") = "" Then
		ErrMsg = "<li>请选择正确的频道ID！</li>"
		Founderr = True
		Exit Sub
	End If
	If Request("ChannelID") < 10 Then
		ErrMsg = "<li>此频道为系统初始频道不能删除，请选择其它频道删除！</li>"
		Founderr = True
		Exit Sub
	End If
	Set Rs = Newasp.Execute("SELECT ClassID FROM [NC_Classify] WHERE ChannelID=" & CLng(Request("ChannelID")))
	If Not (Rs.BOF And Rs.EOF) Then
		Set Rs = Nothing
		ErrMsg = "<li>此频道正在使用中不能删除！如果要删除此频道，请先删除所有分类。</li>"
		Founderr = True
		Exit Sub
	End If
	Set Rs = Nothing
	Set Rs = Newasp.Execute("SELECT ChannelDir,ChannelType FROM [NC_Channel] WHERE ChannelID=" & CLng(Request("ChannelID")))
	If Not (Rs.BOF And Rs.EOF) Then
		If Rs("ChannelType") = 0 Then
			Set Rs = Nothing
			ErrMsg = "<li>此频道是系统频道不能删除。</li>"
			Founderr = True
			Exit Sub
		Else
			Newasp.FolderDelete(Newasp.InstallDir & Rs("ChannelDir"))
			Conn.Execute("DELETE FROM NC_Template WHERE ChannelID=" & CLng(Request("ChannelID")))
			Response.Write "<script>parent.leftFrame.location='admin_left.asp';</script>"
		End If
	End If
	Set Rs = Nothing
	Call RemoveCache
	
	Conn.Execute("DELETE FROM NC_Channel WHERE ChannelID=" & CLng(Request("ChannelID")))
	Succeed("<li>频道删除成功！</li>")
End Sub
Private Sub ChannelOrders()
	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>频道重新排序修改"
	Response.Write " </th>"
	Response.Write " </tr>" & vbCrLf
	SQL = "select * from NC_Channel order by orders"
	Set Rs = Newasp.Execute(SQL)
	If Rs.bof And Rs.EOF Then
		Response.Write "您还没有添加相应的频道。"
	Else
		Do While Not Rs.EOF
			Response.Write "<form action=?action=saveorder method=post><tr><td width=""50%"" class=TableRow1>" & vbCrLf
			Response.Write Newasp.ReadFontMode(Rs("ChannelName"),Rs("ColorModes"),Rs("FontModes"))
			Response.Write "</td><td width=""50%"" class=TableRow2>" & vbCrLf
			Set trs = Newasp.Execute("select count(*) from NC_Channel where orders<" & Rs("orders") & "")
				uporders = trs(0)
				If IsNull(uporders) Then uporders = 0

				Set trs = Newasp.Execute("select count(*) from NC_Channel where 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=""ChannelID"" value=""" & Rs("ChannelID") & """>&nbsp;<input type=submit name=Submit class=button value='修 改'>" & vbCrLf
				End If
			Response.Write "</td></tr></form>" & vbCrLf
			Rs.movenext
		Loop
	End If
	Rs.Close
	Set Rs = Nothing
	Response.Write "</table>"
End Sub

Private Sub SaveOrder()
	Dim orders
	Dim uporders
	Dim doorders
	Dim oldorders
	If Not IsNumeric(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 ChannelID,orders from NC_Channel where ChannelID=" & Request("ChannelID"))
		orders = Rs(1)
		i = 0
		oldorders = 0
		Set Rs = Newasp.Execute("select ChannelID,orders from NC_Channel where orders<" & orders & " order by orders desc")
		Do While Not Rs.EOF
			i = i + 1
			If CInt(Request("uporders")) >= i Then
				Newasp.Execute ("update NC_Channel set orders=" & orders & "+" & oldorders & " where ChannelID=" & Rs(0))
				If CInt(Request("uporders")) = i Then uporders = Rs(1)
			End If
			orders = Rs(1)
			Rs.movenext
		Loop
		Newasp.Execute ("update NC_Channel set orders=" & uporders & " where ChannelID=" & Request("ChannelID"))
		Set Rs = 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 ChannelID,orders from NC_Channel where ChannelID=" & Request("ChannelID"))
		orders = Rs(1)
		i = 0
		oldorders = 0
		Set Rs = Newasp.Execute("select ChannelID,orders from NC_Channel where orders>" & orders & " order by orders desc")
		Do While Not Rs.EOF
			i = i + 1
			If CInt(Request("doorders")) >= i Then
				Newasp.Execute ("update NC_Channel set orders=" & orders & " where ChannelID=" & Rs(0))
				If CInt(Request("doorders")) = i Then doorders = Rs(1)
			End If
			orders = Rs(1)
			Rs.movenext
		Loop
		Newasp.Execute ("update NC_Channel set orders=" & doorders & " where ChannelID=" & Request("ChannelID"))
		Set Rs = Nothing
	End If
	Call RemoveCache
	Response.redirect "admin_channel.asp?action=orders"
End Sub

Private Sub UpdateStop()
	If Not IsNumeric(Request("ChannelID")) Then
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	If Request("ChannelID") <> "" And Request("EditID") <> ""  Then
		Newasp.Execute ("update NC_Channel set StopChannel=" & CInt(Request("EditID")) & " where ChannelID=" & Request("ChannelID"))
		Call RemoveCache
	Else
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	If Request("EditID") <> 0  Then
		OutHintScript("恭喜您！本频道已成功关闭。")
	Else
		OutHintScript("恭喜您！本频道已成功打开。")
	End If
End Sub

Private Sub UpdateHidden()
	If Not IsNumeric(Request("ChannelID")) Then
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	If Request("ChannelID") <> "" And Request("EditID") <> ""  Then
		Newasp.Execute ("update NC_Channel set IsHidden=" & CInt(Request("EditID")) & " where ChannelID=" & Request("ChannelID"))
		Call RemoveCache
	Else
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	If Request("EditID") <> 0  Then
		OutHintScript("恭喜您！隐藏频道菜单成功。")
	Else
		OutHintScript("恭喜您！显示频道菜单成功。")
	End If
End Sub

Private Sub UpdateLinkTarget()
	If Not IsNumeric(Request("ChannelID")) Then
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	If Request("ChannelID") <> "" And Request("EditID") <> ""  Then
		Newasp.Execute ("update NC_Channel set LinkTarget=" & CInt(Request("EditID")) & " where ChannelID=" & Request("ChannelID"))
		Call RemoveCache
		OutHintScript("恭喜您！更新连接目标成功。")
	Else
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
End Sub

Private Sub UpdateCreateHtml()
	If Not IsNumeric(Request("ChannelID")) Then
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	If Request("ChannelID") <> "" And Request("EditID") <> ""  Then
		Newasp.Execute ("update NC_Channel set IsCreateHtml=" & CInt(Request("EditID")) & " where ChannelID=" & Request("ChannelID"))
		Call RemoveCache
	Else
		ErrMsg = ErrMsg & "<li>非法的系统参数！</li>"
		Founderr = True
		Exit Sub
	End If
	If Request("EditID") <> 0  Then
		OutHintScript("恭喜您！打开此频道生成HTML功能成功。")
	Else
		OutHintScript("恭喜您！关闭此频道生成HTML功能成功。")
	End If
End Sub
Private Sub ReloadChannelCache()
	Newasp.DelCahe "Channel" & Request("ChannelID")
	Newasp.DelCahe "MyChannel" & Request("ChannelID")
	Newasp.DelCahe "ChannelMenu"
	Newasp.DelCahe "SiteClassMap"
	Response.Write "<script>alert('更新缓存成功！');javascript:history.back(1)</script>"
End Sub
Private Sub RemoveCache()
	Newasp.DelCahe "Channel" & Request("ChannelID")
	Newasp.DelCahe "MyChannel" & Request("ChannelID")
	Newasp.DelCahe "ChannelMenu"
	Newasp.DelCahe "SiteClassMap"
End Sub

%>