📄 admin_server.asp
字号:
<!--#include file="setup.asp"-->
<%
Dim Rs_c, i
NC_Admin.AdminChk = "13"
NC_Admin.Check
DownsysClass.admin_header
Response.Write "<table width=""96%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
Response.Write "<tr>"
Response.Write "<th width=""100%"" class=""tableHeaderText"" colspan=2 height=25>服务器分类管理"
Response.Write "</th>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td class=""forumrow"" colspan=2>"
Response.Write "<p><B>注意</B>：<BR>①删除服务器分类同时将删除该服务器分类下所有的服务器信息！删除服务器分类同时删除下属服务器和所有服务器！ 操作时请完整填写表单信息。<BR>"
Response.Write " ②如果选择<B>复位所有服务器</B>，则所有服务器都将作为一级分类（服务器），这时您需要重新对各个服务器进行归属的基本设置，<B>不要轻易使用该功能</B>，仅在做出了错误的设置而无法复原服务器之间的关系和排序的时候使用 </p>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "<tr>"
Response.Write "<td class=""forumrow"">"
Response.Write "<B>操作选项</B></td>"
Response.Write "<td class=""forumrow""><a href=""admin_server.asp"">服务器管理首页</a>|<a href=""admin_server.asp?action=add"">新建服务器分类</a>"
Response.Write "|<a href=""?action=boardorders"">服务器路径排序</a>"
Response.Write "|<a href=""?action=RestoreBoard"" onclick=""{if(confirm('复位所有服务器将把所有服务器恢复成为一级大服务器，复位后要对所有服务器重新进行归属的基本设置，请慎重操作，确定复位吗?')){return true;}return false;}"">复位所有服务器</a>"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "<p></p>"
Select Case Request("action")
Case "add"
Call Add
Case "edit"
Call edit
Case "savenew"
Call savenew
Case "savedit"
Call savedit
Case "del"
Call del
Case "unfree"
Call unfree
Case "free"
Call free
Case "updatorders"
Call updateorders
Case "boardorders"
Call boardorders
Case "updatboardorders"
Call updateboardorders
Case "RestoreBoard"
Call RestoreBoard
Case Else
Call ClassInfo
End Select
If Founderr = True Then
NC_Admin.Error_Msg (ErrMsg)
End If
DownsysClass.admin_footer
NothingObject
Private Sub ClassInfo()
Response.Write " <table width=""96%"" class=""tableBorder"" cellspacing=""1"" cellpadding=""2"" align=center>"
Response.Write " <tr>"
Response.Write " <th width=""35%""><strong>服务器分类</strong> </th>"
Response.Write " <th width=""35%""><strong>操作</strong> </th>"
Response.Write "</tr>"
SQL = "select * from NC_ServerSite order by rootid,orders"
Set Rs = Server.CreateObject("adodb.recordset")
Rs.Open SQL, Conn, 1, 1
DownsysClass.SqlQueryNum = DownsysClass.SqlQueryNum + 1
Do While Not Rs.EOF
Response.Write " <tr class=""forumrow"">"
Response.Write " <td width=35% class=""forumrow"">"
Response.Write " "
If Rs("islock") = 1 Then
Response.Write "<img src='images/locks.gif' border=0 align=absMiddle>"
End If
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
Response.Write Rs("ServerName")
If Rs("parentid") = 0 Then
Response.Write "(" & Rs("child") & ")"
Response.Write " </td>"
Response.Write " <td width=65% class=""forumrow"" align=right><a href=""admin_server.asp?action=add&editid="
Response.Write Rs("serverid")
Response.Write """>添加服务器</a>"
Response.Write " | <a href=""admin_server.asp?action=edit&editid="
Response.Write Rs("serverid")
Response.Write """>服务器设置</a>"
Response.Write " |"
Response.Write " "
If Rs("child") = 0 Then
Response.Write " <a href=""admin_server.asp?action=del&editid="
Response.Write Rs("serverid")
Response.Write """ onclick=""{if(confirm('删除将包括该服务器的所有服务器，确定删除吗?')){return true;}return false;}"">删除"
Response.Write " "
Else
Response.Write "<a href=""#"" onclick=""{if(confirm('该服务器含有下属服务器，必须先删除其下属服务器方能删除本服务器！')){return true;}return false;}"">"
Response.Write " 删除</a>"
Response.Write " "
End If
Else
Response.Write " </td>"
Response.Write " <td width=65% class=""forumrow"" align=right><a href=""admin_server.asp?action=unfree&editid="
Response.Write Rs("serverid")
Response.Write """>锁定服务器</a>"
Response.Write " | <a href=""admin_server.asp?action=free&editid="
Response.Write Rs("serverid")
Response.Write """>解除锁定</a>"
Response.Write " | <a href=""admin_server.asp?action=edit&editid="
Response.Write Rs("serverid")
Response.Write """>服务器设置</a>"
Response.Write " |"
Response.Write " "
If Rs("child") = 0 Then
Response.Write " <a href=""admin_server.asp?action=del&editid="
Response.Write Rs("serverid")
Response.Write """ onclick=""{if(confirm('删除将包括该服务器的所有服务器，确定删除吗?')){return true;}return false;}"">删除"
Response.Write " "
Else
Response.Write "<a href=""#"" onclick=""{if(confirm('该服务器含有下属服务器，必须先删除其下属服务器方能删除本服务器！')){return true;}return false;}"">"
Response.Write " 删除</a>"
Response.Write " "
End If
End If
Response.Write " </td>"
Response.Write "</tr>"
Rs.movenext
i = i + 1
Loop
Rs.Close
Set Rs = Nothing
Response.Write "</table>"
End Sub
Private Sub Add()
Dim SortNum
Set Rs = CreateObject("Adodb.recordset")
SQL = "select Max(serverid) from NC_ServerSite"
Rs.Open SQL, Conn, 1, 1
If Rs.bof And Rs.EOF Then
SortNum = 1
Else
SortNum = Rs(0) + 1
End If
If IsNull(SortNum) Then SortNum = 1
Rs.Close
Response.Write "<form action =""admin_server.asp?action=savenew"" method=post>"
Response.Write "<input type=""hidden"" name=""newserverid"" value="""
Response.Write SortNum
Response.Write """>"
Response.Write " <table width=""96%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
Response.Write " <tr>"
Response.Write " <th colspan=2>添加新服务器</th>"
Response.Write "</tr>"
Response.Write " <tr class=""forumrow"">"
Response.Write " <td width=""30%"" class=""forumrow"" height=30><U>服务器名称</U></td>"
Response.Write " <td width=""70%"" class=""forumrow"">"
Response.Write " <input type=""text"" name=""ServerName"" size=""35"">"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write " <tr>"
Response.Write " <td height=24 class=""forumrow""><U>服务器地址</U></td>"
Response.Write " <td class=""forumrow"">"
Response.Write " <input type=""text"" name=""ServerUrl"" size=""50""> "
Response.Write "</td>"
Response.Write "</tr>"
Response.Write " <tr>"
Response.Write " <td height=30 class=""forumrow""><U>所属类别</U></td>"
Response.Write " <td class=""forumrow"">"
Response.Write " <select name=""class"">"
Response.Write "<option value=""0"">做为服务器分类</option>"
SQL = "select * from NC_ServerSite where depth = 0 order by rootid,orders "
Rs.Open SQL, Conn, 1, 1
Do While Not Rs.EOF
Response.Write "<option value=""" & Rs("serverid") & """ "
If Request("editid") <> "" And CLng(Request("editid")) = Rs("serverid") Then Response.Write "selected"
Response.Write ">"
Response.Write Rs("ServerName") & "</option>" & vbCrLf
Rs.movenext
Loop
Rs.Close
Response.Write "</select>"
Response.Write "</td>"
Response.Write " <tr>"
Response.Write " <td height=24 class=""forumrow""> </td>"
Response.Write " <td class=""forumrow"">"
Response.Write " <input type=""submit"" name=""Submit"" class=button value=""添加服务器"">"
Response.Write "</td>"
Response.Write "</tr>"
Response.Write "</table>"
Response.Write "</form>"
Set Rs = Nothing
End Sub
Private Sub edit()
Dim Rs_e
Set Rs = CreateObject("Adodb.recordset")
SQL = "select * from NC_ServerSite where serverid=" & Request("editid")
Set Rs_e = DownsysClass.Execute(SQL)
Response.Write "<form action =""admin_server.asp?action=savedit"" method=post>"
Response.Write "<input type=""hidden"" name=editid value="""
Response.Write Request("editid")
Response.Write """>"
Response.Write " <table width=""96%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">"
Response.Write " <tr>"
Response.Write " <th height=24 colspan=2>编辑服务器："
Response.Write Rs_e("ServerName")
Response.Write "</th>"
Response.Write " </tr>"
Response.Write " <tr class=""forumrow"">"
Response.Write " <td width=""30%"" height=30 class=""forumrow""><U>服务器名称</U></td>"
Response.Write " <td width=""70%"" class=""forumrow"">"
Response.Write " <input type=""text"" name=""ServerName"" size=""35"" value="""
Response.Write Rs_e("ServerName")
Response.Write """>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=""forumrow""height=24><U>服务器地址</U><BR>"
Response.Write " </td>"
Response.Write " <td class=""forumrow"">"
Response.Write " <input type=""text"" name=""ServerUrl"" size=""50"" value="""
Response.Write Rs_e("ServerUrl")
Response.Write """>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td height=30 class=""forumrow""><U>所属类别</U></td>"
Response.Write " <td class=""forumrow"">"
Response.Write " <select name=""class"">"
Response.Write " <option value=""0"">做为服务器分类</option>"
Response.Write " "
SQL = "select * from NC_ServerSite where depth = 0 order by rootid,orders"
Rs.Open SQL, Conn, 1, 1
Do While Not Rs.EOF
Response.Write "<option value=""" & Rs("serverid") & """ "
If Rs_e("parentid") = Rs("serverid") Then Response.Write "selected"
Response.Write ">"
Response.Write Rs("ServerName") & "</option>" & vbCrLf
Rs.movenext
Loop
Rs.Close
Response.Write " </select> </td>"
Response.Write " </tr>"
Response.Write " <tr>"
Response.Write " <td class=""forumrow""height=24> </td>"
Response.Write " <td class=""forumrow"">"
Response.Write " <input type=""submit"" name=""Submit"" class=button value=""保存修改"">"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write "</form>"
Set Rs = Nothing
Set Rs_e = Nothing
End Sub
Private Sub savenew()
Dim serverid
Dim rootid
Dim ParentID
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -