?? admin_server.asp
字號:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 軟件名稱：新云網站管理系統
' 當前版本：NewCloud Site Management System Version 2.1
' 文件名稱：admin_server.asp
' 更新日期：2004-12-20
' 官方網站：新云網絡(www.newasp.net www.newasp.cn) QQ：94022511
'=====================================================================
' Copyright 2002-2005 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=""2""> WEB迅雷專用下載地址 "
Response.Write " <input type=radio name=IsOuter value=""3""> FLASHGET(快車)專用下載地址"
Response.Write " <br><font color=""red""> 如果選擇“迅雷或快車專用下載地址”，"
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 + -