admin_article.asp

个人网站比较简短

                If NotReceiveUser <> "" Then
                    Response.Write "'><font color=red>[签收中]</font></a>"
                Else
                    Response.Write "'><font color=green>[已签收]</font></a>"
                End If
            End If
            Response.Write "</td>"
            Response.Write "      <td width='60' align='center'><a href='" & FileName & "&field=Inputer&keyword=" & rsArticleList("Inputer") & "' title='点击将查看此用户录入的所有" & ChannelShortName & "'>" & rsArticleList("Inputer") & "</a></td>"
               '修改审核管理界面
            If ManageType = "PayMoney" Then
                Response.Write "      <td width='60' align='center'>" & rsArticleList("Author") & "</td>"
                Response.Write "      <td width='80' align='center'>" & rsArticleList("Beneficiary") & "</td>"
                Response.Write "      <td width='60' align='center'>" & FormatNumber(rsArticleList("CopyMoney"), 2, vbTrue, vbFalse, vbTrue) & "</td>"
                If rsArticleList("Ispayed") = True Then
                    Response.Write "      <td width='40' align='center'><b>√</b></td>"
                Else
                    Response.Write "      <td width='40' align='center'><font color=red><b>×</b></font></td>"
                End If
                If PayStatus Then
                    Response.Write "      <td width='60' align='center'>" & rsArticleList("payDate") & "</td>"
                Else
                    Response.Write "      <td width='60' align='center'>" & rsArticleList("UpdateTime") & "</td>"
                End If
            Else
                Response.Write "      <td width='40' align='center'>" & rsArticleList("Hits") & "</td>"
                Response.Write "      <td width='80' align='center'>"
                If rsArticleList("OnTop") = True Then
                    Response.Write "<font color=blue>顶</font> "
                Else
                    Response.Write "&nbsp;&nbsp;&nbsp;"
                End If
                If rsArticleList("Hits") >= HitsOfHot Then
                    Response.Write "<font color=red>热</font> "
                Else
                    Response.Write "&nbsp;&nbsp;&nbsp;"
                End If
                If rsArticleList("Elite") = True Then
                    Response.Write "<font color=green>荐</font> "
                Else
                    Response.Write "&nbsp;&nbsp;&nbsp;"
                End If
                If Trim(rsArticleList("DefaultPicUrl")) <> "" Then
                    Response.Write "<font color=blue>图</font>"
                Else
                    Response.Write "&nbsp;&nbsp;"
                End If
                If rsArticleList("VoteID") > 0 Then
                    Response.Write "<a href='" & InstallDir & "Vote.asp?ID=" & rsArticleList("VoteID") & "&Action=Show' target='_blank'>调</a>"
                Else
                    Response.Write "&nbsp;&nbsp;"
                End If
                Response.Write "    </td>"
                Response.Write "    <td width='60' align='center'>"
                Select Case rsArticleList("Status")
                Case -2
                    Response.Write "<font color=gray>退稿</font>"
                Case -1
                    Response.Write "<font color=gray>草稿</font>"
                Case 0
                    Response.Write "<font color=red>待审核</font>"
                Case 1
                    Response.Write "<font color=blue>一审通过</font>"
                Case 2
                    Response.Write "<font color=green>二审通过</font>"
                Case 3
                    Response.Write "<font color=black>终审通过</font>"
                End Select
                Response.Write "</td>"
            End If
        
            Dim iClassPurview
            If UseCreateHTML > 0 And ObjInstalled_FSO = True And ManageType <> "Special" Then
                Response.Write "    <td width='40' align='center'>"
                If ClassID = -1 Or (ClassID > 0 And Child = 0) Then
                    iClassPurview = ClassPurview
                    ArticlePath = HtmlDir & GetItemPath(StructureType, ParentDir, ClassDir, rsArticleList("UpdateTime")) & GetItemFileName(FileNameType, ChannelDir, rsArticleList("UpdateTime"), rsArticleList("ArticleID")) & FileExt_Item
                Else
                    iClassPurview = PE_CLng(rsArticleList("ClassPurview"))
                    ArticlePath = HtmlDir & GetItemPath(StructureType, rsArticleList("ParentDir"), rsArticleList("ClassDir"), rsArticleList("UpdateTime")) & GetItemFileName(FileNameType, ChannelDir, rsArticleList("UpdateTime"), rsArticleList("ArticleID")) & FileExt_Item
                End If
                If iClassPurview > 0 Or rsArticleList("InfoPoint") > 0 Then
                    Response.Write "<a href='#' title='因为设置了阅读权限，所以不用生成HTML'><font color=green><b>¤</b></font></a>"
                Else
                    If fso.FileExists(Server.MapPath(ArticlePath)) Then
                        Response.Write "<a href='#' title='文件位置：" & ArticlePath & "'><b>√</b></a>"
                    Else
                        Response.Write "<font color=red><b>×</b></font>"
                    End If
                End If
                Response.Write "</td>"
            End If
            Select Case ManageType
            Case "Check"
                Response.Write "<td width='120' align='center'>"
                If AdminPurview = 1 Or AdminPurview_Channel <= 2 Or PurviewChecked = True Then
                    If rsArticleList("Status") <= MyStatus Then
                        If rsArticleList("Status") > -1 Then
                            Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=Reject&ArticleID=" & rsArticleList("ArticleID") & "'>直接退稿</a>&nbsp;&nbsp;"
                        End If
                        If rsArticleList("Status") < MyStatus Then
                            Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=Check&ArticleID=" & rsArticleList("ArticleID") & "'>审核</a>&nbsp;&nbsp;"
                            Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=SetPassed&ArticleID=" & rsArticleList("ArticleID") & "'>通过</a>&nbsp;&nbsp;"
                        Else
                            Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=CancelPassed&ArticleID=" & rsArticleList("ArticleID") & "'>取消审核</a>"
                        End If
                    End If
                End If
                Response.Write "</td>"
            Case "PayMoney"
                If rsArticleList("IsPayed") = False And PayStatus = "False" Then
                    Response.Write "<td width='60' align='center'><a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=ConfirmPay&ArticleID=" & rsArticleList("ArticleID") & "'>支付稿费</a></td>"
                End If
            Case "HTML"
                Response.Write "    <td width='180' align='left'>&nbsp;"
                If iClassPurview = 0 And rsArticleList("InfoPoint") = 0 And rsArticleList("Status") = 3 And (AdminPurview = 1 Or AdminPurview_Channel <= 2 Or PurviewChecked = True) Then
                    Response.Write "<a href='Admin_CreateArticle.asp?ChannelID=" & ChannelID & "&Action=CreateArticle&ArticleID=" & rsArticleList("ArticleID") & "' title='生成本" & ChannelShortName & "的HTML页面'>生成文件</a>&nbsp;"
                    If fso.FileExists(Server.MapPath(ArticlePath)) Then
                        Response.Write "<a href='" & ArticlePath & "' target='_blank' title='查看本" & ChannelShortName & "的HTML页面'>查看文件</a>&nbsp;"
                        Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=DelFile&ArticleID=" & rsArticleList("ArticleID") & "' title='删除本" & ChannelShortName & "的HTML页面' onclick=""return confirm('确定要删除此" & ChannelShortName & "的HTML页面吗？');"">删除文件</a>&nbsp;"
                    End If
                End If
                Response.Write "</td>"
            Case "Recyclebin"
                Response.Write "<td width='100' align='center'>"
                Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=ConfirmDel&ArticleID=" & rsArticleList("ArticleID") & "' onclick=""return confirm('确定要彻底删除此" & ChannelShortName & "吗？彻底删除后将无法还原！');"">彻底删除</a> "
                Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=Restore&ArticleID=" & rsArticleList("ArticleID") & "'>还原</a>"
                Response.Write "</td>"
            Case "Special"
                Response.Write "<td width='100' align='center'>"
                If rsArticleList("SpecialID") > 0 Then
                    Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=DelFromSpecial&InfoID=" & rsArticleList("InfoID") & "' onclick=""return confirm('确定要将此" & ChannelShortName & "从其所属专题中删除吗？');"">从所属专题中删除</a> "
                End If
                Response.Write "</td>"
            Case Else
                Response.Write "    <td width='150' align='left'>&nbsp;"
                If AdminPurview = 1 Or AdminPurview_Channel <= 2 Or CheckPurview_Class(arrClass_Input, ParentPath & "," & ClassID) Or UserName = rsArticleList("Inputer") Then
                    Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=Modify&ArticleID=" & rsArticleList("ArticleID") & "'>修改</a>&nbsp;"
                Else
                    Response.Write "<font color='gray'>修改&nbsp;</font>"
                End If
                If AdminPurview = 1 Or AdminPurview_Channel <= 2 Or PurviewChecked = True Or UserName = rsArticleList("Inputer") Then
                    Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=Del&ArticleID=" & rsArticleList("ArticleID") & "' onclick=""return confirm('确定要删除此" & ChannelShortName & "吗？删除后你还可以从回收站中还原。');"">删除</a>&nbsp;"
                Else
                    Response.Write "<font color='gray'>删除&nbsp;</font>"
                End If
                If AdminPurview = 1 Or AdminPurview_Channel <= 2 Or PurviewChecked = True Then
                    If rsArticleList("OnTop") = False Then
                        Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=SetOnTop&ArticleID=" & rsArticleList("ArticleID") & "'>固顶</a>&nbsp;"
                    Else
                        Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=CancelOnTop&ArticleID=" & rsArticleList("ArticleID") & "'>解固</a>&nbsp;"
                    End If
                    If rsArticleList("Elite") = False Then
                        Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=SetElite&ArticleID=" & rsArticleList("ArticleID") & "'>设为推荐</a>"
                    Else
                        Response.Write "<a href='Admin_Article.asp?ChannelID=" & ChannelID & "&Action=CancelElite&ArticleID=" & rsArticleList("ArticleID") & "'>取消推荐</a>"
                    End If
                End If
                Response.Write "</td>"
            End Select
            Response.Write "</tr>"

            ArticleNum = ArticleNum + 1
            If ArticleNum >= MaxPerPage Then Exit Do
            rsArticleList.MoveNext
        Loop
    End If
    rsArticleList.Close
    Set rsArticleList = Nothing
    Response.Write "</table>"
    Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>"
    Response.Write "  <tr>"
    Response.Write "    <td width='200' height='30'><input name='chkAll' type='checkbox' id='chkAll' onclick='CheckAll(this.form)' value='checkbox'>选中本页显示的所有" & ChannelShortName & "</td><td>"
    Select Case ManageType
    Case "Check"
        If AdminPurview = 1 Or AdminPurview_Channel <= 2 Or PurviewChecked = True Then
            Response.Write "<input name='submit1' type='submit' value=' 审核通过 ' onClick=""document.myform.Action.value='SetPassed'"">&nbsp;&nbsp;"
            Response.Write "<input name='submit2' type='submit' value=' 取消审核 ' onClick=""document.myform.Action.value='CancelPassed'"">&nbsp;&nbsp;"
            If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
                Response.Write "<input name='submit3' type='submit' value=' 批量删除 ' onClick=""document.myform.Action.value='Del'"">"
            End If
        End If
    Case "HTML"
        If AdminPurview = 1 Or AdminPurview_Channel <= 2 Or PurviewChecked = True Then
            Response.Write "<input name='CreateType' type='hidden' id='CreateType' value='1'>"
            Response.Write "<input name='ClassID' type='hidden' id='ClassID' value='" & ClassID & "'>"
            If ClassID > 0 Then
                If UseCreateHTML = 1 Or UseCreateHTML = 3 And ClassPurview < 2 Then
                    Response.Write "<input name='submit1' type='submit' id='submit1' onClick=""document.myform.Action.value='CreateClass';document.myform.CreateType.value='1';document.myform.action='Admin_CreateArticle.asp';"" value='生成当前栏目列表页'>&nbsp;&nbsp;"
                End If
                If ClassPurview = 0 Then
                    Response.Write "<input name='submit1' type='submit' id='submit1' onClick=""document.myform.Action.value='CreateArticle';document.myform.CreateType.value='2';document.myform.action='Admin_CreateArticle.asp';"" value='生成当前栏目的" & ChannelShortName & "'>&nbsp;&nbsp;"
                End If
            Else
                Response.Write "<input name='submit1' type='submit' id='submit1' onClick=""document.myform.Action.value='CreateIndex';document.myform.CreateType.value='1';document.myform.action='Admin_CreateArticle.asp';"" value='生成首页'>&nbsp;&nbsp;"
                If UseCreateHTML = 1 Or UseCreateHTML = 3 Then
                    Response.Write "<input name='submit1' type='submit' id='submit1' onClick=""document.myform.Action.value='CreateClass';document.myform.CreateType.value='2';document.myform.action='Admin_CreateArticle.asp';"" value='生成所有栏目列表页'>&nbsp;&nbsp;"
                End If
                Response.Write "<input name='submit1' type='submit' id='submit1' onClick=""document.myform.Action.value='CreateArticle';document.myform.CreateType.value='3';document.myform.action='Admin_CreateArticle.asp';"" value='生成所有" & ChannelShortName & "'>&nbsp;&nbsp;"
            End If
            Response.Write "<input name='submit2' type='submit' id='submit2' onClick=""document.myform.Action.value='CreateArticle';document.myform.action='Admin_CreateArticle.asp';"" value='生成选定的" & ChannelShortName & "'>&nbsp;&nbsp;&nbsp;&nbsp;"
            Response.Write "<input name='Submit3' type='submit' id='submit3' onClick=""document.myform.Action.value='DelFile';document.myform.action='Admin_Article.asp'"" value='删除选定" & ChannelShortName & "的HTML文件'>"
        End If
    Case "Recyclebin"
        If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
            Response.Write "<input name='submit1' type='submit' id='submit1' onClick=""document.myform.Action.value='ConfirmDel'"" value=' 彻底删除 '>&nbsp;"
            Response.Write "<input name='Submit2' type='submit' id='Submit2' onClick=""document.myform.Action.value='ClearRecyclebin'"" value='清空回收站'>&nbsp;&nbsp;&nbsp;&nbsp;"
            Response.Write "<input name='Submit3' type='submit' id='Submit3' onClick=""document.myform.Action.value='Restore'"" value='还原选定的" & ChannelShortName & "'>&nbsp;"
            Response.Write "<input name='Submit4' type='submit' id='Submit4' onClick=""document.myform.Action.value='RestoreAll'"" value='还原所有" & ChannelShortName & "'>"
        End If
    Case "Special"
        If AdminPurview = 1 Or AdminPurview_Channel <= 2 Then
            Response.Write "<input name='submit1' type='submit' id='submit1' onClick=""document.myform.Action.value='DelFromSpecial'"" value='从所属专题中移除'> "
            Response.Write "<input name='Submit2' type='submit' id='Submit2' onClick=""document.myform.Action.value='AddToSpecial'"" value='添加到其他专题中'> "
            Response.Write "<input name='Submit2' type='submit' id='Submit2' onClick=""document.myform.Action.value='MoveToSpecial'"" value='移动到另一专题中'>"
        End If
    Case "PayMoney"
        Response.Write "<Script Language='JavaScript'>"
        Response.Write "function SetBtStatPayValue()"
        Response.Write "{"
        Response.Write "document.myform.Action.value='ConfirmPay';"
        Response.Write "document.myform.submit();"
        Response.Write "}"
        Response.Write "function SetExportExcelValue()"
        Response.Write "{"
        Response.Write "document.myform.Action.value='ExportExcel';"
        Response.Write "document.myform.submit();"
        Response.Write "}"