📄 admin_server.asp
字号:
return true;
}
</script>
<form method="post" action="Admin_Server.asp" name="form1" onsubmit="return CheckForm();">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="title">
<td height="22" colspan="2"> <div align="center"><strong><%=SubmitValue%> 服 务 器</strong></div></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>所属方案：</strong></td>
<td>
<Select Name="ProjectID" <%if Action = "Modify" then%>Disabled<%End if%>>
<option value='0'>请选择方案</option><%
Set Rs=Cl.Execute("Select ProjectID,ProjectName From Cl_ServerProject order by ProjectID desc")
Do while Not Rs.Eof
if ProjectID=rs(0) then
Response.write "<option value='"&rs(0)&"' selected>"&rs(1)&"</option>"
else
Response.write "<option value='"&rs(0)&"'>"&rs(1)&"</option>"
end if
Rs.MoveNext
Loop
Rs.Close : Set Rs=Nothing
%></Select> <font color=red>*</font></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>服务器名称：</strong></td>
<td><input name="ServerName" type="text" id="ServerName" value="<%=Server.HTMLEnCode(ServerName)%>" size="60" maxlength="200"> <font color=red>*</font></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>服务器地址：</strong></td>
<td><input name="ServerAddress" type="text" id="ServerAddress" size="60" maxlength="200" value="<%=ServerAddress%>"> <font color=red>*</font><br /><font color=red>形式如：http://192.168.1.1/或http://www.aspoo.com/，后面要带“/”。</font></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>服务器说明：</strong></td>
<td><textarea name="ReadMe" cols="50" rows="5" id="ReadMe"><%=ReadMe%></textarea></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>使用 等级：</strong></td>
<td>
<input name="DownGroup" type="hidden" id="DownGroup" value="<%=DownGroup%>">
<input name="DownGroupView" type="text" id="DownGroupView" value="<%=Cl.GetUserGroupName(DownGroup)%>" size="60" onclick="SelectUserGroup('DownGroup');" Readonly></td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>使用 <%=Cl.Web_Setting(28)%>：</strong></td>
<td><input name="DownPoint" type="text" id="DownPoint" size="8" value="<%=DownPoint%>" maxlength="5"> <font color="blue">如果大于0，则使用此服务器将扣除用户相应的<%=Cl.Web_Setting(28)%>。</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>使用 <%=Cl.Web_Setting(26)%>：</strong></td>
<td><input name="DownMoney" type="text" id="DownMoney" size="8" value="<%=DownMoney%>" maxlength="5"> <font color="blue">如果大于0，则使用此服务器将扣除用户相应的金钱。</td>
</tr>
<tr class="tdbg">
<td width="150" align="right"><strong>是否 禁用：</strong></td>
<td>
<input type="radio" name="IsDisabled" value="0" <%if Not IsDisabled then%>checked<%end if%>>
启 用
<input type="radio" name="IsDisabled" value="1" <%if IsDisabled then%>checked<%end if%>>
禁 用</td>
</tr>
<tr class="tdbg">
<td colspan="2" align="center" class="tdbg">
<input name="Action" type="hidden" id="Action" value="<%=sAction%>">
<input name="ServerID" type="hidden" id="ServerID" value="<%=ServerID%>">
<input type="submit" name="Submit" value=" <%=SubmitValue%> "> <input name="Cancel" type="button" id="Cancel" value=" 取 消 " onClick="window.location.href='Admin_Server.asp?ProjectID=<%=ProjectID%>'" style="cursor:hand;"></td>
</tr>
</table>
</form>
<%
end sub
sub SaveServerInfo()
dim sTemp
dim ServerName,ServerAddress,ReadMe,DownGroup,DownPoint,DownMoney,IsDisabled
ServerName = Trim(request("ServerName"))
ServerAddress = Trim(request("ServerAddress"))
ReadMe = Trim(request("ReadMe"))
DownGroup = Trim(request("DownGroup"))
DownPoint = Cl.GetClng(request("DownPoint"))
DownMoney = Cl.GetClng(request("DownMoney"))
IsDisabled = Cl.GetClng(request("IsDisabled"))
if ServerName="" or ServerAddress="" then
Cl.ShowErr("<br /><li>服务器名或服务器地址不能为空！</li>")
end if
if DownGroup="" then DownGroup=5
if IsDisabled=0 then
IsDisabled=False
else
IsDisabled=True
end if
Set rs=Server.CreateObject("Adodb.RecordSet")
if Action="SaveAddServer" then
Dim MaxOrderID,rsM
MaxOrderID=Cl.Execute("select max(OrderID) from Cl_Server Where ProjectID="&ProjectID)(0)
if Not IsNumeric(MaxOrderID) then MaxOrderID=0
OpenConn : rs.open "Select Top 1 * From Cl_Server",Conn,1,3
rs.addnew
rs("ProjectID") = ProjectID
rs("OrderID") = MaxOrderID+1
elseif Action="SaveModifyServer" then
OpenConn : rs.open "Select * From Cl_Server Where ServerID=" & ServerID,Conn,1,3
if rs.bof and rs.EOF then
rs.close:set rs=Nothing
Cl.ShowErr("<br /><li>找不到指定的记录！</li>")
end if
else
Set rs=Nothing
Cl.ShowErr("<br /><li>参数错误！</li>")
end if
rs("ServerName") = ServerName
rs("ServerAddress") = ServerAddress
rs("DownGroup") = DownGroup
rs("DownPoint") = DownPoint
rs("DownMoney") = DownMoney
rs("IsDisabled") = IsDisabled
rs("ReadMe") = Replace(ReadMe&"",Vbcrlf,"")
rs.update
rs.Close:set rs=Nothing
Cl.SaveAdminLog
'Cl.Load_ServerList() '下载站可开启
Response.Redirect "Admin_Server.asp?ProjectID="&ProjectID
end sub
sub DelServer()
sql="Select * From Cl_Server Where ServerID="&ServerID
Set rs=Server.CreateObject("Adodb.RecordSet")
OpenConn : rs.open sql,Conn,1,3
if rs.bof and rs.EOF then
rs.Close:set rs=Nothing
Cl.ShowErr("<br /><li>找不到指定的服务器！</li>")
end if
rs.delete
rs.update
rs.Close:set rs=Nothing
Cl.SaveAdminLog
Response.Redirect "Admin_Server.asp?ProjectID="&ProjectID
End Sub
sub OrderID()
if ProjectID=0 then Cl.ShowErr("请指定要编辑的服务器方案ID")
Set rs=Server.CreateObject("Adodb.RecordSet")
sql="select ServerID,ProjectID,ServerName,ServerAddress,OrderID,DownGroup,DownPoint,DownMoney,IsDisabled from Cl_Server where ProjectID="&ProjectID&" order by OrderID"
OpenConn : rs.Open sql,Conn,1,1
if rs.eof then Exit Sub
Dim iCount,j
iCount=rs.recordcount
j=1
%>
<br />
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td width="60" align="center"><strong>服务器ID</strong></td>
<td height="22" align="center"><strong>服务器名称</strong></td>
<td width="50" align="center"><strong>状态</strong></td>
<td width="50" align="center"><strong>排序ID</strong></td>
<td width="240" colspan="2" align="center"><strong>排序操作</strong></td>
</tr>
<%do while not rs.EOF %>
<tr class="tdbg" onMouseOut="this.className='tdbg'" onMouseOver="this.className='tdbg2'">
<td width="60" align="center"><%=rs("ServerID")%></td>
<td align="center"><%=rs("ServerName")%></td>
<td width="50" align="center"><%
if rs("IsDisabled")=False then
response.write "<a href='Admin_Server.asp?Action=IsDisabled&ProjectID=" & ProjectID & "&ServerID="&rs("ServerID")&"' title='点击禁用'><font color=#0000ff>启用</font></a>"
else
response.write "<a href='Admin_Server.asp?Action=CIsDisabled&ProjectID=" & ProjectID & "&ServerID="&rs("ServerID")&"' title='点击启用'><font color=#ff0033>禁用</font></a>"
end if
%></td>
<td width="50" align="center"><%=rs("OrderID")%></td>
<form action="Admin_Server.asp?Action=UpOrder" method="post">
<td width="120" align="center"> <%
if j>1 then
response.write "<select name=MoveNum size=1><option value=0>向上移动</option>"
for i=1 to j-1
response.write "<option value="&i&">"&i&"</option>"
next
response.write "</select>"
response.write "<input type=hidden name=ProjectID value="&ProjectID&">"
response.write "<input type=hidden name=ServerID value="&rs("ServerID")&">"
response.write "<input type=hidden name=cOrderID value="&rs("OrderID")&"> <input type=submit name=Submit value=修改>"
else
response.write " "
end if
%> </td>
</form>
<form action="Admin_Server.asp?Action=DownOrder" method="post">
<td width="120" align="center"> <%
if iCount>j then
response.write "<select name=MoveNum size=1><option value=0>向下移动</option>"
for i=1 to iCount-j
response.write "<option value="&i&">"&i&"</option>"
next
response.write "</select>"
response.write "<input type=hidden name=ProjectID value="&ProjectID&">"
response.write "<input type=hidden name=ServerID value="&rs("ServerID")&">"
response.write "<input type=hidden name=cOrderID value="&rs("OrderID")&"> <input type=submit name=Submit value=修改>"
else
response.write " "
end if
%> </td>
</form>
</tr>
<%
j=j+1
rs.MoveNext
loop
%>
</table>
<%
rs.Close:set rs=Nothing
end sub
sub UpOrder()
dim sqlOrder,rsOrder,MoveNum,cOrderID,tOrderID
cOrderID=Cl.GetClng(request("cOrderID"))
MoveNum=Cl.GetClng(request("MoveNum"))
if ServerID=0 then Cl.ShowErr("<br /><li>参数不足！</li>")
if cOrderID=0 then
Cl.ShowErr("<br /><li>错误参数！</li>")
end if
if MoveNum=0 then
Cl.ShowErr("<br /><li>请选择要提升的数字！</li>")
end if
dim mrs,MaxOrderID
set mrs=Cl.Execute("Select max(OrderID) From Cl_Server Where ProjectID=" & ProjectID)
MaxOrderID=mrs(0)+1
Cl.Execute("Update Cl_Server set OrderID=" & MaxOrderID & " where ServerID=" & ServerID) '先将当前栏目移至最后，包括子栏目
'然后将位于当前栏目以上的栏目的OrderID依次加一，范围为要提升的数字
sqlOrder="select * From Cl_Server where OrderID<" & cOrderID & " and ProjectID="&ProjectID&" order by OrderID desc"
set rsOrder=server.CreateObject("adodb.recordset")
OpenConn : rsOrder.open sqlOrder,Conn,1,3
if rsOrder.bof and rsOrder.eof then
exit sub '如果当前栏目已经在最上面，则无需移动
end if
i=1
do while not rsOrder.eof
tOrderID=rsOrder("OrderID") '得到要提升位置的OrderID，包括子栏目
Cl.Execute("Update Cl_Server set OrderID=OrderID+1 where ProjectID="&ProjectID&" and OrderID=" & tOrderID)
i=i+1
if i>MoveNum then exit do
rsOrder.movenext
loop
rsOrder.close : set rsOrder=Nothing
Cl.Execute("Update Cl_Server set OrderID=" & tOrderID & " where ServerID=" & ServerID) '然后再将当前栏目从最后移到相应位置
Cl.SaveAdminLog
response.redirect "Admin_Server.asp?Action=OrderID&ProjectID="&ProjectID
end sub
sub DownOrder()
dim sqlOrder,rsOrder,MoveNum,cOrderID,tOrderID
cOrderID=Cl.GetClng(request("cOrderID"))
MoveNum=Cl.GetClng(request("MoveNum"))
if ServerID=0 then Cl.ShowErr("<br /><li>参数不足！</li>")
if cOrderID=0 Then Cl.ShowErr("<br /><li>错误参数！</li>")
if MoveNum=0 Then Cl.ShowErr("<br /><li>请选择要提升的数字！</li>")
dim mrs,MaxOrderID
set mrs=Cl.Execute("select max(OrderID) From Cl_Server Where ProjectID=" & ProjectID)
MaxOrderID=mrs(0)+1
'先将当前栏目移至最后，包括子栏目
Cl.Execute("Update Cl_Server set OrderID=" & MaxOrderID & " where ServerID=" & ServerID)
'然后将位于当前栏目以下的栏目的OrderID依次减一，范围为要下降的数字
sqlOrder="select * From Cl_Server where OrderID>" & cOrderID & " and ProjectID="&ProjectID&" order by OrderID"
set rsOrder=server.CreateObject("adodb.recordset")
OpenConn : rsOrder.open sqlOrder,Conn,1,3
if rsOrder.bof and rsOrder.eof then
exit sub '如果当前栏目已经在最下面，则无需移动
end if
i=1
do while not rsOrder.eof
tOrderID=rsOrder("OrderID") '得到要提升位置的OrderID，包括子栏目
Cl.Execute("Update Cl_Server set OrderID=OrderID-1 where ProjectID="&ProjectID&" and OrderID=" & tOrderID)
i=i+1
if i>MoveNum then exit do
rsOrder.movenext
loop
rsOrder.close : set rsOrder=Nothing
'然后再将当前栏目从最后移到相应位置，包括子栏目
Cl.Execute("Update Cl_Server set OrderID=" & tOrderID & " where ServerID=" & ServerID)
Cl.SaveAdminLog
response.redirect "Admin_Server.asp?Action=OrderID&ProjectID="&ProjectID
end sub
Sub IsDisabled()
Cl.Execute("Update Cl_Server Set IsDisabled="&TrueType&" where ServerID="&ServerID&"")
Cl.SaveAdminLog : ServerMain
End Sub
Sub CIsDisabled()
Cl.Execute("Update Cl_Server Set IsDisabled="&FalseType&" where ServerID="&ServerID&"")
Cl.SaveAdminLog : ServerMain
End Sub
%>
<%
'<!--
'┌───────────────────────────────────────────────────────┐
'│ │
'│ CreateLive CMS Version 4.0 │
'│ Powered by Aspoo.CN │
'│ │
'│ 邮箱: support@aspoo.cn Info@aspoo.cn │
'│ ＱＱ: 3315263 596197794 │
'│ 网站: www.aspoo.cn www.aspoo.com │
'│ 论坛: bbs.aspoo.cn bbs.aspoo.com │
'│ │
'│ Copyright (C) 2005-2007 Aspoo.CN All Rights Reserved. │
'└───────────────────────────────────────────────────────┘
'-->
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -