admin_article.asp

个人网站比较简短

    End If
    If ManageType = "Receive" Then
        Querysql = Querysql & " and A.Receive=" & PE_True & ""
    End If
    If ManageType = "Recyclebin" Then
        Querysql = Querysql & " and A.Deleted=" & PE_True & ""
    Else
        Querysql = Querysql & " and A.Deleted=" & PE_False & ""
    End If
    If ManageType = "HTML" Then
        If Created = "False" Then
            Querysql = Querysql & " and (A.CreateTime<=A.UpdateTime or A.CreateTime is Null)"
        ElseIf Created = "True" Then
            Querysql = Querysql & " and A.CreateTime>A.UpdateTime"
        End If
        Querysql = Querysql & " and A.Status=3" '当文章为已审核时，才在生成管理中出现
    ElseIf ManageType = "PayMoney" Then
       '如果是稿费管理，则查出所有的以通过审查但是却没有被删除和计算稿费的文章
        If PayStatus = "False" Then
            Querysql = Querysql & " and A.Status=3 and A.CopyMoney>0 and  A.IsPayed=" & PE_False & "" '查询出计算过，但是没有被支付的文章
        ElseIf PayStatus = "True" Then
            Querysql = Querysql & " and A.Status=3 and A.CopyMoney>0 and A.IsPayed=" & PE_True & "" '查询出被计算了，并且支付过的文章
        End If
    Else
        Select Case Status
        Case -2 '退稿
            Querysql = Querysql & " and A.Status=-2"
        Case -1 '草稿
            Querysql = Querysql & " and A.Status=-1"
        Case 0  '待审核
            Querysql = Querysql & " and A.Status>=0 and A.Status<" & MyStatus
        Case 1  '已审核
            Querysql = Querysql & " and A.Status>=" & MyStatus
        Case Else
            Querysql = Querysql & " and A.Status>-1"
        End Select
        If OnTop = "True" Then
            Querysql = Querysql & " and A.OnTop=" & PE_True & ""
        End If
        If IsElite = "True" Then
            Querysql = Querysql & " and A.Elite=" & PE_True & ""
        End If
        If IsHot = "True" Then
            Querysql = Querysql & " and A.Hits>=" & HitsOfHot & ""
        End If
    End If

    If ClassID <> 0 Then
        If Child > 0 Then
            Querysql = Querysql & " and A.ClassID in (" & arrChildID & ")"
        Else
            Querysql = Querysql & " and A.ClassID=" & ClassID
        End If
    End If
    If SpecialID > 0 Then
        Querysql = Querysql & " and I.SpecialID=" & SpecialID
    End If
    If ManageType = "My" Then
        Querysql = Querysql & " and A.Inputer='" & UserName & "' "
    End If
    If Keyword <> "" Then
        Select Case strField
        Case "Title"
            Querysql = Querysql & " and A.Title like '%" & Keyword & "%' "
        Case "Content"
            Querysql = Querysql & " and A.Content like '%" & Keyword & "%' "
        Case "Author"
            Querysql = Querysql & " and A.Author like '%" & Keyword & "%' "
        Case "Inputer"
            Querysql = Querysql & " and A.Inputer='" & Keyword & "' "
        Case "Editor"
            Querysql = Querysql & " and A.Editor='" & Keyword & "' "
        Case "UpdateTime"
            Querysql = Querysql & " and DateDiff(" & PE_DatePart_D & ",A.UpdateTime,'" & Keyword & "')=0 "
        Case "Keyword"
            Querysql = Querysql & " and A.Keyword like '%|" & Keyword & "|%' "
        Case "ID"
            Querysql = Querysql & " and A.ArticleID=" & PE_Clng(Keyword) & " "
        Case Else
            Querysql = Querysql & " and A.Title like '%" & Keyword & "%' "
        End Select
    End If
    If ManageType = "Special" Then
        totalPut = PE_CLng(Conn.Execute("select Count(*) from PE_InfoS I inner join PE_Article A on I.ItemID=A.ArticleID " & Querysql)(0))
    Else
        totalPut = PE_CLng(Conn.Execute("select Count(*) from PE_Article A " & Querysql)(0))
    End If
    If CurrentPage < 1 Then
        CurrentPage = 1
    End If
    If (CurrentPage - 1) * MaxPerPage > totalPut Then
        If (totalPut Mod MaxPerPage) = 0 Then
            CurrentPage = totalPut \ MaxPerPage
        Else
            CurrentPage = totalPut \ MaxPerPage + 1
        End If
    End If
    If CurrentPage > 1 Then
        If ManageType = "Special" Then
            Querysql = Querysql & " and I.InfoID < (select min(InfoID) from (select top " & ((CurrentPage - 1) * MaxPerPage) & " I.InfoID from PE_InfoS I inner join PE_Article A on I.ItemID=A.ArticleID " & Querysql & " order by I.InfoID desc) as QueryArticle)"
        Else
            Querysql = Querysql & " and A.ArticleID < (select min(ArticleID) from (select top " & ((CurrentPage - 1) * MaxPerPage) & " A.ArticleID from PE_Article A " & Querysql & " order by A.ArticleID desc) as QueryArticle)"
        End If
    End If
    If ManageType = "Special" Then
        sql = sql & Querysql & " order by I.InfoID desc"
    Else
        sql = sql & Querysql & " order by A.ArticleID desc"
    End If

    Set rsArticleList = Server.CreateObject("ADODB.Recordset")
    rsArticleList.Open sql, Conn, 1, 1
    If rsArticleList.BOF And rsArticleList.EOF Then
        totalPut = 0
        Response.Write "<tr class='tdbg'><td colspan='20' align='center'><br>"
        If ClassID > 0 Then
            Response.Write "此栏目及其子栏目中没有任何"
        Else
            Response.Write "没有任何"
        End If
        If ManageType = "PayMoney" Then
            Select Case PayStatus
            Case "True"
                Response.Write "<font color=blue>已付稿费</font>的" & ChannelShortName & "！"
            Case "False"
                Response.Write "<font color=green>未支付稿费</font>" & ChannelShortName & "！"
            'Case Else
              '  Response.Write "需要支付稿费的" & ChannelShortName & "！"
            End Select
        Else
            Select Case Status
            Case -2
                Response.Write "退稿"
            Case -1
                Response.Write "草稿"
            Case 0
                Response.Write "<font color=blue>待审核</font>的" & ChannelShortName & "！"
            Case 1
                Response.Write "<font color=green>已审核</font>的" & ChannelShortName & "！"
            Case Else
                Response.Write ChannelShortName & "！"
            End Select
        End If
        Response.Write "<br><br></td></tr>"
    Else
        Dim ArticleNum, ArticlePath
        ArticleNum = 0
        Do While Not rsArticleList.EOF
            Response.Write "      <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
            If ManageType = "Special" Then
                Response.Write "        <td width='30' align='center'><input name='InfoID' type='checkbox' onclick='CheckItem(this)' id='InfoID' value='" & rsArticleList("InfoID") & "'></td>"
                Response.Write "        <td width='25' align='center'>" & rsArticleList("InfoID") & "</td>"
                Response.Write "        <td width='120' align='center'>"
                If rsArticleList("SpecialID") > 0 Then
                    Response.Write "<a href='" & FileName & "&SpecialID=" & rsArticleList("SpecialID") & "'>" & rsArticleList("SpecialName") & "</a>"
                Else
                    Response.Write "&nbsp;"
                End If
                Response.Write "</td>"
            Else
                Response.Write "        <td width='30' align='center'><input name='ArticleID' type='checkbox' onclick='CheckItem(this)' id='ArticleID' value='" & rsArticleList("ArticleID") & "'></td>"
                Response.Write "        <td width='25' align='center'>" & rsArticleList("ArticleID") & "</td>"
            End If
            Response.Write "        <td>"
            If ManageType <> "Special" Then
                If rsArticleList("ClassID") <> ClassID And ClassID <> -1 Then
                    Response.Write "<a href='" & FileName & "&ClassID=" & rsArticleList("ClassID") & "'>["
                    If rsArticleList("ClassName") <> "" Then
                        Response.Write rsArticleList("ClassName")
                    Else
                        Response.Write "<font color='gray'>不属于任何栏目</font>"
                    End If
                    Response.Write "]</a>&nbsp;"
                End If
            End If
            
            Select Case rsArticleList("IncludePic")
                Case 1
                    Response.Write "<font color=blue>" & ArticlePro1 & "</font>"
                Case 2
                    Response.Write "<font color=blue>" & ArticlePro2 & "</font>"
                Case 3
                    Response.Write "<font color=blue>" & ArticlePro3 & "</font>"
                Case 4
                    Response.Write "<font color=blue>" & ArticlePro4 & "</font>"
            End Select
            
            Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=Show&ArticleID=" & rsArticleList("ArticleID") & "'"
            Response.Write " title='标&nbsp;&nbsp;&nbsp;&nbsp;题：" & rsArticleList("Title") & vbCrLf & "作&nbsp;&nbsp;&nbsp;&nbsp;者：" & rsArticleList("Author") & vbCrLf & "转 贴 自：" & rsArticleList("CopyFrom") & vbCrLf & "更新时间：" & rsArticleList("UpdateTime") & vbCrLf
            Response.Write "点 击 数：" & rsArticleList("Hits") & vbCrLf & "关 键 字：" & Mid(rsArticleList("Keyword"), 2, Len(rsArticleList("Keyword")) - 2) & vbCrLf & "推荐等级："
            If rsArticleList("Stars") = 0 Then
                Response.Write "无"
            Else
                Response.Write String(rsArticleList("Stars"), "★")
            End If
            Response.Write vbCrLf & "分页方式："
            If rsArticleList("PaginationType") = 0 Then
                Response.Write "不分页"
            ElseIf rsArticleList("PaginationType") = 1 Then
                Response.Write "自动分页"
            ElseIf rsArticleList("PaginationType") = 2 Then
                Response.Write "手动分页"
            End If
            Response.Write vbCrLf & "阅读点数：" & rsArticleList("InfoPoint")
            Response.Write "'>" & rsArticleList("title") & "</a>"
            If ManageType = "Receive" And rsArticleList("Receive") = True Then
                Response.Write "&nbsp;"
                
                If rsArticleList("Received") = "" Then
                    NotReceiveUser = rsArticleList("ReceiveUser")
                Else
                    NotReceiveUser = ""
                    arrUser = Split(rsArticleList("ReceiveUser"), ",")
                    For i = 0 To UBound(arrUser)
                        If FoundInArr(rsArticleList("Received"), arrUser(i), "|") = False Then
                            If NotReceiveUser = "" Then
                                NotReceiveUser = arrUser(i)
                            Else
                                NotReceiveUser = NotReceiveUser & "," & arrUser(i)
                            End If
                        End If
                    Next
                End If
                Response.Write "<a href='' onclick='return false' title='"
                Response.Write "要求签收用户：" & rsArticleList("ReceiveUser") & vbCrLf
                Response.Write "已经签收用户：" & rsArticleList("Received") & vbCrLf
                Response.Write "尚未签收用户：" & NotReceiveUser