📄 admin_server.asp
字号:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 软件名称：四博CMS网站管理系统 2008 sp3
' 当前版本：dincoo.com
' 文件名称：admin_server.asp
' 更新日期：2006-12-20
' 官方网站：新云网络(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2003-2007 newasp.net - All Rights Reserved.
' newasp is a trademark of newasp.net
'=====================================================================
Dim Action, Flag, i, RsObj,selfont
ChannelID = Newasp.ChkNumeric(Request("ChannelID"))
If ChannelID = 0 Then ChannelID = 2
Response.Write "<table width=""96%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<th colspan=2>下载服务器管理" & vbNewLine
Response.Write "</th>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<td class=""TableRow1"" colspan=2>" & vbNewLine
Response.Write "<p><B>说明</B>：<BR>①、在这里您可以进行添加/删除下载服务器，请先添加服务器分类然后添加下载路径。<BR>" & vbNewLine & " "
Response.Write " ②、您可以添加多个下载路径，将会在下载信息页面显示。<BR>"
Response.Write " ③、建议添加后的服务器一级分类最好不要轻易删除，下载路径可以根据需要修改、删除或锁定。</p>"
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "<tr>" & vbNewLine
Response.Write "<td class=""TableRow1"">" & vbNewLine
Response.Write "<B>操作选项</B></td>" & vbNewLine
Response.Write "<td class=""TableRow1""><a href=""admin_server.asp?ChannelID=" & ChannelID & """>服务器管理首页</a> | <a href=""admin_server.asp?action=add&ChannelID=" & ChannelID & """>添加新的服务器</a>" & vbNewLine
Response.Write " | <a href=""admin_server.asp?action=serverorders&ChannelID=" & ChannelID & """>服务器路径排序</a>" & vbNewLine
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
Response.Write "<br>"
%>
<script language="javascript">
function formatbt()
{
var arr = showModalDialog("include/btformat.htm?",null, "dialogWidth:250pt;dialogHeight:166pt;toolbar=no;location=no;directories=no;status=no;menubar=NO;scrollbars=no;resizable=no;help=0; status:0");
if (arr != null){
document.myform.selfont.value=arr;
myfont.innerHTML="<span style='background-color: #FFFFff;font-size:14px' "+arr+">设置标题样式 ABCdef</span>";
}
}
function Cancelform()
{
document.myform.selfont.value='';
myfont.innerHTML="<span style='background-color: #FFFFff;font-size:14px;color:#000000'>设置标题样式 ABCdef</span>";
}
//-->
</script>
<%
Flag = "DownServer" & ChannelID
Action = LCase(Newasp.RemoveBadCharacters(Request("action")))
If Not ChkAdmin(Flag) Then
Server.Transfer ("showerr.asp")
Response.End
End If
Select Case Request("action")
Case "add"
Call sAdd
Case "edit"
Call sEdit
Case "savenew"
Call savenew
Case "savedit"
Call saveedit
Case "del"
Call DelDownPath
Case "serverorders"
Call serverorders
Case "updateorders"
Call updateorders
Case "lock"
Call isLock
Case "free"
Call FreeLock
Case Else
Call ShowMain
End Select
If FoundErr = True Then
ReturnError (ErrMsg)
End If
Admin_footer
SaveLogInfo(AdminName)
CloseConn
'================================================
'过程名：ShowMain
'作 用：服务器管理首页
'================================================
Sub ShowMain()
Dim DownloadName
Response.Write " <table width=""96%"" class=""tableBorder"" cellspacing=""1"" cellpadding=""2"" align=center>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <th width=""35%"">服务器分类</th>" & vbNewLine
Response.Write " <th width=""45%"">操 作</th>" & vbNewLine
Response.Write " <th width=""10%"" noWrap>日下载数</th>" & vbNewLine
Response.Write " <th width=""10%"" noWrap>总共下载数</th>" & vbNewLine
Response.Write "</tr>" & vbNewLine
SQL = "SELECT * FROM NC_DownServer WHERE ChannelID=" & ChannelID & " ORDER BY rootid,orders"
Set Rs = CreateObject("ADODB.Recordset")
Rs.Open SQL, Conn, 1, 1
Newasp.SqlQueryNum = Newasp.SqlQueryNum + 1
Do While Not Rs.EOF
selfont = Rs("selfont") & ""
Response.Write " <tr class=""TableRow1"">" & vbNewLine
Response.Write " <td width=35% class=""TableRow1"">" & vbNewLine
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
If Rs("parentid") = 0 Then Response.Write ("<b>[" & Rs("rootid") & "] ")
If Len(selfont) < 10 Then
DownloadName = Rs("DownloadName")
Else
DownloadName = "<span " & selfont & ">" & Rs("DownloadName") & "</span>"
End If
Response.Write Replace(DownloadName, "{$DownPoint}", Rs("DownPoint"))
If Rs("child") > 0 Then Response.Write "(" & Rs("child") & ")"
If Rs("parentid") = 0 Then Response.Write ("</b>")
Response.Write " </td>" & vbNewLine
Response.Write " <td class=""TableRow1"" align=right>"
If Rs("depth") = 0 Then
Response.Write "<a href=""admin_server.asp?action=add&editid="
Response.Write Rs("downid")
Response.Write "&ChannelID=" & ChannelID & """>添加下载服务器路径</a>" & vbNewLine
Else
Response.Write "<a href=""admin_server.asp?action=lock&editid="
Response.Write Rs("downid")
Response.Write "&ChannelID=" & ChannelID & """>锁定服务器</a>"
Response.Write " | <a href=""admin_server.asp?action=free&editid="
Response.Write Rs("downid")
Response.Write "&ChannelID=" & ChannelID & """>解除锁定</a>"
End If
Response.Write " | <a href=""admin_server.asp?action=edit&editid="
Response.Write Rs("downid")
Response.Write "&ChannelID=" & ChannelID & """>服务器设置</a>" & vbNewLine
Response.Write " |" & vbNewLine
Response.Write " "
If Rs("child") = 0 Then
Response.Write " <a href=""admin_server.asp?action=del&editid="
Response.Write Rs("downid")
Response.Write "&ChannelID=" & ChannelID & """ onclick=""{if(confirm('删除将包括该服务器的所有信息，确定删除吗?')){return true;}return false;}"">删除" & vbNewLine
Response.Write " "
Else
Response.Write "<a href=""#"" onclick=""{if(confirm('该服务器含有下载路径，必须先删除其下载路径方能删除本服务器！')){return true;}return false;}"">" & vbNewLine
Response.Write " 删除</a>" & vbNewLine
Response.Write " "
End If
Response.Write " </td>" & vbNewLine
Response.Write " <td class=""TableRow1"" align=""center"">"
If Rs("depth") > 0 Then
Response.Write Rs("DayDownHits")
End If
Response.Write " </td>" & vbNewLine
Response.Write " <td class=""TableRow1"" align=""center"">"
If Rs("depth") > 0 Then
Response.Write Rs("AllDownHits")
End If
Response.Write " </td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Rs.MoveNext
i = i + 1
Loop
Rs.Close
Set Rs = Nothing
Response.Write "</table>" & vbNewLine
End Sub
'================================================
'过程名：sAdd
'作 用：添加服务器
'================================================
Sub sAdd()
Dim ServerNum
On Error Resume Next
Set Rs = CreateObject("ADODB.Recordset")
SQL = "SELECT MAX(downid) FROM NC_DownServer"
Rs.Open SQL, Conn, 1, 1
If Rs.BOF And Rs.EOF Then
ServerNum = 1
Else
ServerNum = Rs(0) + 1
End If
If IsNull(ServerNum) Then ServerNum = 1
Rs.Close
Response.Write "<form name=""myform"" action =""admin_server.asp?action=savenew"" method=""post"">" & vbNewLine
Response.Write "<input type=""hidden"" name=""newdownid"" value="""
Response.Write ServerNum
Response.Write """>" & vbNewLine
Response.Write "<input type=""hidden"" name=ChannelID value="""
Response.Write ChannelID
Response.Write """>" & vbNewLine
Response.Write " <table width=""96%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <th colspan=2>添加新的服务器</th>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td width=""30%"" class=""TableRow1""><U>服务器名称</U></td>" & vbNewLine
Response.Write " <td width=""70%"" class=""TableRow1"">"
Response.Write " <input type=""text"" name=""DownloadName"" size=""60"">" & vbNewLine
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
'-------增加标题样式
Response.Write " <tr>" & vbNewLine
Response.Write " <td class=""TableRow1""><U>服务器名称样式</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">样式:<input type=""hidden"" name=""selfont"" size=""1"" value=""""> "
Response.Write " <span style=""background-color: #fFfFff"" id=""myfont"" onclick=""javascript:formatbt(this);"" style='cursor:hand; font-size:14px' >设置标题样式 ABCdef</span> " & vbNewLine
Response.Write "<input type=""checkbox"" name=""cancel"" onclick=""Cancelform()""> 取消格式"
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
'-------
Response.Write " <tr>" & vbNewLine
Response.Write " <td class=""TableRow1""><U>服务器路径</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">" & vbNewLine
Response.Write " <input type=""text"" name=""DownloadPath"" size=""60"">" & vbNewLine
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td class=""TableRow1""><U>所属类别</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">" & vbNewLine
Response.Write " <select name=""servers"">" & vbNewLine
Response.Write "<option value=""0"">做为服务器分类</option>" & vbNewLine
SQL = "SELECT * FROM NC_DownServer WHERE ChannelID=" & ChannelID & " And depth = 0 ORDER BY rootid"
Rs.Open SQL, Conn, 1, 1
Do While Not Rs.EOF
Response.Write "<option value=""" & Rs("downid") & """ "
If Len(Request("editid")) <> 0 And CLng(Request("editid")) = Rs("downid") Then Response.Write "selected"
Response.Write ">"
Response.Write Rs("DownloadName") & "</option>" & vbCrLf
Rs.MoveNext
Loop
Rs.Close
Response.Write "</select>"
Response.Write "</td></tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td height=30 class=""TableRow1""><U>使用下载服务器的权限</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">"
Response.Write " <select name=""UserGroup"">" & vbNewLine
Set RsObj = Newasp.Execute("SELECT GroupName,Grades FROM NC_UserGroup ORDER BY Groupid")
Do While Not RsObj.EOF
Response.Write Chr(9) & Chr(9) & "<option value=""" & RsObj("Grades") & """"
If RsObj("Grades") = 0 Then Response.Write " selected"
Response.Write ">"
Response.Write RsObj("GroupName")
Response.Write "</option>" & vbCrLf
RsObj.MoveNext
Loop
Set RsObj = Nothing
Response.Write " </select> </td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td height=24 class=""TableRow1""><U>下载所需点数</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">" & vbNewLine
Response.Write " <input type=""text"" name=""DownPoint"" size=""10"" value='0'>" & vbNewLine
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td class=""TableRow1""><U>是否直接显示下载地址</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">"
Response.Write " <input type=radio name=isDisp value=""0"" checked> 否 "
Response.Write " <input type=radio name=isDisp value=""1""> 是"
Response.Write " </td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td class=""TableRow1""><U>是否外部连接</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">"
Response.Write " <input type=radio name=IsOuter value=""0"" checked> 否 "
Response.Write " <input type=radio name=IsOuter value=""1""> 是 "
Response.Write " <input type=radio name=IsOuter value=""2""> WEB迅雷专用下载地址 "
Response.Write " <input type=radio name=IsOuter value=""3""> FLASHGET(快车)专用下载地址"
Response.Write " <br><font color=""red"">注意：如果是外部连接，请在“服务器路径”中输入要转向的URL；<br> 如果选择“迅雷或快车专用下载地址”，"
Response.Write "请先注册<a href=""http://union.xunlei.com/"" target=""_blank""><font color=""blue"">迅雷联盟</font></a>|<a href=""http://union.flashget.com/"" target=""_blank""><font color=""blue"">快车联盟</font></a>，然后在<a href=""admin_config.asp""><font color=""blue"">基本设置</font></a>中输入相应的联盟ID</font></td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td height=24 class=""TableRow1""> </td>" & vbNewLine
Response.Write " <td class=""TableRow1"">" & vbNewLine
Response.Write " <input type=""submit"" name=""Submit"" class=button value=""添加服务器"">" & vbNewLine
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
Response.Write "</form>" & vbNewLine
Set Rs = Nothing
End Sub
'================================================
'过程名：sEdit
'作 用：编辑服务器
'================================================selFont
Sub sEdit()
Dim Rs_e
On Error Resume Next
Set Rs = CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM NC_DownServer WHERE downid=" & CLng(Request("editid"))
Set Rs_e = Newasp.Execute(SQL)
Response.Write "<form name=""myform"" action =""admin_server.asp?action=savedit"" method=""post"">" & vbNewLine
Response.Write "<input type=""hidden"" name=editid value="""
Response.Write Request("editid")
Response.Write """>" & vbNewLine
Response.Write "<input type=""hidden"" name=ChannelID value="""
Response.Write ChannelID
Response.Write """>" & vbNewLine
Response.Write " <table width=""96%"" border=""0"" cellspacing=""1"" cellpadding=""3"" align=center class=""tableBorder"">" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <th height=24 colspan=2>编辑服务器："
Response.Write Rs_e("DownloadName")
Response.Write "</th>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write " <tr class=""TableRow1"">" & vbNewLine
Response.Write " <td width=""30%"" height=30 class=""TableRow1""><U>服务器名称</U></td>" & vbNewLine
Response.Write " <td width=""70%"" class=""TableRow1"">" & vbNewLine
Response.Write " <input type=""text"" name=""DownloadName"" size=""60"" value="""
Response.Write Rs_e("DownloadName")
Response.Write """>" & vbNewLine
Response.Write " </td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
'-------增加标题样式
Response.Write " <tr>" & vbNewLine
Response.Write " <td class=""TableRow1""><U>服务器名称样式</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">样式:<input type=""hidden"" name=""selfont"" size=""1"" value="""& Server.HTMLEncode(Rs_e("selfont") & "") &"""> "
Response.Write " <span style=""background-color: #fFfFff;"" id=""myfont"" onclick=""javascript:formatbt(this);"" style='cursor:hand; font-size:14px'><span "& Rs_e("selfont") &">设置标题样式 ABCdef</span></span> " & vbNewLine
Response.Write "<input type=""checkbox"" name=""cancel"" onclick=""Cancelform()""> 取消格式"
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
'-------
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -