admin_soft.asp

个人网站比较简短

            Querysql = Querysql & " and S.Status>=" & MyStatus
        Case Else
            Querysql = Querysql & " and S.Status>-1"
        End Select
        If OnTop = "True" Then
            Querysql = Querysql & " and S.OnTop=" & PE_True & ""
        End If
        If IsElite = "True" Then
            Querysql = Querysql & " and S.Elite=" & PE_True & ""
        End If
        If IsHot = "True" Then
            Querysql = Querysql & " and S.Hits>=" & HitsOfHot & ""
        End If
    End If
    
    If ClassID <> 0 Then
        If Child > 0 Then
            Querysql = Querysql & " and S.ClassID in (" & arrChildID & ")"
        Else
            Querysql = Querysql & " and S.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 S.Inputer='" & UserName & "' "
    End If
    If Keyword <> "" Then
        Select Case strField
        Case "SoftName"
            Querysql = Querysql & " and S.SoftName like '%" & Keyword & "%' "
        Case "SoftIntro"
            Querysql = Querysql & " and S.SoftIntro like '%" & Keyword & "%' "
        Case "Author"
            Querysql = Querysql & " and S.Author like '%" & Keyword & "%' "
        Case "Inputer"
            Querysql = Querysql & " and S.Inputer='" & Keyword & "' "
        Case Else
            Querysql = Querysql & " and S.SoftName like '%" & Keyword & "%' "
        End Select
    End If
    
    If ManageType = "Special" Then
        totalPut = PE_CLng(Conn.Execute("select Count(*) from PE_InfoS I inner join PE_Soft S on I.ItemID=S.SoftID " & Querysql)(0))
    Else
        totalPut = PE_CLng(Conn.Execute("select Count(*) from PE_Soft S " & 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_Soft S on I.ItemID=S.SoftID " & Querysql & " order by I.InfoID desc) as QuerySoft)"
        Else
            Querysql = Querysql & " and S.SoftID < (select min(SoftID) from (select top " & ((CurrentPage - 1) * MaxPerPage) & " S.SoftID from PE_Soft S " & Querysql & " order by S.SoftID desc) as QuerySoft)"
        End If
    End If
    If ManageType = "Special" Then
        sql = sql & Querysql & " order by I.InfoID desc"
    Else
        sql = sql & Querysql & " order by S.SoftID desc"
    End If

    Set rsSoftList = Server.CreateObject("ADODB.Recordset")
    rsSoftList.Open sql, Conn, 1, 1
    If rsSoftList.BOF And rsSoftList.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 SoftNum, SoftPath
        SoftNum = 0
        Do While Not rsSoftList.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='" & rsSoftList("InfoID") & "'></td>"
                Response.Write "        <td width='25' align='center'>" & rsSoftList("InfoID") & "</td>"
                Response.Write "        <td width='120' align='center'>"
                If rsSoftList("SpecialID") > 0 Then
                    Response.Write "<a href='" & FileName & "&SpecialID=" & rsSoftList("SpecialID") & "'>" & rsSoftList("SpecialName") & "</a>"
                Else
                    Response.Write "&nbsp;"
                End If
                Response.Write "</td>"
            Else
                Response.Write "        <td width='30' align='center'><input name='SoftID' type='checkbox' onclick='CheckItem(this)' id='SoftID' value='" & rsSoftList("SoftID") & "'></td>"
                Response.Write "        <td width='25' align='center'>" & rsSoftList("SoftID") & "</td>"
            End If
            Response.Write "        <td>"
            If ManageType <> "Special" Then
                If rsSoftList("ClassID") <> ClassID And ClassID <> -1 Then
                    Response.Write "<a href='" & FileName & "&ClassID=" & rsSoftList("ClassID") & "'>["
                    If rsSoftList("ClassName") <> "" Then
                        Response.Write rsSoftList("ClassName")
                    Else
                        Response.Write "<font color='gray'>不属于任何栏目</font>"
                    End If
                    Response.Write "]</a>&nbsp;"
                End If
            End If
            
            Response.Write "<a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&Action=Show&SoftID=" & rsSoftList("SoftID") & "'"
            Response.Write " title='名&nbsp;&nbsp;&nbsp;&nbsp;称：" & rsSoftList("SoftName") & vbCrLf & "版&nbsp;&nbsp;&nbsp;&nbsp;本：" & rsSoftList("SoftVersion") & vbCrLf & "作&nbsp;&nbsp;&nbsp;&nbsp;者：" & rsSoftList("Author") & vbCrLf & "更新时间：" & rsSoftList("UpdateTime") & vbCrLf
            Response.Write "下载次数：" & rsSoftList("Hits") & vbCrLf & "关 键 字：" & Mid(rsSoftList("Keyword"), 2, Len(rsSoftList("Keyword")) - 2) & vbCrLf & "推荐等级："
            If rsSoftList("Stars") = 0 Then
                Response.Write "无"
            Else
                Response.Write String(rsSoftList("Stars"), "★")
            End If
            Response.Write vbCrLf & "下载" & PointName & "数：" & rsSoftList("InfoPoint")
            Response.Write "'>" & rsSoftList("SoftName")
            If rsSoftList("SoftVersion") <> "" Then
                Response.Write "&nbsp;&nbsp;" & rsSoftList("SoftVersion")
            End If
            Response.Write "</a>"
            If CheckDownloadUrl(rsSoftList("DownloadUrl")) = False Then
                Response.Write " <font color='red'>错</font>"
            End If
            Response.Write "</td>"
            Response.Write "      <td width='60' align='center'><a href='" & FileName & "&field=Inputer&keyword=" & rsSoftList("Inputer") & "' title='点击将查看此用户录入的所有" & ChannelShortName & "'>" & rsSoftList("Inputer") & "</a></td>"
            Response.Write "      <td width='40' align='center'>" & rsSoftList("Hits") & "</td>"
            Response.Write "      <td width='80' align='center'>"
            If rsSoftList("OnTop") = True Then
                Response.Write "<font color=blue>顶</font> "
            Else
                Response.Write "&nbsp;&nbsp;&nbsp;"
            End If
            If rsSoftList("Hits") >= HitsOfHot Then
                Response.Write "<font color=red>热</font> "
            Else
                Response.Write "&nbsp;&nbsp;&nbsp;"
            End If
            If rsSoftList("Elite") = True Then
                Response.Write "<font color=green>荐</font> "
            Else
                Response.Write "&nbsp;&nbsp;&nbsp;"
            End If
            If Trim(rsSoftList("SoftPicUrl")) <> "" Then
                Response.Write "<font color=blue>图</font>"
            Else
                Response.Write "&nbsp;&nbsp;"
            End If
            If rsSoftList("VoteID") > 0 Then
                Response.Write "<a href='" & InstallDir & "Vote.asp?ID=" & rsSoftList("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 rsSoftList("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>"

            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
                    SoftPath = HtmlDir & GetItemPath(StructureType, ParentDir, ClassDir, rsSoftList("UpdateTime")) & GetItemFileName(FileNameType, ChannelDir, rsSoftList("UpdateTime"), rsSoftList("SoftID")) & FileExt_Item
                Else
                    iClassPurview = PE_CLng(rsSoftList("ClassPurview"))
                    SoftPath = HtmlDir & GetItemPath(StructureType, rsSoftList("ParentDir"), rsSoftList("ClassDir"), rsSoftList("UpdateTime")) & GetItemFileName(FileNameType, ChannelDir, rsSoftList("UpdateTime"), rsSoftList("SoftID")) & FileExt_Item
                End If
                If fso.FileExists(Server.MapPath(SoftPath)) Then
                    Response.Write "<a href='#' title='文件位置：" & SoftPath & "'><b>√</b></a>"
                Else
                    Response.Write "<font color=red><b>×</b></font>"
                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 rsSoftList("Status") <= MyStatus Then
                        If rsSoftList("Status") > -1 Then
                            Response.Write "<a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&Action=Reject&SoftID=" & rsSoftList("SoftID") & "'>直接退稿</a>&nbsp;&nbsp;"
                        End If
                        If rsSoftList("Status") < MyStatus Then
                            Response.Write "<a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&Action=Check&SoftID=" & rsSoftList("SoftID") & "'>审核</a>&nbsp;&nbsp;"
                            Response.Write "<a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&Action=SetPassed&SoftID=" & rsSoftList("SoftID") & "'>通过</a>&nbsp;&nbsp;"
                        Else
                            Response.Write "<a href='Admin_Soft.asp?ChannelID=" & ChannelID & "&Action=CancelPassed&SoftID=" & rsSoftList("SoftID") & "'>取消审核</a>"
                        End If
                    End If