📄 admin_downserver.asp
字号:
<!--#include file="Admin_Common.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************
Const NeedCheckComeUrl = True '是否需要检查外部访问
Const PurviewLevel = 2 '0--不检查，1--超级管理员，2--普通管理员
Const PurviewLevel_Channel = 1 '0--不检查，1--频道管理员，2--栏目总编，3--栏目管理员
Const PurviewLevel_Others = "DeliverType" '其他权限
Response.Write "<html><head><title>服务器管理</title>" & vbCrLf
Response.Write "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>" & vbCrLf
Response.Write "<link href='Admin_Style.css' rel='stylesheet' type='text/css'>" & vbCrLf
Response.Write "</head>" & vbCrLf
Response.Write "<body leftmargin='2' topmargin='0' marginwidth='0' marginheight='0'>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Call ShowPageTitle(ChannelName & "管理----镜像服务器管理", 10123)
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='70' height='30' ><strong>管理导航：</strong></td><td colspan='5'>"
Response.Write " <a href='Admin_DownServer.asp?ChannelID=" & ChannelID & "'>服务器管理首页</a> | <a href='Admin_DownServer.asp?ChannelID=" & ChannelID & "&Action=Add'>添加新服务器</a> | <a href='Admin_DownServer.asp?ChannelID=" & ChannelID & "&Action=Order'>服务器排序</a>"
Response.Write " </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Select Case Action
Case "Add"
Call Add
Case "Modify"
Call Modify
Case "SaveAdd", "SaveModify"
Call SaveDownServer
Case "Del"
Call Del
Case "Order"
Call Order
Case "UpOrder"
Call UpOrder
Case "DownOrder"
Call DownOrder
Case "SaveAllShowType"
Call SaveAllShowType
Case Else
Call Main
End Select
If FoundErr = True Then
Call WriteErrMsg(ErrMsg, ComeUrl)
End If
Response.Write "</body></html>"
Call CloseConn
Sub Main()
Dim rsDownServer, sqlDownServer
sqlDownServer = "select * from PE_DownServer where ChannelID=" & ChannelID & " order by OrderID"
Set rsDownServer = Conn.Execute(sqlDownServer)
Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
Response.Write " <tr class='title' align='center'>"
Response.Write " <td width='40'><strong>ID</strong></td>"
Response.Write " <td width='100'><strong>服务器名</strong></td>"
Response.Write " <td width='120'><strong>服务器LOGO</strong></td>"
Response.Write " <td width='60'><strong>显示方式</strong></td>"
Response.Write " <td><strong>服务器地址</strong></td>"
Response.Write " <td width='60'><strong>操作</strong></td>"
Response.Write " </tr>"
If rsDownServer.BOF And rsDownServer.EOF Then
Response.Write " <tr class='tdbg' align='center' height='50'><td colspan='10'>没有任何下载服务器</td></tr>"
Else
Do While Not rsDownServer.EOF
Response.Write " <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
Response.Write " <td width='40' align='center'>" & rsDownServer("ServerID") & "</td>"
Response.Write " <td width='100' align='center'><a href='Admin_DownServer.asp?ChannelID=" & ChannelID & "&action=Modify&ServerID=" & rsDownServer("ServerID") & "'>" & rsDownServer("ServerName") & "</a></td>"
Response.Write " <td width='120' align='center'>"
If rsDownServer("ServerLogo") <> "" Then
Response.Write "<img src='" & rsDownServer("ServerLogo") & "'>"
End If
Response.Write "</td>"
Response.Write " <td width='60' align='center'>"
If rsDownServer("ShowType") = 1 Then
Response.Write "显示LOGO"
Else
Response.Write "显示名称"
End If
Response.Write "</td>"
Response.Write " <td>" & rsDownServer("ServerUrl") & "</td>"
Response.Write " <td width='60' align='center'>"
Response.Write "<a href='Admin_DownServer.asp?ChannelID=" & ChannelID & "&action=Modify&ServerID=" & rsDownServer("ServerID") & "'>修改</a> "
Response.Write "<a href='Admin_DownServer.asp?ChannelID=" & ChannelID & "&Action=Del&ServerID=" & rsDownServer("ServerID") & "' onClick=""return confirm('确定要删除此服务器信息吗？');"">删除</a>"
Response.Write "</td></tr>"
rsDownServer.MoveNext
Loop
End If
Response.Write "</table>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' >"
Response.Write " <tr>"
Response.Write " <td height='22' align='center'>"
Response.Write " <form action='Admin_DownServer.asp?Action=SaveAllShowType' method='post'>批量设置显示方式"
Response.Write "<select name='ShowType'><option value='0'>显示名称</option><option value='1'>显示LOGO</option></select></select><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'> "
Response.Write "<input type='submit' name='Submit' value='修 改'>"
Response.Write "</form>"
Response.Write "</td></tr>"
Response.Write "</table>"
Response.Write "<br><b><font color=red>注意：</font></b><br> <font color=red>删除某个镜像服务器信息时,与之相关的下载错误信息也将一起被删除掉。</font><br><br>"
rsDownServer.Close
Set rsDownServer = Nothing
End Sub
Sub Add()
Call ShowJS_Soft
Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_DownServer.asp?ChannelID=" & ChannelID & "'>镜像服务器管理</a> >> 添加镜像服务器</td></tr></table>"
Response.Write "<form method='post' action='Admin_DownServer.asp' name='form1'>"
Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='0'>" & vbCrLf
Response.Write " <tr align='center'>" & vbCrLf
Response.Write " <td id='TabTitle' class='title6' onclick='ShowTabs(0)'>基本信息</td>" & vbCrLf
Response.Write " <td id='TabTitle' class='title5' onclick='ShowTabs(1)'>收费选项</td>" & vbCrLf
Response.Write " <td> </td>" & vbCrLf
Response.Write " </tr>" & vbCrLf
Response.Write "</table>" & vbCrLf
Response.Write "<table width='100%' border='0' align='center' cellpadding='5' cellspacing='0' class='border'>"
Response.Write " <tr align='center'>"
Response.Write " <td class='tdbg' height='200' valign='top'>"
Response.Write " <table id='Tabs' width='98%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='350' class='tdbg5'><strong>服务器名称：</strong><br>在此输入在前台显示的镜像服务器名，如广东下载、上海下载等。</td>"
Response.Write " <td class='tdbg'><input name='ServerName' type='text' id='ServerName' size='50' maxlength='30'> </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='350' class='tdbg5'><strong>服务器LOGO：</strong><br>输入服务器LOGO的绝对地址，如http://www.powereasy.net/Soft/Images/ServerLogo.gif</td>"
Response.Write " <td class='tdbg'><input name='ServerLogo' type='text' id='ServerLogo' size='50' maxlength='200'> </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='350' class='tdbg5'><strong>服务器地址：</strong><br>请认真输入正确的服务器地址。<br>如http://www.powereasy.net/这样的地址</td>"
Response.Write " <td class='tdbg'><input name='ServerUrl' type='text' id='ServerUrl' size='50' maxlength='200'> </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='350' class='tdbg5'><strong>显示方式：</strong></td>"
Response.Write " <td class='tdbg'><select name='ShowType' size=1><option value='0'>显示名称</option><option value='1'>显示LOGO</option></select></td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " <table id='Tabs' style='display:none' width='98%' border='0' cellpadding='2' cellspacing='1' bgcolor='#FFFFFF'>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>阅读权限：</td>"
Response.Write " <td><input name='InfoPurview' type='radio' value='0' checked>继承栏目权限（当所属栏目为认证栏目时，建议选择此项）<br>"
Response.Write " <input name='InfoPurview' type='radio' value='1'>所有会员（当所属栏目为开放栏目，想单独对某些文章进行查看权限设置，可以选择此项）<br>"
Response.Write " <input name='InfoPurview' type='radio' value='2'>指定会员组（当所属栏目为开放栏目，想单独对某些文章进行查看权限设置，可以选择此项）<br>"
Response.Write GetUserGroup("", "")
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>阅读点数：</td>"
Response.Write " <td><input name='InfoPoint' type='text' id='InfoPoint' value='" & Session("InfoPoint") & "' size='5' maxlength='4' style='text-align:center'> "
Response.Write " <font color='#0000FF'>如果点数大于0，则有权限的会员阅读此" & ChannelShortName & "时将消耗相应点数（设为9999时除外），游客将无法查看此" & ChannelShortName & "</font>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>重复收费：</td>"
Response.Write " <td><input name='ChargeType' type='radio' value='0' checked>不重复收费<br>"
Response.Write " <input name='ChargeType' type='radio' value='1'>距离上次收费时间 <input name='PitchTime' type='text' value='24' size='8' maxlength='8' style='text-align:center'> 小时后重新收费<br>"
Response.Write " <input name='ChargeType' type='radio' value='2'>会员重复查看此文章 <input name='ReadTimes' type='text' value='10' size='8' maxlength='8' style='text-align:center'> 次后重新收费<br>"
Response.Write " <input name='ChargeType' type='radio' value='3'>上述两者都满足时重新收费<br>"
Response.Write " <input name='ChargeType' type='radio' value='4'>上述两者任一个满足时就重新收费<br>"
Response.Write " <input name='ChargeType' type='radio' value='5'>每阅读一次就重复收费一次（建议不要使用）"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " <tr class='tdbg'>"
Response.Write " <td width='120' align='right' class='tdbg5'>分成比例：</td>"
Response.Write " <td><input name='DividePercent' type='text' id='DividePercent' value='0' size='5' maxlength='4' style='text-align:center'> %"
Response.Write " <font color='#0000FF'>如果比例大于0，则将按比例把向阅读者收取的点数支付给录入者</font>"
Response.Write " </td>"
Response.Write " </tr>"
Response.Write " </table>"
Response.Write " <br><br><input name='Action' type='hidden' id='Action' value='SaveAdd'>"
Response.Write " <input type='submit' name='Submit' value=' 添 加 '><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'> "
Response.Write " <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_DownServer.asp?ChannelID=" & ChannelID & "'"" style='cursor:hand;'>" & vbCrLf
Response.Write " </td>"
Response.Write " </tr>"
Response.Write "</table>"
Response.Write "</form>"
End Sub
Sub ShowJS_Soft()
Response.Write "<script language = 'JavaScript'>" & vbCrLf
Response.Write "var tID=0;" & vbCrLf
Response.Write "function ShowTabs(ID){" & vbCrLf
Response.Write " if(ID!=tID){" & vbCrLf
Response.Write " TabTitle[tID].className='title5';" & vbCrLf
Response.Write " TabTitle[ID].className='title6';" & vbCrLf
Response.Write " Tabs[tID].style.display='none';" & vbCrLf
Response.Write " Tabs[ID].style.display='';" & vbCrLf
Response.Write " tID=ID;" & vbCrLf
Response.Write " if(ID==0){" & vbCrLf
Response.Write " editor.yToolbarsCss();" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write " }" & vbCrLf
Response.Write "}" & vbCrLf
Response.Write "</script>" & vbCrLf
End Sub
Sub SaveDownServer()
Dim ServerID, ServerName, ServerUrl, ServerLogo, OrderID
Dim rsDownServer, sqlDownServer
Dim ShowType
ServerID = PE_CLng(Trim(Request("ServerID")))
ServerName = Trim(Request.Form("ServerName"))
ServerUrl = Trim(Request.Form("ServerUrl"))
ServerLogo = Trim(Request.Form("ServerLogo"))
ShowType = PE_CLng(Request.Form("ShowType"))
If ChannelID = 0 Then
FoundErr = True
ErrMsg = ErrMsg & "<li>频道ID丢失！</li>"
End If
If ServerName = "" Then
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -