admin_photo.asp

个人网站比较简短

        totalPut = PE_CLng(Conn.Execute("select Count(*) from PE_InfoS I inner join PE_Photo P on I.ItemID=P.PhotoID " & Querysql)(0))
    Else
        totalPut = PE_CLng(Conn.Execute("select Count(*) from PE_Photo P " & 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_Photo P on I.ItemID=P.PhotoID " & Querysql & " order by I.InfoID desc) as QueryPhoto)"
        Else
            Querysql = Querysql & " and P.PhotoID < (select min(PhotoID) from (select top " & ((CurrentPage - 1) * MaxPerPage) & " P.PhotoID from PE_Photo P " & Querysql & " order by P.PhotoID desc) as QueryPhoto)"
        End If
    End If
    If ManageType = "Special" Then
        sql = sql & Querysql & " order by I.InfoID desc"
    Else
        sql = sql & Querysql & " order by P.PhotoID desc"
    End If

    Set rsPhotoList = Server.CreateObject("ADODB.Recordset")
    rsPhotoList.Open sql, Conn, 1, 1
    If rsPhotoList.BOF And rsPhotoList.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

        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
        Response.Write "<br><br></td></tr>"
    Else
        Dim PhotoNum, PhotoPath
        PhotoNum = 0
        Do While Not rsPhotoList.EOF
            Response.Write "<td class='tdbg'><table width='100%'  cellpadding='0' cellspacing='0' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
            Response.Write "<tr><td colspan='2' align='center'><a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=Show&PhotoID=" & rsPhotoList("PhotoID") & "'><img src='" & GetPhotoThumb(rsPhotoList("PhotoThumb")) & "' width='130' height='90' border='0'></a></td></tr>"
            If ManageType = "Special" Then
                Response.Write "<tr><td align='right'>专题名称：</td><td>"
                If rsPhotoList("SpecialID") > 0 Then
                    Response.Write "<a href='" & FileName & "&SpecialID=" & rsPhotoList("SpecialID") & "'>" & rsPhotoList("SpecialName") & "</a>"
                Else
                    Response.Write "&nbsp;"
                End If
                Response.Write "</td></tr>"
            Else
                If rsPhotoList("ClassID") <> ClassID And ClassID <> -1 Then
                    Response.Write "<tr><td align='right'>栏目名称：</td><td><a href='" & FileName & "&ClassID=" & rsPhotoList("ClassID") & "'>["
                    If rsPhotoList("ClassName") <> "" Then
                        Response.Write rsPhotoList("ClassName")
                    Else
                        Response.Write "<font color='gray'>不属于任何栏目</font>"
                    End If
                    Response.Write "]</a></td></tr>"
                End If
            End If
            Response.Write "<tr><td align='right'>" & ChannelShortName & "名称：</td><td>"
            Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=Show&PhotoID=" & rsPhotoList("PhotoID") & "'"
            Response.Write " title='名&nbsp;&nbsp;&nbsp;&nbsp;称：" & rsPhotoList("PhotoName") & vbCrLf & "作&nbsp;&nbsp;&nbsp;&nbsp;者：" & rsPhotoList("Author") & vbCrLf & "更新时间：" & rsPhotoList("UpdateTime") & vbCrLf
            Response.Write "查看次数：" & rsPhotoList("Hits") & vbCrLf & "关 键 字：" & Mid(rsPhotoList("Keyword"), 2, Len(rsPhotoList("Keyword")) - 2) & vbCrLf & "推荐等级："
            If rsPhotoList("Stars") = 0 Then
                Response.Write "无"
            Else
                Response.Write String(rsPhotoList("Stars"), "★")
            End If
            Response.Write vbCrLf & "查看" & PointName & "数：" & rsPhotoList("InfoPoint")
            Response.Write "'>" & rsPhotoList("PhotoName") & "</a></td></tr>"
            Response.Write "<tr><td align='right'>添 加 者：</td><td><a href='" & FileName & "&field=Inputer&keyword=" & rsPhotoList("Inputer") & "' title='点击将查看此用户录入的所有" & ChannelShortName & "'>" & rsPhotoList("Inputer") & "</a></td></tr>"
            Response.Write "<tr><td align='right'>点 击 数：</td><td>" & rsPhotoList("Hits") & "</td></tr>"
            Response.Write "<tr><td align='right'>" & ChannelShortName & "属性：</td><td>"
            If rsPhotoList("OnTop") = True Then
                Response.Write "<font color=blue>顶</font>&nbsp;"
            Else
                Response.Write "&nbsp;&nbsp;&nbsp;"
            End If
            If rsPhotoList("Hits") >= HitsOfHot Then
                Response.Write "<font color=red>热</a>&nbsp;"
            Else
                Response.Write "&nbsp;&nbsp;&nbsp;"
            End If
            If rsPhotoList("Elite") = True Then
                Response.Write "<font color=green>荐</a>"
            Else
                Response.Write "&nbsp;&nbsp;"
            End If
            If rsPhotoList("VoteID") > 0 Then
                Response.Write "<a href='" & InstallDir & "Vote.asp?ID=" & rsPhotoList("VoteID") & "&Action=Show' target='_blank'>调</a>"
            Else
                Response.Write "&nbsp;&nbsp;"
            End If
            Response.Write "</td></tr>"
            Response.Write "<tr><td align='right'>" & ChannelShortName & "状态：</td><td>"
            Select Case rsPhotoList("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></tr>"

            Dim iClassPurview
            If UseCreateHTML > 0 And ObjInstalled_FSO = True And ManageType <> "Special" Then
                Response.Write "<tr><td align='right'>已 生 成：</td><td>"
                If ClassID = -1 Or (ClassID > 0 And Child = 0) Then
                    iClassPurview = ClassPurview
                    PhotoPath = HtmlDir & GetItemPath(StructureType, ParentDir, ClassDir, rsPhotoList("UpdateTime")) & GetItemFileName(FileNameType, ChannelDir, rsPhotoList("UpdateTime"), rsPhotoList("PhotoID")) & FileExt_Item
                Else
                    iClassPurview = PE_CLng(rsPhotoList("ClassPurview"))
                    PhotoPath = HtmlDir & GetItemPath(StructureType, rsPhotoList("ParentDir"), rsPhotoList("ClassDir"), rsPhotoList("UpdateTime")) & GetItemFileName(FileNameType, ChannelDir, rsPhotoList("UpdateTime"), rsPhotoList("PhotoID")) & FileExt_Item
                End If
                If PE_CLng(iClassPurview) > 0 Or rsPhotoList("InfoPoint") > 0 Then
                    Response.Write "<a href='#' title='因为设置了查看权限，所以不用生成HTML'><font color=green><b>¤</b></font></a>"
                Else
                    If fso.FileExists(Server.MapPath(PhotoPath)) Then
                        Response.Write "<a href='#' title='文件位置：" & PhotoPath & "'><b>√</b></a>"
                    Else
                        Response.Write "<font color=red><b>×</b></font>"
                    End If
                End If
                Response.Write "</td></tr>"
            End If
            Response.Write "<tr><td align='right'>操作选项：</td><td>"
            If ManageType = "Special" Then
                Response.Write "<input name='InfoID' type='checkbox' onclick='CheckItem(this,""TABLE"")' id='InfoID' value='" & rsPhotoList("InfoID") & "'>"
            Else
                Response.Write "<input name='PhotoID' type='checkbox' onclick='CheckItem(this,""TABLE"")' id='PhotoID' value='" & rsPhotoList("PhotoID") & "'>"
            End If
            Response.Write "</td></tr>"
            Response.Write "<tr><td colspan='2' align='center'>"
            If ManageType = "Check" Then
                If AdminPurview = 1 Or AdminPurview_Channel <= 2 Or PurviewChecked = True Then
                    If rsPhotoList("Status") <= MyStatus Then
                        If rsPhotoList("Status") > -1 Then
                            Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=Reject&PhotoID=" & rsPhotoList("PhotoID") & "'>直接退稿</a>&nbsp;&nbsp;"
                        End If
                        If rsPhotoList("Status") < MyStatus Then
                            Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=Check&PhotoID=" & rsPhotoList("PhotoID") & "'>审核</a>&nbsp;&nbsp;"
                            Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=SetPassed&PhotoID=" & rsPhotoList("PhotoID") & "'>通过</a>&nbsp;&nbsp;"
                        Else
                            Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=CancelPassed&PhotoID=" & rsPhotoList("PhotoID") & "'>取消审核</a>"
                        End If
                    End If
                End If
            ElseIf ManageType = "HTML" Then
                If iClassPurview = 0 And rsPhotoList("InfoPoint") = 0 And rsPhotoList("Status") = 3 And (AdminPurview = 1 Or AdminPurview_Channel <= 2 Or PurviewChecked = True) Then
                    Response.Write "<a href='Admin_CreatePhoto.asp?ChannelID=" & ChannelID & "&Action=CreatePhoto&PhotoID=" & rsPhotoList("PhotoID") & "' title='生成本" & ChannelShortName & "的HTML页面'>生成文件</a>&nbsp;"
                    If fso.FileExists(Server.MapPath(PhotoPath)) Then
                        Response.Write "<a href='" & PhotoPath & "' target='_blank' title='查看本" & ChannelShortName & "的HTML页面'>查看文件</a>&nbsp;"
                        Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=DelFile&PhotoID=" & rsPhotoList("PhotoID") & "' title='删除本" & ChannelShortName & "的HTML页面' onclick=""return confirm('确定要删除此" & ChannelShortName & "的HTML页面吗？');"">删除文件</a>&nbsp;"
                    End If
                End If
            ElseIf ManageType = "Recyclebin" Then
                Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=ConfirmDel&PhotoID=" & rsPhotoList("PhotoID") & "' onclick=""return confirm('确定要彻底删除此" & ChannelShortName & "吗？彻底删除后将无法还原！');"">彻底删除</a> "
                Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=Restore&PhotoID=" & rsPhotoList("PhotoID") & "'>还原</a>"
            ElseIf ManageType = "Special" Then
                If rsPhotoList("SpecialID") > 0 Then
                    Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=DelFromSpecial&InfoID=" & rsPhotoList("InfoID") & "' onclick=""return confirm('确定要将此" & ChannelShortName & "从其所属专题中删除吗？操作成功后此" & ChannelShortName & "将不属于任何专题。');"">从所属专题中删除</a> "
                End If
            Else
                If AdminPurview = 1 Or AdminPurview_Channel <= 2 Or CheckPurview_Class(arrClass_Input, ParentPath & "," & ClassID) Or UserName = rsPhotoList("Inputer") Then
                    Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=Modify&PhotoID=" & rsPhotoList("PhotoID") & "'>修改</a>&nbsp;"
                Else
                    Response.Write "<font color='gray'>修改&nbsp;</font>"
                End If
                If AdminPurview = 1 Or AdminPurview_Channel <= 2 Or PurviewChecked = True Or UserName = rsPhotoList("Inputer") Then
                    Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=Del&PhotoID=" & rsPhotoList("PhotoID") & "' 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 rsPhotoList("OnTop") = False Then
                        Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=SetOnTop&PhotoID=" & rsPhotoList("PhotoID") & "'>固顶</a>&nbsp;"
                    Else
                        Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=CancelOnTop&PhotoID=" & rsPhotoList("PhotoID") & "'>解固</a>&nbsp;"
                    End If
                    If rsPhotoList("Elite") = False Then
                        Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=SetElite&PhotoID=" & rsPhotoList("PhotoID") & "'>设为推荐</a>"
                    Else
                        Response.Write "<a href='Admin_Photo.asp?ChannelID=" & ChannelID & "&Action=CancelElite&PhotoID=" & rsPhotoList("PhotoID") & "'>取消推荐</a>"
                    End If
                End If
            End If
            Response.Write "</td></tr>"
            Response.Write "</table></td>"

            PhotoNum = PhotoNum + 1
            If PhotoNum Mod 4 = 0 Then