?? admin_server.asp
字號:
<!--#include file="setup.asp"-->
<!--#include file="check.asp"-->
<%
Admin_header
'=====================================================================
' 軟件名稱：新云網(wǎng)站管理系統(tǒng)
' 當前版本：NewCloud Site Management System Version 2.0.0
' 文件名稱：admin_server.asp
' 更新日期：2004-12-20
' 官方網(wǎng)站：新云網(wǎng)絡(luò)(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
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>下載服務(wù)器管理" & 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>①、在這里您可以進行添加/刪除下載服務(wù)器，請先添加服務(wù)器分類然后添加下載路徑。<BR>" & vbNewLine & " "
Response.Write " ②、您可以添加多個下載路徑，將會在下載信息頁面顯示。<BR>"
Response.Write " ③、建議添加后的服務(wù)器一級分類最好不要輕易刪除，下載路徑可以根據(jù)需要修改、刪除或鎖定。</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 & """>服務(wù)器管理首頁</a> | <a href=""admin_server.asp?action=add&ChannelID=" & ChannelID & """>添加新的服務(wù)器</a>" & vbNewLine
Response.Write " | <a href=""admin_server.asp?action=serverorders&ChannelID=" & ChannelID & """>服務(wù)器路徑排序</a>" & vbNewLine
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
Response.Write "<br>"
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
'作 用：服務(wù)器管理首頁
'================================================
Sub ShowMain()
Response.Write " <table width=""96%"" class=""tableBorder"" cellspacing=""1"" cellpadding=""2"" align=center>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <th width=""35%""><strong>服務(wù)器分類</strong> </th>" & vbNewLine
Response.Write " <th width=""35%""><strong>操 作</strong> </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
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") & "] ")
Response.Write Rs("DownloadName")
If Rs("child") > 0 Then Response.Write "(" & Rs("child") & ")"
Response.Write " </td>" & vbNewLine
Response.Write " <td width=65% 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 & """>添加下載服務(wù)器路徑</a>" & vbNewLine
Else
Response.Write "<a href=""admin_server.asp?action=lock&editid="
Response.Write Rs("downid")
Response.Write "&ChannelID=" & ChannelID & """>鎖定服務(wù)器</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 & """>服務(wù)器設(shè)置</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('刪除將包括該服務(wù)器的所有信息，確定刪除嗎?')){return true;}return false;}"">刪除" & vbNewLine
Response.Write " "
Else
Response.Write "<a href=""#"" onclick=""{if(confirm('該服務(wù)器含有下載路徑，必須先刪除其下載路徑方能刪除本服務(wù)器！')){return true;}return false;}"">" & vbNewLine
Response.Write " 刪除</a>" & vbNewLine
Response.Write " "
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
'作 用：添加服務(wù)器
'================================================
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 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>添加新的服務(wù)器</th>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write " <tr class=""TableRow1"">" & vbNewLine
Response.Write " <td width=""30%"" class=""TableRow1"" height=30><U>服務(wù)器名稱</U></td>" & vbNewLine
Response.Write " <td width=""70%"" class=""TableRow1"">" & vbNewLine
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 height=24 class=""TableRow1""><U>服務(wù)器路徑</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 height=30 class=""TableRow1""><U>所屬類別</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">" & vbNewLine
Response.Write " <select name=""servers"">" & vbNewLine
Response.Write "<option value=""0"">做為服務(wù)器分類</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>使用下載服務(wù)器的權(quán)限</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>下載所需點數(shù)</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">" & vbNewLine
Response.Write " <input type=""text"" name=""DownPoint"" size=""10"" onkeyup=if(isNaN(this.value))this.value='' value='0'>" & vbNewLine
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td height=30 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=""0""> 是"
Response.Write " </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=""添加服務(wù)器"">" & vbNewLine
Response.Write "</td>" & vbNewLine
Response.Write "</tr>" & vbNewLine
Response.Write "</table>" & vbNewLine
Response.Write "</form>" & vbNewLine
Set Rs = Nothing
End Sub
'================================================
'過程名：sEdit
'作 用：編輯服務(wù)器
'================================================
Sub sEdit()
Dim Rs_e
On Error Resume Next
Set Rs = CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM NC_DownServer WHERE downid=" & Request("editid")
Set Rs_e = Newasp.Execute(SQL)
Response.Write "<form 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>編輯服務(wù)器："
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>服務(wù)器名稱</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""height=24><U>服務(wù)器路徑</U><BR>" & vbNewLine
Response.Write " 可以使用HTML代碼</td>" & vbNewLine
Response.Write " <td class=""TableRow1"">" & vbNewLine
Response.Write " <input type=""text"" name=""DownloadPath"" size=""60"" value="""
Response.Write Rs_e("DownloadPath")
Response.Write """>" & vbNewLine
Response.Write " </td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine
Response.Write " <td height=30 class=""TableRow1""><U>所屬類別</U></td>" & vbNewLine
Response.Write " <td class=""TableRow1"">" & vbNewLine
Response.Write " <select name=""servers"">" & vbNewLine
Response.Write " <option value=""0"">做為主服務(wù)器分類</option>" & vbNewLine
Response.Write " "
SQL = "SELECT * FROM NC_DownServer WHERE ChannelID=" & ChannelID & " ORDER BY rootid,orders"
Set Rs = Newasp.Execute(SQL)
Do While Not Rs.EOF
Response.Write "<option value=""" & Rs("downid") & """ "
If Rs_e("parentid") = Rs("downid") Then Response.Write "selected"
Response.Write ">"
If Rs("depth") = 1 Then Response.Write " ├ "
If Rs("depth") > 1 Then
For i = 2 To Rs("depth")
Response.Write " │"
Next
Response.Write " ├ "
End If
Response.Write Rs("DownloadName") & "</option>" & vbCrLf
Rs.MoveNext
Loop
Rs.Close: Set Rs = Nothing
Response.Write " </select> </td>" & vbNewLine
Response.Write " </tr>" & vbNewLine
Response.Write " <tr>" & vbNewLine
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -