admin_selectfile.asp

个人网站比较简短

            theFiles(minmaxSlot) = theFiles(i)
            theFiles(i) = temp
        End If
    Next
Else
    FileCount = 0
End If


If ShowFileStyle = 1 Then
    Call ShowFileDetail
Else
    Call ShowFileThumb
End If
If FoundErr = True Then
    Call WriteErrMsg(ErrMsg, ComeUrl)
End If
If currentSlot > -1 Then
    Response.Write "<Script Language=""JavaScript"">" & vbCrLf
    Response.Write "var Sort=document.getElementById(""Sort" & sortBy & """);" & vbCrLf
    If reverse Then
        Response.Write "    Sort.src=""Images/Calendar_Down.gif"";" & vbCrLf
    Else
        Response.Write "    Sort.src=""Images/Calendar_Up.gif"";" & vbCrLf
    End If
    Response.Write "    Sort.style.display="""";    " & vbCrLf
    Response.Write "</Script>" & vbCrLf
End If


Sub ShowFileThumb()
    Response.Write "<br><table width='100%' cellpadding='2' cellspacing='1' class='border'><tr class='title' height='22'><td colspan='20'><b>子目录导航：</b></td></tr><tr class='tdbg'>"

    For Each theSubFolder In theFolder.SubFolders
        If ParentDir <> "" Then
            Response.Write "<td><a href='" & strFileName & "&ParentDir=" & ParentDir & "/" & CurrentDir & "&CurrentDir=" & theSubFolder.name & "'>" & theSubFolder.name & "</a></td>"
        Else
            Response.Write "<td><a href='" & strFileName & "&ParentDir=" & CurrentDir & "&CurrentDir=" & theSubFolder.name & "'>" & theSubFolder.name & "</a></td>"
        End If
        FolderCount = FolderCount + 1
        If FolderCount Mod 10 = 0 Then Response.Write "</td><tr class='tdbg'>"
    Next
    Response.Write "</tr></table>" & vbCrLf

    Response.Write "<br><table width='100%'><tr><td>当前目录：" & RootDir
    If ParentDir <> "" Then
        Response.Write "/" & ParentDir
    End If
    If CurrentDir <> "" Then
        Response.Write "/" & CurrentDir & "</td><td align='right'>"
        If ParentDir <> "" Then
            If InStrRev(ParentDir, "/") > 0 Then
                Response.Write "<a href='" & strFileName & "&ParentDir=" & Left(ParentDir, InStrRev(ParentDir, "/") - 1)
                Response.Write "&CurrentDir=" & Mid(ParentDir, InStrRev(ParentDir, "/") + 1)
            Else
                Response.Write "<a href='" & strFileName & "&ParentDir=&CurrentDir=" & ParentDir
            End If
        Else
            Response.Write "<a href='" & strFileName
        End If
        Response.Write "'>↑返回上级目录</a>"
    End If
    Response.Write "</td></tr></table>" & vbCrLf

    If SearchKeyword <> "" Then
        Response.Write "<br>&gt;&gt;&nbsp;当前目录文件名中含有的 <font color='red'>" & SearchKeyword & "</font> 文件"
    End If
    Response.Write "    <table width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
    Response.Write "    <tr>" & vbCrLf
    If currentSlot > -1 Then
        Response.Write "    <td height='18'> 排序方式：&nbsp;&nbsp;<a href=""javascript:reSort(0);"">文件名&nbsp;<img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort0'></a>" & vbCrLf
        Response.Write "    &nbsp;&nbsp;<a href=""javascript:reSort(2);"">大小&nbsp;<img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort2'></a>" & vbCrLf
        Response.Write "    &nbsp;&nbsp;<a href=""javascript:reSort(3);"">类型&nbsp;<img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort3'></a>" & vbCrLf
        Response.Write "    &nbsp;&nbsp;<a href=""javascript:reSort(5);"">上次修改时间&nbsp;<img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort5'></a></td>" & vbCrLf
    Else
        Response.Write "    <td height='18'></td>" & vbCrLf
    End If
    Response.Write "    <td align='right'>" & vbCrLf
    Response.Write "</td></tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    
    If currentSlot = -1 Then
        Response.Write "    <table width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf
        Response.Write "<tr class='tdbg'><td align='center' colspan='2'><br><br>当前目录下没有任何文件！<br><br></td>"
        Response.Write " </tr>"
        Response.Write "</table>" & vbCrLf
    Else
        strFileName = strFileName & "&ParentDir=" & ParentDir & "&CurrentDir=" & CurrentDir


        TotalSize = 0
        'TruePath = Server.MapPath(strPath)
        'Set theFolder = fso.GetFolder(TruePath)
        TotalUnit = 1
        For Each theFile In theFolder.Files
            StrFileType = LCase(Mid(theFile.name, InStrRev(theFile.name, ".") + 1))
            If FoundInArr(UpFileType, StrFileType, "|") = True Then

                If TotalUnit = 1 Then
                    TotalSize = TotalSize + theFile.size / 1024
                    strTotalUnit = "KB"
                ElseIf TotalUnit = 2 Then
                    TotalSize = TotalSize + theFile.size / 1024 / 1024
                    strTotalUnit = "MB"
                ElseIf TotalUnit = 3 Then
                    TotalSize = TotalSize + theFile.size / 1024 / 1024 / 1024
                    strTotalUnit = "GB"
                End If
                If TotalSize > 1024 Then
                    TotalSize = TotalSize / 1024
                    TotalUnit = TotalUnit + 1
                End If
            End If
        Next
        TotalSize = Round(TotalSize, 2)

        totalPut = FileCount
        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
        Dim c
        Dim FileNum
        FileNum = 0
        TotalSize_Page = 0
        PageUnit = 1
        
        'If totalPut > 0 Then
            'Response.Write "<br>"
            'Call showpage2(strFileName, totalPut, MaxPerPage, True)
            'Response.Write "<br>"
        'End If

        Response.Write "<table width='100%' border='0' cellpadding='0' cellspacing='0'>" & vbCrLf
        Response.Write "  <tr>" & vbCrLf
        Response.Write "     <td>" & vbCrLf
        Response.Write "<table width='100%' border='0' align='center' cellpadding='0' cellspacing='3' class='border'>" & vbCrLf
        Response.Write "  <tr class='tdbg'>" & vbCrLf

        For i = 0 To FileCount
            StrFileType = LCase(theFiles(i)(1))
            If FoundInArr(UpFileType, StrFileType, "|") = True Then
                c = c + 1
            End If
            If FileNum >= MaxPerPage Then
                Exit For
            ElseIf c > MaxPerPage * (CurrentPage - 1) Then
                If FoundInArr(UpFileType, StrFileType, "|") = True Then
                    Response.Write "   <td>" & vbCrLf
                    Response.Write "      <table width='100%' height='100%' border='0' cellpadding='0' cellspacing='2'>" & vbCrLf
                    Response.Write "        <tr>" & vbCrLf
                    Response.Write "          <td colspan='2' align='center'>" & vbCrLf
                    If DialogType = "soft" Or DialogType = "photo" Or DialogType = "productthumb" Then
                        Response.Write "<a href='#' onClick=""window.returnValue='" & strPath3 & theFiles(i)(0) & "|" & Round(theFiles(i)(2) / 1024) & "';window.close();"">"
                    Else
                        If ModuleType = 1 Or ModuleType = 5 Or ModuleType = 6 Or ModuleType = 7 Then
                            Response.Write "<a href='#' onClick=""window.returnValue='" & strPath & "/" & theFiles(i)(0) & "|" & Round(theFiles(i)(2) / 1024) & "';window.close();"">"
                        Else
                            Response.Write "<a href='#' onClick=""window.returnValue='" & strPath2 & "/" & theFiles(i)(0) & "|" & Round(theFiles(i)(2) / 1024) & "';window.close();"">"
                        End If
                    End If
                    Select Case StrFileType
                    Case "gif", "jpg", "jpeg", "jpe", "bmp", "png"
                        Response.Write "<img src='" & strPath & "/" & theFiles(i)(0) & "' width='140' height='100' border='0' title='点此图片将返回，点下面的文件名将查看原始文件！'></a>"
                    Case "swf"
                        Response.Write "<img src='images/filetype_flash.gif' width='140' height='100' border='0'></a>"
                    Case "wmv", "avi", "asf", "mpg"
                        Response.Write "<img src='images/filetype_media.gif' width='140' height='100' border='0'></a>"
                    Case "rm", "ra", "ram"
                        Response.Write "<img src='images/filetype_rm.gif' width='140' height='100' border='0'></a>"
                    Case "rar"
                        Response.Write "<img src='images/filetype_rar.gif' width='140' height='100' border='0'></a>"
                    Case "zip"
                        Response.Write "<img src='images/filetype_zip.gif' width='140' height='100' border='0'></a>"
                    Case "exe"
                        Response.Write "<img src='images/filetype_exe.gif' width='140' height='100' border='0'></a>"
                    Case Else
                        Response.Write "<img src='images/filetype_other.gif' width='140' height='100' border='0'></a>"
                    End Select

                    Response.Write "          </td></tr>" & vbCrLf
                    Response.Write "        <tr>" & vbCrLf
                    Response.Write "          <td align='right'>文 件 名：</td>" & vbCrLf
                    Response.Write "          <td><a href='" & strPath & "/" & theFiles(i)(0) & "' target='_blank'>" & theFiles(i)(0) & "</a></td>" & vbCrLf
                    Response.Write "        </tr>" & vbCrLf
                    Response.Write "        <tr>" & vbCrLf
                    Response.Write "          <td align='right'>文件大小：</td>" & vbCrLf
                    Response.Write "          <td>" & Round(theFiles(i)(2) / 1024) & " KB</td>" & vbCrLf
                    Response.Write "        </tr>" & vbCrLf
                    Response.Write "        <tr>" & vbCrLf
                    Response.Write "          <td align='right'>文件类型：</td>" & vbCrLf
                    Response.Write "          <td>" & theFiles(i)(3) & "</td>" & vbCrLf
                    Response.Write "        </tr>" & vbCrLf
                    Response.Write "        <tr>" & vbCrLf
                    Response.Write "          <td align='right'>修改时间：</td>" & vbCrLf
                    Response.Write "          <td>" & theFiles(i)(5) & "</td>" & vbCrLf
                    Response.Write "        </tr>" & vbCrLf
                    Response.Write "      </table></td>" & vbCrLf
                
                    FileNum = FileNum + 1
                    If FileNum Mod 4 = 0 Then Response.Write "</td><tr class='tdbg'>"
                    If PageUnit = 1 Then
                        TotalSize_Page = TotalSize_Page + theFiles(i)(2) / 1024
                        strPageUnit = "KB"
                    ElseIf PageUnit = 2 Then
                        TotalSize_Page = TotalSize_Page + theFiles(i)(2) / 1024 / 1024
                        strPageUnit = "MB"
                    ElseIf PageUnit = 3 Then
                        TotalSize_Page = TotalSize_Page + theFiles(i)(2) / 1024 / 1024 / 1024
                        strPageUnit = "GB"
                    End If
                    If TotalSize_Page > 1024 Then
                        TotalSize_Page = TotalSize_Page / 1024
                        PageUnit = PageUnit + 1
                    End If
                End If
            End If
        Next
        TotalSize_Page = Round(TotalSize_Page, 2)

        Response.Write "            </tr>" & vbCrLf
        Response.Write "        </table> " & vbCrLf
        Response.Write "     </td>" & vbCrLf
        Response.Write "  </tr>" & vbCrLf
        Response.Write "</table>" & vbCrLf
                
        Response.Write "<input type='hidden' name='priorsort' value='" & priorSort & "'>" & vbCrLf
        Response.Write "<input type='hidden' name='sortby' value='-1'>" & vbCrLf
        Response.Write "    </form>" & vbCrLf
        showpage2 strFileName, totalPut, MaxPerPage, True
        Response.Write "<br><div align='center'>本页共显示 <b>" & FileNum & "</b> 个文件，占用 <b>" & TotalSize_Page & "</b> " & strPageUnit & "</div>"
        Response.Write "</body></html>"
    End If
End Sub


Sub ShowFileDetail()
    If SearchKeyword <> "" Then
        Response.Write "<br>&gt;&gt;&nbsp;当前目录文件名中含有的 <font color='red'>" & SearchKeyword & "</font> 文件"
    Else
        Response.Write "<br>"
    End If
    Response.Write "<table width='100%' border='0' cellspacing='0' cellpadding='0' ><tr><td>当前目录：" & RootDir
    If ParentDir <> "" Then
        Response.Write "/" & ParentDir
    End If
    If CurrentDir <> "" Then
        Response.Write "/" & CurrentDir & "</td><td align='right'>"
        If ParentDir <> "" Then
            If InStrRev(ParentDir, "/") > 0 Then
                Response.Write "<a href='" & strFileName & "&ParentDir=" & Left(ParentDir, InStrRev(ParentDir, "/") - 1)
                Response.Write "&CurrentDir=" & Mid(ParentDir, InStrRev(ParentDir, "/") + 1)
            Else
                Response.Write "<a href='" & strFileName & "&ParentDir=&CurrentDir=" & ParentDir
            End If
        Else
            Response.Write "<a href='" & strFileName
        End If
        Response.Write "'>↑返回上级目录</a>"
    End If
    Response.Write "</td></tr></table>" & vbCrLf

    Response.Write "    <table width='100%' border='0' cellspacing='0' cellpadding='0'>" & vbCrLf

    Response.Write "    <tr height='18'>" & vbCrLf
    Response.Write "    <td class='title0' onmouseout=""this.className='title0'"" onmouseover=""this.className='tdbgmouseover1'"">&nbsp;&nbsp;<a href=""javascript:reSort(0);"">文件名&nbsp;&nbsp;<img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort0'></a></td>" & vbCrLf
    Response.Write "    <td width='80' align=""right"" class='title0' onmouseout=""this.className='title0'"" onmouseover=""this.className='tdbgmouseover1'""><a href=""javascript:reSort(2);"">大小&nbsp;<img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort2'></a>&nbsp;</td>" & vbCrLf
    Response.Write "    <td width='180' class='title0' onmouseout=""this.className='title0'"" onmouseover=""this.className='tdbgmouseover1'"">&nbsp;<a href=""javascript:reSort(3);"">类型&nbsp;&nbsp;<img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort3'></a></td>" & vbCrLf
    Response.Write "    <td width='140' class='title0' onmouseout=""this.className='title0'"" onmouseover=""this.className='tdbgmouseover1'""><a href=""javascript:reSort(5);"">上次修改时间&nbsp;&nbsp;<img src='Images/Calendar_Down.gif' border='0' style='display:none' id='Sort5'></a></td>" & vbCrLf

    Response.Write "    </tr>" & vbCrLf