admin_downserver.asp

个人网站比较简短

    Response.Redirect "Admin_DownServer.asp?ChannelID=" & ChannelID & ""
End Sub

Sub Order()
    Dim iCount, i, j
    Dim rs, sql
    Set rs = Server.CreateObject("Adodb.RecordSet")
    sql = "select * from PE_DownServer where ChannelID=" & ChannelID & " Order by OrderID"
    rs.Open sql, Conn, 1, 1
    iCount = rs.RecordCount
    j = 1
    Response.Write "<br><table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "  <tr class='title'>"
    Response.Write "    <td height='22' colspan='4' align='center'><strong>服务器排序</strong></td>"
    Response.Write "  </tr>"
    Do While Not rs.EOF
        Response.Write "  <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'""> "
        Response.Write "    <td align='center'>" & rs("ServerName") & "</td>"
        Response.Write "    <form action='Admin_DownServer.asp?Action=UpOrder' method='post'>"
        Response.Write "      <td width='120' align='center'>"
        If j > 1 Then
            Response.Write "<select name=MoveNum size=1><option value=0>向上移动</option>"
            For i = 1 To j - 1
                Response.Write "<option value=" & i & ">" & i & "</option>"
            Next
            Response.Write "</select><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
            Response.Write "<input type=hidden name=ServerID value=" & rs("ServerID") & ">"
            Response.Write "<input type=hidden name=cOrderID value=" & rs("OrderID") & ">&nbsp;<input type=submit name=Submit value='修改'>"
        Else
            Response.Write "&nbsp;"
        End If
        Response.Write "</td></form>"
        Response.Write "    <form action='Admin_DownServer.asp?Action=DownOrder' method='post'>"
        Response.Write "      <td width='120' align='center'>"
        If iCount > j Then
            Response.Write "<select name=MoveNum size=1><option value=0>向下移动</option>"
            For i = 1 To iCount - j
                Response.Write "<option value=" & i & ">" & i & "</option>"
            Next
            Response.Write "</select><input name='ChannelID' type='hidden' id='ChannelID' value='" & ChannelID & "'>"
            Response.Write "<input type=hidden name=ServerID value=" & rs("ServerID") & ">"
            Response.Write "<input type=hidden name=cOrderID value=" & rs("OrderID") & ">&nbsp;<input type=submit name=Submit value='修改'>"
        Else
            Response.Write "&nbsp;"
        End If
        Response.Write "</td>"
        Response.Write "      <td width='200' align='center'>&nbsp;</td>"
        Response.Write "    </form>"
        Response.Write "  </tr>"
        j = j + 1
        rs.MoveNext
    Loop
    Response.Write "</table> "
    rs.Close
    Set rs = Nothing
End Sub


Sub UpOrder()
    Dim ServerID, sqlOrder, rsOrder, MoveNum, cOrderID, tOrderID, i, rs
    ServerID = Trim(Request("ServerID"))
    cOrderID = Trim(Request("cOrderID"))
    MoveNum = Trim(Request("MoveNum"))
    If ServerID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>参数不足！</li>"
    Else
        ServerID = PE_CLng(ServerID)
    End If
    If cOrderID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>错误参数！</li>"
    Else
        cOrderID = CInt(cOrderID)
    End If
    If MoveNum = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>错误参数！</li>"
    Else
        MoveNum = CInt(MoveNum)
        If MoveNum = 0 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>请选择要提升的数字！</li>"
        End If
    End If
    If FoundErr = True Then
        Exit Sub
    End If

    Dim mrs, MaxOrderID
    Set mrs = Conn.Execute("select max(OrderID) from PE_DownServer")
    MaxOrderID = mrs(0) + 1
    '先将当前服务器移至最后
    Conn.Execute ("update PE_DownServer set OrderID=" & MaxOrderID & " where ServerID=" & ServerID)
    
    '然后将位于当前服务器以上的服务器的OrderID依次加一，范围为要提升的数字
    sqlOrder = "select * from PE_DownServer where OrderID<" & cOrderID & " order by OrderID desc"
    Set rsOrder = Server.CreateObject("adodb.recordset")
    rsOrder.Open sqlOrder, Conn, 1, 3
    If rsOrder.BOF And rsOrder.EOF Then
        Exit Sub        '如果当前服务器已经在最上面，则无需移动
    End If
    i = 1
    Do While Not rsOrder.EOF
        tOrderID = rsOrder("OrderID")     '得到要提升位置的OrderID
        Conn.Execute ("update PE_DownServer set OrderID=OrderID+1 where OrderID=" & tOrderID)
        i = i + 1
        If i > MoveNum Then
            Exit Do
        End If
        rsOrder.MoveNext
    Loop
    rsOrder.Close
    Set rsOrder = Nothing
    
    '然后再将当前服务器从最后移到相应位置
    Conn.Execute ("update PE_DownServer set OrderID=" & tOrderID & " where ServerID=" & ServerID)
    Call CloseConn
    Response.Redirect "Admin_DownServer.asp?Action=Order&ChannelID=" & ChannelID
End Sub

Sub DownOrder()
    Dim ServerID, sqlOrder, rsOrder, MoveNum, cOrderID, tOrderID, i, rs, PrevID, NextID
    ServerID = Trim(Request("ServerID"))
    cOrderID = Trim(Request("cOrderID"))
    MoveNum = Trim(Request("MoveNum"))
    If ServerID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>参数不足！</li>"
    Else
        ServerID = PE_CLng(ServerID)
    End If
    If cOrderID = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>错误参数！</li>"
    Else
        cOrderID = CInt(cOrderID)
    End If
    If MoveNum = "" Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>错误参数！</li>"
    Else
        MoveNum = CInt(MoveNum)
        If MoveNum = 0 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>请选择要提升的数字！</li>"
        End If
    End If
    If FoundErr = True Then
        Exit Sub
    End If

    Dim mrs, MaxOrderID
    Set mrs = Conn.Execute("select max(OrderID) from PE_DownServer")
    MaxOrderID = mrs(0) + 1
    '先将当前服务器移至最后
    Conn.Execute ("update PE_DownServer set OrderID=" & MaxOrderID & " where ServerID=" & ServerID)
    
    '然后将位于当前服务器以下的前服务器的OrderID依次减一，范围为要下降的数字
    sqlOrder = "select * from PE_DownServer where OrderID>" & cOrderID & " order by OrderID"
    Set rsOrder = Server.CreateObject("adodb.recordset")
    rsOrder.Open sqlOrder, Conn, 1, 3
    If rsOrder.BOF And rsOrder.EOF Then
        Exit Sub        '如果当前服务器已经在最下面，则无需移动
    End If
    i = 1
    Do While Not rsOrder.EOF
        tOrderID = rsOrder("OrderID")     '得到要提升位置的OrderID
        Conn.Execute ("update PE_DownServer set OrderID=OrderID-1 where OrderID=" & tOrderID)
        i = i + 1
        If i > MoveNum Then
            Exit Do
        End If
        rsOrder.MoveNext
    Loop
    rsOrder.Close
    Set rsOrder = Nothing
    
    '然后再将当前服务器从最后移到相应位置
    Conn.Execute ("update PE_DownServer set OrderID=" & tOrderID & " where ServerID=" & ServerID)
    Call CloseConn
    Response.Redirect "Admin_DownServer.asp?Action=Order&ChannelID=" & ChannelID
End Sub

'保存批量设置下载地址显示方式(logo还是名称)
Sub SaveAllShowType()
    Dim rsDownServer, sqlDownServer
    Dim ShowType, ChannelID
    ShowType = Trim(Request("ShowType"))
    ChannelID = PE_CLng(Request("ChannelID"))

    If ShowType = "" Then
       ShowType = "False"
    End If

    sqlDownServer = "Select * from PE_DownServer where ChannelID=" & ChannelID
    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
    Else
        Do While Not rsDownServer.EOF
            rsDownServer("ShowType") = ShowType
            rsDownServer.Update
            rsDownServer.MoveNext
        Loop
        rsDownServer.Close
        Set rsDownServer = Nothing
        Call CloseConn
        Response.Redirect "Admin_DownServer.asp?ChannelID=" & ChannelID & ""
    End If
End Sub
%>