admin_sitecount.asp

来自「个人网站比较简短」· ASP 代码 · 共 816 行 · 第 1/3 页

        End Select
        Response.Write "<tr align='center' class='tdbg' onMouseOut=""this.className='tdbg'"" onMouseOver=""this.className='tdbg2'""><td>" & rsChannel("ChannelName") & "</td>"

        i = 0
        rsUser.MoveFirst
        Do While Not rsUser.EOF
            If UserType = 1 Then
                iTemp = Conn.Execute("select count(0) from " & TableName & " where ChannelID=" & rsChannel("ChannelID") & " and Deleted=0 and Status=3 and Inputer='" & rsUser(0) & "' and UpdateTime>=" & iDate1 & " and updatetime<" & iDate2 & "")(0)
            Else
                iTemp = Conn.Execute("select count(0) from " & TableName & " where ChannelID=" & rsChannel("ChannelID") & " and Deleted=0 and Status=3 and Editor='" & rsUser(0) & "' and UpdateTime>=" & iDate1 & " and updatetime<" & iDate2 & "")(0)
            End If
            If iTemp = 0 Then
                Response.Write "<td>0</td>"
            Else
                Response.Write "<td><a href='Admin_SiteCount.asp?Action=CountByChannelMonth&ChannelID=" & rsChannel("ChannelID") & "&UserName=" & rsUser(0) & "&BeginDate=" & BeginDate & "&EndDate=" & EndDate & "'>" & iTemp & "</a></td>"
            End If
            arrCount(i) = arrCount(i) + iTemp
            i = i + 1
            rsUser.movenext
        Loop
        iTemp = Conn.Execute("select count(0) from " & TableName & " where ChannelID=" & rsChannel("ChannelID") & " and Deleted=0 and Status=3 and UpdateTime>=" & iDate1 & " and updatetime<" & iDate2 & "")(0)
        arrCount(i) = arrCount(i) + iTemp
        Response.Write "<td>" & iTemp & "</td>"
        Response.Write "</tr>"
        rsChannel.movenext
    Loop
    rsChannel.Close
    Set rsChannel = Nothing
    rsUser.Close
    Set rsUser = Nothing

    Response.Write "<tr align='center' class='tdbg2'><td>合计</td>"
    For i = 0 To iCount
        Response.Write "<td>" & arrCount(i) & "</td>"
    Next
    Response.Write "</tr>"
    Response.Write "</table>"
End Sub


Sub CountByClassMonth()
    Response.Write "<p align='center'>按 栏 目 / 月 份 统 计</p>"
    Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' class='border'>"
    Call ShowChannelField
    Call ShowUserField
    Call ShowDateField
    Response.Write "</table><br>"

    If ChannelID = 0 Or Trim(Request("BeginDate")) = "" Then
        Exit Sub
    End If
    ReDim arrCount(iCount + 2)

    Response.Write "<table border='0' align='center' cellpadding='2' cellspacing='1' class='border' width='" & iCount * 60 + 360 & "'><tr align='center' class='title'><td width='300'>栏目名称</td>"
    For i = 1 To iCount
        Response.Write "<td width='60'>" & iYear & "-" & iMonth & "</td>"
        iMonth = iMonth + 1
        If iMonth > 12 Then
            iYear = iYear + 1
            iMonth = 1
        End If
    Next
    Response.Write "<td width='60'>合计</td></tr>"

    Dim arrShowLine(20), i
    For i = 0 To UBound(arrShowLine)
        arrShowLine(i) = False
    Next
    Dim sqlClass, rsClass, iDepth, ClassDir, ClassItemDir
    Set rsClass = Conn.Execute("select * from PE_Class where ChannelID=" & ChannelID & " order by RootID,OrderID")
    Do While Not rsClass.EOF
        Response.Write "<tr align='center' class='tdbg' onMouseOut=""this.className='tdbg'"" onMouseOver=""this.className='tdbg2'""><td align='left'>"
        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") & ""
        If rsClass("Child") > 0 Then
            Response.Write "（" & rsClass("Child") & "）"
        End If
        If rsClass("ClassType") = 2 Then
            Response.Write " <font color=blue>（外）</font>"
        Else
            'Response.Write " [" & rsClass("ClassDir") & "]"
        End If
        Response.Write "</td>"

        If rsClass("ClassType") = 1 Then
            iYear = Year(BeginDate)
            iMonth = Month(BeginDate)
            For i = 1 To iCount
                iDate1 = iYear & "-" & iMonth & "-1"
                iDate2 = DateAdd("m", 1, CDate(iDate1))
                If SystemDatabaseType = "SQL" Then
                    iDate1 = "'" & iDate1 & "'"
                    iDate2 = "'" & iDate2 & "'"
                Else
                    iDate1 = "#" & iDate1 & "#"
                    iDate2 = "#" & iDate2 & "#"
                End If
                If tUserName = "" Then
                    iTemp = Conn.Execute("select count(0) from " & TableName & " where ClassID=" & rsClass("ClassID") & " and Deleted=0 and Status=3 and UpdateTime>=" & iDate1 & " and updatetime<" & iDate2 & "")(0)
                Else
                    iTemp = Conn.Execute("select count(0) from " & TableName & " where ClassID=" & rsClass("ClassID") & " and Inputer='" & tUserName & "' and Deleted=0 and Status=3 and UpdateTime>=" & iDate1 & " and updatetime<" & iDate2 & "")(0)
                End If
                Response.Write "<td>" & iTemp & "</td>"
                arrCount(i) = arrCount(i) + iTemp
                iMonth = iMonth + 1
                If iMonth > 12 Then
                    iYear = iYear + 1
                    iMonth = 1
                End If
            Next
            If SystemDatabaseType = "SQL" Then
                iDate1 = "'" & BeginDate & "'"
                iDate2 = "'" & EndDate & "'"
            Else
                iDate1 = "#" & BeginDate & "#"
                iDate2 = "#" & EndDate & "#"
            End If
            If tUserName = "" Then
                iTemp = Conn.Execute("select count(0) from " & TableName & " where ClassID=" & rsClass("ClassID") & " and Deleted=0 and Status=3 and UpdateTime>=" & iDate1 & " and updatetime<" & iDate2 & "")(0)
            Else
                iTemp = Conn.Execute("select count(0) from " & TableName & " where ClassID=" & rsClass("ClassID") & " and Inputer='" & tUserName & "' and Deleted=0 and Status=3 and UpdateTime>=" & iDate1 & " and updatetime<" & iDate2 & "")(0)
            End If
            arrCount(i) = arrCount(i) + iTemp
            Response.Write "<td>" & iTemp & "</td>"
        Else
            For i = 1 To iCount + 1
                Response.Write "<td>0</td>"
            Next
        End If
        Response.Write "</tr>"
        rsClass.movenext
    Loop
    rsClass.Close
    Set rsClass = Nothing
    Response.Write "<tr align='center' class='tdbg2'><td>合计</td>"
    For i = 1 To iCount + 1
        Response.Write "<td>" & arrCount(i) & "</td>"
    Next
    Response.Write "</tr>"
    Response.Write "</table>"
End Sub

Sub CountByClassUser(UserType)
    If UserType = 1 Then
        Response.Write "<p align='center'>按 栏 目 / 录 入 者 统 计</p>"
    Else
        Response.Write "<p align='center'>按 栏 目 / 审 核 人 统 计</p>"
    End If
    Response.Write "<table width='100%' border='0' cellpadding='2' cellspacing='1' class='border'>"
    Call ShowChannelField
    Call ShowDateField
    Response.Write "</table><br>"

    If ChannelID = 0 Or Trim(Request("BeginDate")) = "" Then
        Exit Sub
    End If
    Dim rsUser
    Set rsUser = Conn.Execute("select AdminName from PE_Admin")
    iCount = Conn.Execute("select Count(0) from PE_Admin")(0)
    ReDim arrCount(iCount)
    

    Response.Write "<table border='0' align='center' cellpadding='2' cellspacing='1' class='border' width='" & iCount * 60 + 360 & "'><tr align='center' class='title'><td width='300'>栏目名称</td>"
    Do While Not rsUser.EOF
        Response.Write "<td width='60'>" & rsUser(0) & "</td>"
        rsUser.movenext
    Loop
    Response.Write "<td width='60'>合计</td></tr>"

    If SystemDatabaseType = "SQL" Then
        iDate1 = "'" & BeginDate & "'"
        iDate2 = "'" & EndDate & "'"
    Else
        iDate1 = "#" & BeginDate & "#"
        iDate2 = "#" & EndDate & "#"
    End If

    Dim arrShowLine(20), i
    For i = 0 To UBound(arrShowLine)
        arrShowLine(i) = False
    Next
    Dim sqlClass, rsClass, iDepth, ClassDir, ClassItemDir
    Set rsClass = Conn.Execute("select * from PE_Class where ChannelID=" & ChannelID & " order by RootID,OrderID")
    Do While Not rsClass.EOF
        Response.Write "<tr align='center' class='tdbg' onMouseOut=""this.className='tdbg'"" onMouseOver=""this.className='tdbg2'""><td align='left'>"
        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 "<a href='Admin_Class.asp?Action=Modify&ChannelID=" & ChannelID & "&ClassID=" & rsClass("ClassID") & "' title='" & nohtml(rsClass("Tips")) & "'>" & rsClass("ClassName") & "</a>"
        If rsClass("Child") > 0 Then
            Response.Write "（" & rsClass("Child") & "）"
        End If
        If rsClass("ClassType") = 2 Then
            Response.Write " <font color=blue>（外）</font>"
        Else
            'Response.Write " [" & rsClass("ClassDir") & "]"
        End If
        Response.Write "</td>"

        If rsClass("ClassType") = 1 Then
            i = 0
            rsUser.MoveFirst
            Do While Not rsUser.EOF
                If UserType = 1 Then
                    iTemp = Conn.Execute("select count(0) from " & TableName & " where ClassID=" & rsClass("ClassID") & " and Deleted=0 and Status=3 and Inputer='" & rsUser(0) & "' and UpdateTime>=" & iDate1 & " and updatetime<" & iDate2 & "")(0)
                Else
                    iTemp = Conn.Execute("select count(0) from " & TableName & " where ClassID=" & rsClass("ClassID") & " and Deleted=0 and Status=3 and Editor='" & rsUser(0) & "' and UpdateTime>=" & iDate1 & " and updatetime<" & iDate2 & "")(0)
                End If
                If iTemp = 0 Then
                    Response.Write "<td>0</td>"
                Else
                    Response.Write "<td><a href='Admin_SiteCount.asp?Action=CountByClassMonth&ChannelID=" & ChannelID & "&UserName=" & rsUser(0) & "&BeginDate=" & BeginDate & "&EndDate=" & EndDate & "'>" & iTemp & "</a></td>"
                End If
                arrCount(i) = arrCount(i) + iTemp