admin_server.asp

大型黄页系统,精美黄页flash演示,10m

					Else
						strParent = trs("strparent") & "," & trs("serverid")
					End If
					DownsysClass.Execute ("update NC_ServerSite set depth=depth+" & trs("depth") & "+1,orders=" & trs("orders") & "+" & i & ",rootid=" & trs("rootid") & ",strparent='" & strParent & "',parentid=" & Request("class") & " where serverid=" & Rs("serverid"))
				Else
					If trs("strparent") = "0" Then
						strParent = trs("serverid") & "," & Rs("strparent")
					Else
						strParent = trs("strparent") & "," & trs("serverid") & "," & Rs("strparent")
					End If
					DownsysClass.Execute ("update NC_ServerSite set depth=depth+" & trs("depth") & "+1,orders=" & trs("orders") & "+" & i & ",rootid=" & trs("rootid") & ",strparent='" & strParent & "' where serverid=" & Rs("serverid"))
				End If
				Rs.movenext
			Loop
		End If
	End If
	SucMsg = "<li>服务器修改成功！</li>"
	NC_Admin.Succeed_Msg (SucMsg)
	Set Rs = Nothing
	Set mrs = Nothing
	Set trs = Nothing
End Sub

Private Sub del()
	Set Rs = DownsysClass.Execute("select strparent,child,depth from NC_ServerSite where serverid=" & Request("editid"))
	If Not (Rs.EOF And Rs.bof) Then
		If Rs(1) > 0 Then
			Response.Write "该服务器含有下属服务器，请删除其下属服务器后再进行删除本服务器的操作"
			Exit Sub
		End If
		If Rs(2) > 0 Then
			DownsysClass.Execute ("update NC_ServerSite set child=child-1 where serverid in (" & Rs(0) & ")")
		End If
		SQL = "delete from NC_ServerSite where serverid=" & Request("editid")
		DownsysClass.Execute (SQL)
	End If
	NC_Admin.Succeed_Msg ("服务器删除成功！")
End Sub

Private Sub unfree()
	DownsysClass.Execute ("update NC_ServerSite set islock = 1 where serverid in (" & Request("editid") & ")")
	Response.redirect "admin_server.asp?action=ClassInfo"
End Sub

Private Sub free()
	DownsysClass.Execute ("update NC_ServerSite set islock = 0 where serverid in (" & Request("editid") & ")")
	Response.redirect "admin_server.asp?action=ClassInfo"
End Sub

Private Sub updateorders()
	Dim cID
	Dim OrderID
	Dim ServerName
	cID = Replace(Request.Form("cID"), "'", "")
	OrderID = Replace(Request.Form("OrderID"), "'", "")
	Set Rs = DownsysClass.Execute("select serverid from NC_ServerSite where rootid=" & OrderID)
	If Rs.bof And Rs.EOF Then
		NC_Admin.Succeed_Msg ("设置成功，请返回。")
		DownsysClass.Execute ("update NC_ServerSite set rootid=" & OrderID & " where rootid=" & cID)
	Else
		NC_Admin.Error_Msg ("请不要和其他服务器设置相同的序号")
	End If
	Set Rs = Nothing
End Sub

Private Sub boardorders()
	Dim trs
	Dim uporders
	Dim doorders
	Response.Write " <table width=""96%"" border=""0"" cellspacing=""1"" cellpadding=""2"" class=""tableBorder"" align=center>"
	Response.Write " <tr>"
	Response.Write " <th colspan=2 class=""forumrow"">服务器路径重新排序修改(请在相应服务器分类的排序表单内输入相应的排列序号)"
	Response.Write " </th>"
	Response.Write " </tr>"
	Set Rs = CreateObject("Adodb.recordset")
	SQL = "select * from NC_ServerSite 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_server.asp?action=updatboardorders method=post><tr><td width=""50%"" class=forumrow>"
			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 Rs("ServerName")
			If Rs("child") > 0 Then Response.Write "(" & Rs("child") & ")"
			Response.Write "</td><td width=""50%"" class=forumrow>"
			If Rs("ParentID") > 0 Then
				Set trs = DownsysClass.Execute("select count(*) from NC_ServerSite where ParentID=" & Rs("ParentID") & " and orders<" & Rs("orders") & "")
				uporders = trs(0)
				If IsNull(uporders) Then uporders = 0

				Set trs = DownsysClass.Execute("select count(*) from NC_ServerSite where 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>"
					For i = 1 To uporders
						Response.Write "<option value=" & i & ">↑" & i & "</option>"
					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>"
					For i = 1 To doorders
						Response.Write "<option value=" & i & ">↓" & i & "</option>"
					Next
					Response.Write "</select>"
				End If
				If doorders > 0 Or uporders > 0 Then
					Response.Write "<input type=hidden name=""editID"" value=""" & Rs("serverid") & """>&nbsp;<input type=submit name=Submit class=button value='修 改'>"
				End If
			End If
			Response.Write "</td></tr></form>"
			uporders = 0
			doorders = 0
			Rs.movenext
		Loop
	End If
	Rs.Close
	Set Rs = Nothing
	Response.Write "</table>"
End Sub

Private Sub updateboardorders()
	Dim ParentID
	Dim orders
	Dim strParent
	Dim Child
	Dim uporders
	Dim doorders
	Dim oldorders
	Dim trs
	Dim ii
	If Not IsNumeric(Request("editID")) Then
		NC_Admin.Error_Msg ("非法的参数！")
		Exit Sub
	End If
	If Request("uporders") <> "" And Not CInt(Request("uporders")) = 0 Then
		If Not IsNumeric(Request("uporders")) Then
			NC_Admin.Error_Msg ("非法的参数！")
			Exit Sub
		ElseIf CInt(Request("uporders")) = 0 Then
			NC_Admin.Error_Msg ("请选择要提升的数字！")
			Exit Sub
		End If
		Set Rs = DownsysClass.Execute("select ParentID,orders,strparent,child from NC_ServerSite where serverid=" & Request("editID"))
		ParentID = Rs(0)
		orders = Rs(1)
		strParent = Rs(2) & "," & Request("editID")
		Child = Rs(3)
		i = 0
		If Child > 0 Then
			Set Rs = DownsysClass.Execute("select count(*) from NC_ServerSite where strparent like '%" & strParent & "%'")
			oldorders = Rs(0)
		Else
			oldorders = 0
		End If
		Set Rs = DownsysClass.Execute("select serverid,orders,child,strparent from NC_ServerSite where 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 = DownsysClass.Execute("select serverid,orders from NC_ServerSite where strparent like '%" & Rs(3) & "," & Rs(0) & "%' order by orders")
					If Not (trs.EOF And trs.bof) Then
						Do While Not trs.EOF
							ii = ii + 1
							DownsysClass.Execute ("update NC_ServerSite set orders=" & orders & "+" & oldorders & "+" & ii & " where serverid=" & trs(0))
							trs.movenext
						Loop
					End If
				End If
				DownsysClass.Execute ("update NC_ServerSite set orders=" & orders & "+" & oldorders & " where serverid=" & Rs(0))
				If CInt(Request("uporders")) = i Then uporders = Rs(1)
			End If
			orders = Rs(1)
			Rs.movenext
		Loop
		DownsysClass.Execute ("update NC_ServerSite set orders=" & uporders & " where serverid=" & Request("editID"))
		If Child > 0 Then
			i = uporders
			Set Rs = DownsysClass.Execute("select serverid from NC_ServerSite where strparent like '%" & strParent & "%' order by orders")
			Do While Not Rs.EOF
				i = i + 1
				DownsysClass.Execute ("update NC_ServerSite set orders=" & i & " where serverid=" & Rs(0))
				Rs.movenext
			Loop
		End If
		Set Rs = Nothing
		Set trs = Nothing
	ElseIf Request("doorders") <> "" Then
		If Not IsNumeric(Request("doorders")) Then
			NC_Admin.Error_Msg ("非法的参数！")
			Exit Sub
		ElseIf CInt(Request("doorders")) = 0 Then
			NC_Admin.Error_Msg ("请选择要下降的数字！")
			Exit Sub
		End If
		Set Rs = DownsysClass.Execute("select ParentID,orders,strparent,child from NC_ServerSite where serverid=" & Request("editID"))
		ParentID = Rs(0)
		orders = Rs(1)
		strParent = Rs(2) & "," & Request("editID")
		Child = Rs(3)
		i = 0
		If Child > 0 Then
			Set Rs = DownsysClass.Execute("select count(*) from NC_ServerSite where strparent like '%" & strParent & "%'")
			oldorders = Rs(0)
		Else
			oldorders = 0
		End If
		Set Rs = DownsysClass.Execute("select serverid,orders,child,strparent from NC_ServerSite where ParentID=" & ParentID & " and orders>" & orders & " order by orders")
		Do While Not Rs.EOF
			i = i + 1
			If CInt(Request("doorders")) >= i Then
				If Rs(2) > 0 Then
					ii = 0
					Set trs = DownsysClass.Execute("select serverid,orders from NC_ServerSite where strparent like '%" & Rs(3) & "," & Rs(0) & "%' order by orders")
					If Not (trs.EOF And trs.bof) Then
						Do While Not trs.EOF
							ii = ii + 1
							DownsysClass.Execute ("update NC_ServerSite set orders=" & orders & "+" & ii & " where serverid=" & trs(0))
							trs.movenext
						Loop
					End If
				End If
				DownsysClass.Execute ("update NC_ServerSite set orders=" & orders & " where serverid=" & Rs(0))
				If CInt(Request("doorders")) = i Then doorders = Rs(1)
			End If
			orders = Rs(1)
			Rs.movenext
		Loop
		DownsysClass.Execute ("update NC_ServerSite set orders=" & doorders & " where serverid=" & Request("editID"))
		If Child > 0 Then
			i = doorders
			Set Rs = DownsysClass.Execute("select serverid from NC_ServerSite where strparent like '%" & strParent & "%' order by orders")
			Do While Not Rs.EOF
				i = i + 1
				DownsysClass.Execute ("update NC_ServerSite set orders=" & i & " where serverid=" & Rs(0))
				Rs.movenext
			Loop
		End If

	End If
	Response.redirect "admin_server.asp?action=boardorders"
	Response.End
End Sub

Private Sub RestoreBoard()
	i = 0
	Set Rs = DownsysClass.Execute("select serverid from NC_ServerSite order by rootid,orders")
	Do While Not Rs.EOF
		i = i + 1
		DownsysClass.Execute ("update NC_ServerSite set rootid=" & i & ",depth=0,orders=0,ParentID=0,strparent='0',child=0 where serverid=" & Rs(0))
		Rs.movenext
	Loop
	NC_Admin.Succeed_Msg ("复位成功，请返回做服务器归属设置。")
End Sub
%>