admin_downserver.asp

个人网站比较简短

        FoundErr = True
        ErrMsg = ErrMsg & "<li>服务器名不能为空！</li>"
    End If
    If ServerUrl = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>服务器地址不能为空！</li>"
    End If
    If FoundErr = True Then
        Exit Sub
    End If

    If Action = "SaveAdd" Then
        ServerID = GetNewID("PE_DownServer", "ServerId")
        OrderID = GetNewID("PE_DownServer", "OrderID")
        
        Set rsDownServer = Server.CreateObject("Adodb.RecordSet")
        rsDownServer.Open "Select top 1 * from PE_DownServer", Conn, 1, 3
        rsDownServer.addnew
        'rsDownServer("ServerID") = ServerID
        'rsDownServer("OrderID") = OrderID
    Else
        If ServerID = 0 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>请指定要修改的服务器ID！</li>"
            Exit Sub
        End If
        sqlDownServer = "Select * from PE_DownServer Where ServerID=" & ServerID
        Set rsDownServer = Server.CreateObject("Adodb.RecordSet")
        rsDownServer.Open sqlDownServer, Conn, 1, 3
        If rsDownServer.BOF And rsDownServer.EOF Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>找不到指定的服务器，可能已经被删除！</li>"
            rsDownServer.Close
            Set rsDownServer = Nothing
            Exit Sub
        End If
    End If
    rsDownServer("ChannelID") = ChannelID
    rsDownServer("ServerName") = ServerName
    rsDownServer("ServerUrl") = ServerUrl
    rsDownServer("ServerLogo") = ServerLogo
    rsDownServer("ShowType") = ShowType

    rsDownServer("InfoPurview") = PE_CLng(Trim(Request.Form("InfoPurview")))
    rsDownServer("arrGroupID") = ReplaceBadChar(Trim(Request.Form("GroupID")))
    rsDownServer("InfoPoint") = PE_CLng(Trim(Request.Form("InfoPoint")))
    rsDownServer("ChargeType") = PE_CLng(Trim(Request.Form("ChargeType")))
    rsDownServer("PitchTime") = PE_CLng(Trim(Request.Form("PitchTime")))
    rsDownServer("ReadTimes") = PE_CLng(Trim(Request.Form("ReadTimes")))
    rsDownServer("DividePercent") = PE_CLng(Trim(Request.Form("DividePercent")))

    rsDownServer.Update
    rsDownServer.Close
    Set rsDownServer = Nothing
    Call CloseConn
    Response.Redirect "Admin_DownServer.asp?ChannelID=" & ChannelID & ""
End Sub


Sub Modify()
    Dim ServerID, rsDownServer, sqlDownServer
    ServerID = PE_CLng(Trim(Request("ServerID")))
    If ServerID = 0 Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要修改的服务器ID！</li>"
        Exit Sub
    End If
    sqlDownServer = "Select * from PE_DownServer Where ServerID=" & ServerID
    Set rsDownServer = Server.CreateObject("Adodb.RecordSet")
    rsDownServer.Open sqlDownServer, Conn, 1, 3
    If rsDownServer.BOF And rsDownServer.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>找不到指定的服务器，可能已经被删除！</li>"
        Exit Sub
    End If

    Call ShowJS_Soft
    Response.Write "<br><table width='100%'><tr><td align='left'>您现在的位置：<a href='Admin_DownServer.asp?ChannelID=" & ChannelID & "'>镜像服务器管理</a>&nbsp;&gt;&gt;&nbsp;修改镜像服务器设置</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>&nbsp;</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' value='" & rsDownServer("ServerName") & "'>&nbsp;</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' value='" & rsDownServer("ServerLogo") & "'>&nbsp;</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' value='" & rsDownServer("ServerUrl") & "'>&nbsp;</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'><option value='0'"
    If rsDownServer("ShowType") = 0 Then Response.Write " selected"
    Response.Write ">显示名称</option>"
    Response.Write "<option value='1'"
    If rsDownServer("ShowType") = 1 Then Response.Write " selected"
    Response.Write ">显示LOGO</option>"
    Response.Write "</select>"
    Response.Write "</td></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'"
    If rsDownServer("InfoPurview") = 0 Then Response.Write " checked"
    Response.Write ">继承栏目权限（当所属栏目为认证栏目时，建议选择此项）<br>"
    Response.Write "            <input name='InfoPurview' type='radio' value='1'"
    If rsDownServer("InfoPurview") = 1 Then Response.Write " checked"
    Response.Write ">所有会员（当所属栏目为开放栏目，想单独对某些文章进行查看权限设置，可以选择此项）<br>"
    Response.Write "            <input name='InfoPurview' type='radio' value='2'"
    If rsDownServer("InfoPurview") = 2 Then Response.Write " checked"
    Response.Write ">指定会员组（当所属栏目为开放栏目，想单独对某些文章进行查看权限设置，可以选择此项）<br>"
    Response.Write GetUserGroup(rsDownServer("arrGroupID"), "")
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "          <tr class='tdbg'>"
    Response.Write "            <td width='120' align='right' class='tdbg5'>" & ChannelShortName & "阅读点数：</td>"
    Response.Write "            <td><input name='InfoPoint' type='text' id='InfoPoint' value='" & rsDownServer("InfoPoint") & "' size='5' maxlength='4' style='text-align:center'" & ">&nbsp;&nbsp;&nbsp;&nbsp; <font color='#0000FF'>如果大于0，则会员阅读此" & ChannelShortName & "时将消耗相应点数（设为9999时除外），游客将无法查看此" & ChannelShortName & "。</font></td>"
    Response.Write "          </tr>"
    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'"
    If rsDownServer("ChargeType") = 0 Then Response.Write " checked"
    Response.Write ">不重复收费<br>"
    Response.Write "            <input name='ChargeType' type='radio' value='1'"
    If rsDownServer("ChargeType") = 1 Then Response.Write " checked"
    Response.Write ">距离上次收费时间 <input name='PitchTime' type='text' value='" & rsDownServer("PitchTime") & "' size='8' maxlength='8' style='text-align:center'" & "> 小时后重新收费<br>"
    Response.Write "            <input name='ChargeType' type='radio' value='2'"
    If rsDownServer("ChargeType") = 2 Then Response.Write " checked"
    Response.Write ">会员重复查看此文章 <input name='ReadTimes' type='text' value='" & rsDownServer("ReadTimes") & "' size='8' maxlength='8' style='text-align:center'" & "> 次后重新收费<br>"
    Response.Write "            <input name='ChargeType' type='radio' value='3'"
    If rsDownServer("ChargeType") = 3 Then Response.Write " checked"
    Response.Write ">上述两者都满足时重新收费<br>"
    Response.Write "            <input name='ChargeType' type='radio' value='4'"
    If rsDownServer("ChargeType") = 4 Then Response.Write " checked"
    Response.Write ">上述两者任一个满足时就重新收费<br>"
    Response.Write "            <input name='ChargeType' type='radio' value='5'"
    If rsDownServer("ChargeType") = 5 Then Response.Write " checked"
    Response.Write ">每阅读一次就重复收费一次（建议不要使用）"
    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='" & rsDownServer("DividePercent") & "' size='5' maxlength='4' style='text-align:center'" & "> %"
    Response.Write "              &nbsp;&nbsp;<font color='#0000FF'>如果比例大于0，则将按比例把向阅读者收取的点数支付给录入者</font>"
    Response.Write "            </td>"
    Response.Write "          </tr>"
    Response.Write "      </table>"
    Response.Write "      <input name='ServerID' type='hidden' id='ServerID' value='" & rsDownServer("ServerID") & "'>"
    Response.Write "      <input name='Action' type='hidden' id='Action' value='SaveModify'>"
    Response.Write "      <input  type='submit' name='Submit' value=' 保存修改结果 '><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>&nbsp;&nbsp;"
    Response.Write "      <input name='Cancel' type='button' id='Cancel' value=' 取 消 ' onClick=""window.location.href='Admin_DownServer.asp?ChannelID=" & ChannelID & "'""  style='cursor:hand;'>"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "</form>"
    rsDownServer.Close
    Set rsDownServer = Nothing
End Sub

Sub Del()
    Dim ServerID, iOrderID
    Dim rs, sql
    ServerID = Trim(Request("ServerID"))
    If ServerID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>请指定要删除的服务器ID！</li>"
        Exit Sub
    Else
        ServerID = PE_CLng(ServerID)
    End If
    If FoundErr = True Then
    Exit Sub
    End If
    sql = "select OrderID from PE_DownServer where ServerID=" & ServerID
    Set rs = Server.CreateObject("ADODB.RecordSet")
    rs.Open sql, Conn, 1, 3
    If rs.BOF Or rs.EOF Then
    FoundErr = True
        ErrMsg = ErrMsg & "<li>所指定的参数的记录不存在或已被删除！</li>"
        Exit Sub
    Else
        iOrderID = rs("OrderID")
    End If
    '删除下载错误信息表PE_DownError中属于该镜像服务器的报错信息
    Dim rsDownError, sqlDownError
    Dim UrlID
    Set rsDownError = Server.CreateObject("ADODB.Recordset")
    sqlDownError = "select D.ErrorID,S.DownloadUrl from PE_DownError D left join PE_Soft S on D.InfoID=S.SoftID where D.UrlID=" & ServerID
    rsDownError.Open sqlDownError, Conn, 1, 3
    Do While Not rsDownError.EOF
        If InStr(rsDownError("DownloadUrl"), "@@@") > 0 Then
            Conn.Execute ("delete from PE_DownError where ErrorID =" & rsDownError("ErrorID"))
        End If
        rsDownError.MoveNext
    Loop
    rsDownError.Close
    Set rsDownError = Nothing
    Conn.Execute ("update PE_DownServer set OrderID=OrderID-1 where OrderID>" & iOrderID)
    Conn.Execute ("delete from PE_DownServer where ServerID=" & ServerID)
    Call CloseConn