admin_showpurview.asp

个人网站比较简短

    Response.Write "  <tr class='title'>"
    Response.Write "    <td colspan='6' height='22'><strong>会员管理权限</strong><strong> </strong></td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='16%'>查看会员信息 " & ShowPurview("User_View") & "</td>"
    Response.Write "    <td width='16%'>修改会员信息 " & ShowPurview("User_ModifyInfo") & "</td>"
    Response.Write "    <td width='16%'>修改会员权限 " & ShowPurview("User_MofidyPurview") & "</td>"
    Response.Write "    <td width='16%'>锁住/解锁会员 " & ShowPurview("User_Lock") & "</td>"
    Response.Write "    <td width='16%'>删除会员 " & ShowPurview("User_Del") & "</td>"
    Response.Write "    <td width='16%'>升级为客户 " & ShowPurview("User_Update") & "</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='16%'>会员资金管理 " & ShowPurview("User_Money") & "</td>"
    Response.Write "    <td width='16%'>会员点券管理 " & ShowPurview("User_Point") & "</td>"
    Response.Write "    <td width='16%'>会员有效期管理 " & ShowPurview("User_Valid") & "</td>"
    Response.Write "    <td width='16%'>会员消费明细 " & ShowPurview("ConsumeLog") & "</td>"
    Response.Write "    <td width='16%'>会员有效期明细 " & ShowPurview("RechargeLog") & "</td>"
    Response.Write "    <td width='16%'></td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "<br>"

    Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "  <tr class='title'>"
    Response.Write "    <td colspan='6' height='22'><strong>商城日常操作管理权限</strong><strong> </strong></td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='16%'>查看订单 " & ShowPurview("Order_View") & "</td>"
    Response.Write "    <td width='16%'>确认订单 " & ShowPurview("Order_Confirm") & "</td>"
    Response.Write "    <td width='16%'>修改订单 " & ShowPurview("Order_Modify") & "</td>"
    Response.Write "    <td width='16%'>删除订单 " & ShowPurview("Order_Del") & "</td>"
    Response.Write "    <td width='16%'>收款处理 " & ShowPurview("Order_Payment") & "</td>"
    Response.Write "    <td width='16%'>开发票 " & ShowPurview("Order_Invoice") & "</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='16%'>订单配送（实物） " & ShowPurview("Order_Deliver") & "</td>"
    Response.Write "    <td width='16%'>订单配送（软件） " & ShowPurview("Order_Download") & "</td>"
    Response.Write "    <td width='16%'>订单配送（点卡） " & ShowPurview("Order_SendCard") & "</td>"
    Response.Write "    <td width='16%'>结清订单 " & ShowPurview("Order_End") & "</td>"
    Response.Write "    <td width='16%'>订单过户 " & ShowPurview("Order_Transfer") & "</td>"
    Response.Write "    <td width='16%'>订单打印 " & ShowPurview("Order_Print") & "</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='16%'>订单统计 " & ShowPurview("Order_Count") & "</td>"
    Response.Write "    <td width='16%'>销售明细情况 " & ShowPurview("Order_OrderItem") & "</td>"
    Response.Write "    <td width='16%'>销售统计/排行 " & ShowPurview("Order_SaleCount") & "</td>"
    Response.Write "    <td width='16%'>在线支付管理 " & ShowPurview("Payment") & "</td>"
    Response.Write "    <td width='16%'>资金明细查询 " & ShowPurview("Bankroll") & "</td>"
    Response.Write "    <td width='16%'>发退货记录 " & ShowPurview("Deliver") & "</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='16%'>订单过户记录 " & ShowPurview("Transfer") & "</td>"
    Response.Write "    <td width='16%'>促销方案管理 " & ShowPurview("PresentProject") & "</td>"
    Response.Write "    <td width='16%'>付款方式管理 " & ShowPurview("PaymentType") & "</td>"
    Response.Write "    <td width='16%'>送货方式管理 " & ShowPurview("DeliverType") & "</td>"
    Response.Write "    <td width='16%'>银行帐户管理 " & ShowPurview("Bank") & "</td>"
    Response.Write "    <td width='16%'></td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "<br>"

    Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "  <tr class='title'>"
    Response.Write "    <td colspan='5' height='22'><strong>客户关系管理权限</strong><strong> </strong></td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='17%'>查看客户信息 " & ShowPurview("Client_View") & "</td>"
    Response.Write "    <td width='17%'>添加客户 " & ShowPurview("Client_Add") & "</td>"
    Response.Write "    <td width='25%'>修改属于自己的客户信息 " & ShowPurview("Client_ModifyOwn") & "</td>"
    Response.Write "    <td width='25%'>修改所有客户信息 " & ShowPurview("Client_ModifyAll") & "</td>"
    Response.Write "    <td width='17%'>删除客户 " & ShowPurview("Client_Del") & "</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='17%'>查看服务记录 " & ShowPurview("Service_View") & "</td>"
    Response.Write "    <td width='17%'>添加服务记录 " & ShowPurview("Service_Add") & "</td>"
    Response.Write "    <td width='25%'>修改自己添加的服务记录 " & ShowPurview("Service_ModifyOwn") & "</td>"
    Response.Write "    <td width='25%'>修改所有服务记录 " & ShowPurview("Service_ModifyAll") & "</td>"
    Response.Write "    <td width='17%'>删除服务记录 " & ShowPurview("Service_Del") & "</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='17%'>查看投诉记录 " & ShowPurview("Complain_View") & "</td>"
    Response.Write "    <td width='17%'>添加投诉记录 " & ShowPurview("Complain_Add") & "</td>"
    Response.Write "    <td width='25%'>修改自己添加的投诉记录 " & ShowPurview("Complain_ModifyOwn") & "</td>"
    Response.Write "    <td width='25%'>修改所有投诉记录 " & ShowPurview("Complain_ModifyAll") & "</td>"
    Response.Write "    <td width='17%'>删除投诉记录 " & ShowPurview("Complain_Del") & "</td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='17%'>查看回访记录 " & ShowPurview("Call_View") & "</td>"
    Response.Write "    <td width='17%'>添加回访记录 " & ShowPurview("Call_Add") & "</td>"
    Response.Write "    <td width='25%'>修改自己添加的回访记录 " & ShowPurview("Call_ModifyOwn") & "</td>"
    Response.Write "    <td width='25%'>修改所有回访记录 " & ShowPurview("Call_ModifyAll") & "</td>"
    Response.Write "    <td width='17%'></td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "<br>"

End Sub

Sub ShowGuestBookPurview()
    Dim rsAdminGuest, GuestBook_Purview, arrKind_GuestBook
    Dim rsGuestBook, GuestBookDir, GuestBookName, GuestBookShortName

    Set rsGuestBook = Conn.Execute("select * from PE_Channel where ChannelID=4")
    If Not (rsGuestBook.BOF Or rsGuestBook.EOF) Then
        GuestBookDir = rsGuestBook("ChannelDir")
        GuestBookName = rsGuestBook("ChannelName")
        GuestBookShortName = rsGuestBook("ChannelShortName")
        Set rsAdminGuest = Conn.Execute("select AdminPurview_GuestBook,arrClass_GuestBook from PE_Admin where AdminName='" & AdminName & "'")
        If Not (rsAdminGuest.BOF And rsAdminGuest.EOF) Then
            GuestBook_Purview = rsAdminGuest(0)
            arrKind_GuestBook = Split(rsAdminGuest(1), "|||")
        End If
        rsAdminGuest.Close
        Set rsAdminGuest = Nothing
    End If
    rsGuestBook.Close
    Set rsGuestBook = Nothing

    Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "  <tr class='title'>"
    Response.Write "    <td colspan='2' height='22'><strong>" & GuestBookName & "</strong> "
    If GuestBook_Purview = 1 Then Response.Write "（频道管理员）"
    If GuestBook_Purview = 2 Then Response.Write "（栏目总编）"
    If GuestBook_Purview = 3 Then Response.Write "（栏目管理员）"
    If GuestBook_Purview = 4 Then Response.Write "（无权限）"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='30%'>栏目管理权限，可以执行首页嵌入代码生成</td>"
    Response.Write "    <td align='center' width='20%'>"
    If AdminPurview = 1 Or GuestBook_Purview = 1 Then
        Response.Write "<font color=blue>√</font>"
    Else
        Response.Write "<font color=red>×</font>"
    End If
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='30%'>可以管理" & GuestBookShortName & "类别</td>"
    Response.Write "    <td align='center' width='20%'>"
    If AdminPurview = 1 Or GuestBook_Purview <= 2 Then
        Response.Write "<font color=blue>√</font>"
    Else
        Response.Write "<font color=red>×</font>"
    End If
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='30%'>" & GuestBookShortName & "其它管理权限</td>"
    Response.Write "    <td align='center' width='20%'>"
    If AdminPurview = 1 Or GuestBook_Purview = 1 Then
        Response.Write "<font color=blue>√</font>"
    Else
        Response.Write "<font color=red>×</font>"
    End If
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td width='30%'>各栏目" & GuestBookShortName & "修改、删除、移动、审核、精华、固顶、回复权限</td>"
    Response.Write "    <td align='center' width='20%'>"
    If GuestBook_Purview <= 2 Then
        Response.Write "<font color=blue>全部权限</font>"
    ElseIf GuestBook_Purview = 3 Then
        Response.Write "<font color=blue>部分权限</font>"
    Else
        Response.Write "<font color=red>无权限</font>"
    End If
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "<br>"

    Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "  <tr class='title'>"
    Response.Write "    <td height='22'><strong>更多权限：</strong></td>"
    Response.Write "  </tr>"
    Response.Write "  <tr class='tdbg'>"
    Response.Write "    <td>"
    Response.Write "广告管理&nbsp;" & ShowPurview("AD_" & GuestBookDir) & "&nbsp;&nbsp;"
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "<br>"

    If GuestBook_Purview = 3 Then
        Response.Write "<table width='100%' border='0' cellspacing='1' cellpadding='2' class='border'>"
        Response.Write "  <tr align='center' class='title'>"
        Response.Write "    <td height='22'><strong>栏目名称</strong></td>"
        Response.Write "    <td width='70'><strong>修改</strong></td>"
        Response.Write "    <td width='70'><strong>删除</strong></td>"
        Response.Write "    <td width='70'><strong>移动</strong></td>"
        Response.Write "    <td width='70'><strong>审核</strong></td>"
        Response.Write "    <td width='70'><strong>精华</strong></td>"
        Response.Write "    <td width='70'><strong>固顶</strong></td>"
        Response.Write "    <td width='70'><strong>回复</strong></td>"
        Response.Write "  </tr>"
        Dim rsGuestKind
        Set rsGuestKind = Conn.Execute("select * from PE_GuestKind order by OrderID,KindID")
        Do While Not rsGuestKind.EOF
            Response.Write "  <tr class='tdbg'>"
            Response.Write "    <td align='center'>" & rsGuestKind("KindName") & "</td>"
            Response.Write "    <td align='center'>"
            If FoundInArr(arrKind_GuestBook(0), rsGuestKind("KindID"), ",") = True Then
                Response.Write "<font color=blue>√</font>"
            Else
                Response.Write "<font color=red>×</font>"
            End If
            Response.Write "</td><td align='center'>"
            If FoundInArr(arrKind_GuestBook(1), rsGuestKind("KindID"), ",") = True Then
                Response.Write "<font color=blue>√</font>"
            Else
                Response.Write "<font color=red>×</font>"
            End If
            Response.Write "</td><td align='center'>"
            If FoundInArr(arrKind_GuestBook(2), rsGuestKind("KindID"), ",") = True Then
                Response.Write "<font color=blue>√</font>"
            Else
                Response.Write "<font color=red>×</font>"
            End If
            Response.Write "</td><td align='center'>"
            If FoundInArr(arrKind_GuestBook(3), rsGuestKind("KindID"), ",") = True Then
                Response.Write "<font color=blue>√</font>"
            Else
                Response.Write "<font color=red>×</font>"
            End If
            Response.Write "</td><td align='center'>"
            If FoundInArr(arrKind_GuestBook(4), rsGuestKind("KindID"), ",") = True Then
                Response.Write "<font color=blue>√</font>"
            Else
                Response.Write "<font color=red>×</font>"
            End If
            Response.Write "</td><td align='center'>"
            If FoundInArr(arrKind_GuestBook(5), rsGuestKind("KindID"), ",") = True Then
                Response.Write "<font color=blue>√</font>"
            Else
                Response.Write "<font color=red>×</font>"
            End If
            Response.Write "</td><td align='center'>"
            If FoundInArr(arrKind_GuestBook(6), rsGuestKind("KindID"), ",") = True Then
                Response.Write "<font color=blue>√</font>"
            Else
                Response.Write "<font color=red>×</font>"
            End If
            Response.Write "</td>"
            Response.Write "  </tr>"
            rsGuestKind.MoveNext
        Loop
        Set rsGuestKind = Nothing
        Response.Write "</table>"
    End If
End Sub

Sub ShowChannelPurview()
    Dim rsAdmin, Channel_Purview, arrClass_View, arrClass_Input, arrClass_Check, arrClass_Manage
    Dim rsChannel, ChannelDir, ChannelName, ChannelShortName, ModuleType