admin_setclasspurview.asp

个人网站比较简短

    Do While Not rsGuestKind.EOF
        Response.write "  <tr class='tdbg'>"
        Response.write "    <td width='130' align='center'>" & rsGuestKind("KindName") & "</td>"
        Response.write "    <td width='30' align='center'><input name='Purview_Modify' type='checkbox' id='Purview_Modify' value='" & rsGuestKind("KindID") & "'"
        If Action = "Modify" And AdminPurview_Channel = 3 Then
            If FoundInArr(arrKind_GuestBook(0), rsGuestKind("KindID"), ",") = True Then Response.write " checked"
        End If
        Response.write "></td>"
        Response.write "    <td width='30' align='center'><input name='Purview_Del' type='checkbox' id='Purview_Del' value='" & rsGuestKind("KindID") & "'"
        If Action = "Modify" And AdminPurview_Channel = 3 Then
            If FoundInArr(arrKind_GuestBook(1), rsGuestKind("KindID"), ",") = True Then Response.write " checked"
        End If
        Response.write "></td>"
        Response.write "    <td width='30' align='center'><input name='Purview_Move' type='checkbox' id='Purview_Move' value='" & rsGuestKind("KindID") & "'"
        If Action = "Modify" And AdminPurview_Channel = 3 Then
            If FoundInArr(arrKind_GuestBook(2), rsGuestKind("KindID"), ",") = True Then Response.write " checked"
        End If
        Response.write "></td>"
        Response.write "    <td width='30' align='center'><input name='Purview_Check' type='checkbox' id='Purview_Check' value='" & rsGuestKind("KindID") & "'"
        If Action = "Modify" And AdminPurview_Channel = 3 Then
            If FoundInArr(arrKind_GuestBook(3), rsGuestKind("KindID"), ",") = True Then Response.write " checked"
        End If
        Response.write "></td>"
        Response.write "    <td width='30' align='center'><input name='Purview_Quintessence' type='checkbox' id='Purview_Quintessence' value='" & rsGuestKind("KindID") & "'"
        If Action = "Modify" And AdminPurview_Channel = 3 Then
            If FoundInArr(arrKind_GuestBook(4), rsGuestKind("KindID"), ",") = True Then Response.write " checked"
        End If
        Response.write "></td>"
        Response.write "    <td width='30' align='center'><input name='Purview_SetOnTop' type='checkbox' id='Purview_SetOnTop' value='" & rsGuestKind("KindID") & "'"
        If Action = "Modify" And AdminPurview_Channel = 3 Then
            If FoundInArr(arrKind_GuestBook(5), rsGuestKind("KindID"), ",") = True Then Response.write " checked"
        End If
        Response.write "></td>"
        Response.write "    <td width='30' align='center'><input name='Purview_Reply' type='checkbox' id='Purview_Reply' value='" & rsGuestKind("KindID") & "'"
        If Action = "Modify" And AdminPurview_Channel = 3 Then
            If FoundInArr(arrKind_GuestBook(6), rsGuestKind("KindID"), ",") = True Then Response.write " checked"
        End If
        Response.write "></td>"
        Response.write "  </tr>"
        rsGuestKind.MoveNext
    Loop
    Set rsGuestKind = Nothing
ElseIf ChannelID = 998 Then
    Dim rsHouseClass, sqlHouseClass
    sqlHouseClass = "select * from PE_HouseConfig order by ClassID"
    Set rsHouseClass = Conn.Execute(sqlHouseClass)
    Do While Not rsHouseClass.EOF
        Response.write "  <tr class='tdbg'>"
        Response.write "    <td>"
        Response.write "&nbsp;&nbsp;<b>"
        Response.write rsHouseClass("ClassName")
        Response.write "    </td>"
        If ManageType = "Admin" Then
            Response.write "    <td width='30' align='center'><input name='Purview_View' type='checkbox' id='Purview_View' value='" & rsHouseClass("ClassID") & "'"
            If Action = "Modify" And AdminPurview_Channel = 3 Then
                If FoundInArr(arrKind_House(0), rsHouseClass("ClassID"), ",") = True Then Response.write " checked"
            End If
            Response.write "></td>"
            Response.write "    <td width='30' align='center'><input name='Purview_Input' type='checkbox' id='Purview_Input' value='" & rsHouseClass("ClassID") & "'"
            If Action = "Modify" And AdminPurview_Channel = 3 Then
                If FoundInArr(arrKind_House(1), rsHouseClass("ClassID"), ",") = True Then Response.write " checked"
            End If
            Response.write "></td>"
            Response.write "    <td width='30' align='center'><input name='Purview_Check' type='checkbox' id='Purview_Check' value='" & rsHouseClass("ClassID") & "'"
            If Action = "Modify" And AdminPurview_Channel = 3 Then
                If FoundInArr(arrKind_House(2), rsHouseClass("ClassID"), ",") = True Then Response.write " checked"
            End If
            Response.write "></td>"
            Response.write "    <td width='30' align='center'><input name='Purview_Manage' type='checkbox' id='Purview_Manage' value='" & rsHouseClass("ClassID") & "'"
            If Action = "Modify" And AdminPurview_Channel = 3 Then
                If FoundInArr(arrKind_House(3), rsHouseClass("ClassID"), ",") = True Then Response.write " checked"
            End If
            Response.write "></td>"
        End If
        Response.write "  </tr>"
        rsHouseClass.MoveNext
    Loop
    Set rsHouseClass = Nothing
Else
    Dim arrShowLine(20), i
    For i = 0 To UBound(arrShowLine)
        arrShowLine(i) = False
    Next
    Dim sqlClass, rsClass, iDepth
    sqlClass = "select * from PE_Class where ChannelID=" & ChannelID & " order by RootID,OrderID"
    Set rsClass = Conn.Execute(sqlClass)
    Do While Not rsClass.EOF
        Response.write "  <tr class='tdbg'>"
        Response.write "    <td>"
        iDepth = rsClass("Depth")
        If rsClass("NextID") > 0 Then
            arrShowLine(iDepth) = True
        Else
            arrShowLine(iDepth) = False
        End If
        If iDepth > 0 Then
            For i = 1 To iDepth
                If i = iDepth Then
                    If rsClass("NextID") > 0 Then
                        Response.write "<img src='../images/tree_line1.gif' width='17' height='16' valign='abvmiddle'>"
                    Else
                        Response.write "<img src='../images/tree_line2.gif' width='17' height='16' valign='abvmiddle'>"
                    End If
                Else
                    If arrShowLine(i) = True Then
                        Response.write "<img src='../images/tree_line3.gif' width='17' height='16' valign='abvmiddle'>"
                    Else
                        Response.write "<img src='../images/tree_line4.gif' width='17' height='16' valign='abvmiddle'>"
                    End If
                End If
            Next
          End If
        If rsClass("Child") > 0 Then
            Response.write "<img src='../Images/tree_folder4.gif' width='15' height='15' valign='abvmiddle'>"
        Else
            Response.write "<img src='../Images/tree_folder3.gif' width='15' height='15' valign='abvmiddle'>"
        End If
        If rsClass("Depth") = 0 Then
            Response.write "<b>"
        End If
        Response.write rsClass("ClassName")
        Response.write "    </td>"
        If ManageType = "Admin" Then
            If ChannelID = 999 Then
                Response.write "<input name='Purview_View' type='Hidden' id='Purview_View' value='" & rsClass("ClassID") & "'>"
                Response.write "    <td width='30' align='center'><input name='Purview_Input' type='checkbox' id='Purview_Input' value='" & rsClass("ClassID") & "'"
                If Action = "Modify" And AdminPurview_Channel = 3 Then
                    If FoundInArr(arrClass_Input, rsClass("ClassID"), ",") = True Then Response.write " checked"
                End If
                Response.write "></td>"
                Response.write "    <td width='30' align='center'><input name='Purview_Check' type='checkbox' id='Purview_Check' value='" & rsClass("ClassID") & "'"
                If Action = "Modify" And AdminPurview_Channel = 3 Then
                    If FoundInArr(arrClass_Check, rsClass("ClassID"), ",") = True Then Response.write " checked"
                End If
                Response.write "></td>"
                Response.write "    <td width='30' align='center'><input name='Purview_Manage' type='checkbox' id='Purview_Manage' value='" & rsClass("ClassID") & "'"
                If Action = "Modify" And AdminPurview_Channel = 3 Then
                    If FoundInArr(arrClass_Manage, rsClass("ClassID"), ",") = True Then Response.write " checked"
                End If
                Response.write "></td>"
            Else
                Response.write "    <td width='30' align='center'><input name='Purview_View' type='checkbox' id='Purview_View' value='" & rsClass("ClassID") & "'"
                If Action = "Modify" And AdminPurview_Channel = 3 Then
                    If FoundInArr(arrClass_View, rsClass("ClassID"), ",") = True Then Response.write " checked"
                End If
                Response.write "></td>"
                Response.write "    <td width='30' align='center'><input name='Purview_Input' type='checkbox' id='Purview_Input' value='" & rsClass("ClassID") & "'"
                If Action = "Modify" And AdminPurview_Channel = 3 Then
                    If FoundInArr(arrClass_Input, rsClass("ClassID"), ",") = True Then Response.write " checked"
                End If
                Response.write "></td>"
                Response.write "    <td width='30' align='center'><input name='Purview_Check' type='checkbox' id='Purview_Check' value='" & rsClass("ClassID") & "'"
                If Action = "Modify" And AdminPurview_Channel = 3 Then
                    If FoundInArr(arrClass_Check, rsClass("ClassID"), ",") = True Then Response.write " checked"
                End If
                Response.write "></td>"
                Response.write "    <td width='30' align='center'><input name='Purview_Manage' type='checkbox' id='Purview_Manage' value='" & rsClass("ClassID") & "'"
                If Action = "Modify" And AdminPurview_Channel = 3 Then
                    If FoundInArr(arrClass_Manage, rsClass("ClassID"), ",") = True Then Response.write " checked"
                End If
                Response.write "></td>"
            End If
        Else
            Response.write "    <td width='30' align='center'>"
            If rsClass("ClassPurview") < 2 Then
                Response.write "<input name='Purview_Browse' type='checkbox' id='Purview' value='' checked disabled"
            Else
                Response.write "<input name='Purview_Browse' type='checkbox' id='Purview_Browse' value='" & rsClass("ClassID") & "'"
                If Action = "Modify" And FoundInArr(arrClass_Browse, rsClass("ClassID"), ",") Then Response.write " checked"
            End If
            Response.write " onclick='document.myform.Purview_Browse[0].checked=false;'></td>"
            Response.write "    <td width='30' align='center'>"
            If rsClass("ClassPurview") = 0 Then
                Response.write "<input name='Purview_View' type='checkbox' id='Purview' value='' checked disabled"
            Else
                Response.write "<input name='Purview_View' type='checkbox' id='Purview_View' value='" & rsClass("ClassID") & "'"
                If Action = "Modify" And FoundInArr(arrClass_View, rsClass("ClassID"), ",") Then Response.write " checked"
            End If
            Response.write " onclick='document.myform.Purview_View[0].checked=false;'></td>"
            Response.write "    <td width='30' align='center'><input name='Purview_Input' type='checkbox' id='Purview_Input' value='" & rsClass("ClassID") & "'"
            If Action = "Modify" And FoundInArr(arrClass_Input, rsClass("ClassID"), ",") Then Response.write " checked"
                Response.write " onclick='document.myform.Purview_Input[0].checked=false;'></td>"
            End If
        Response.write "  </tr>"
        rsClass.MoveNext
    Loop
    rsClass.Close
    Set rsClass = Nothing
End If
Response.write "</form>"
Response.write "</body></html>"
Call CloseConn
%>