Tc711Com提示：ASP 直接读取文件夹内文件，可以分页浏览，可以排序，可以删除  ,亲测可用,这是处理好的代码.

<title>文件管理器</title>
<% '711网络亲测可用，QQ：187367103
Response.Write "<table cellspacing=1 cellpadding=5 align=center bgcolor=#cccccc width='98%' class=wenjian>"
Response.Write "<tr bgcolor=#Efefef>"
Response.Write " <td>ID</td>"
Response.Write " <td>文件地址</td>"
Response.Write " <td>文件大小</td>"
Response.Write " <td>文件类型</td>"
Response.Write " <td>上传日期</td>"
Response.Write " <td>操作</td>"
Response.Write "</tr>"

tc711up="../upload/"     '修改成你对应的文件夹目录.

    FoldPath=Server.MapPath(""&tc711up&"")
    set fso = Server.CreateObject("Scripting.FileSystemObject")

    ''得到目录下所有文件的信息集合
    set fsoFolder=fso.GetFolder(FoldPath)
    Set GetFiles =fsoFolder.files

    ''定义数组,和变量
    Dim FileArr(),i,p,Max,OrderBy,Total,MoveAddRessStart,MoveAddRessEnd,PCount,PFSize,APFSize
    Max = 20''默认的显示条数
    orderBy="DESC"''排序方式,DESC倒序,ASC正序
       

    ''得到大于0的页码
    P = Request.QueryString("P")
    IF P <> "" Then
        If IsNumeric(P) Then
            IF Cint(P) > 0 Then
                P = Cint(P)
            Else
                P = 1
            End If
        Else
            P = 1
        End IF
    Else
        P = 1
    End IF

    ''定义了文件总数的数组,0为文件名,1为日期时间,2为文件大小
    ReDim FileArr(Getfiles.count-1,3)
    i = 0
    For Each f In GetFiles
        IF FilterName(Lcase(f.Name)) Then
            
            ''取出文件名
            FileArr(i,0) = f.Name
            
            ''取出文件建立时间
            FileArr(i,1) = f.DateCreated
            FileArr(i,2) = f.Size
            FileArr(i,3) = f.Type
            APFSize=APFSize+f.Size
            i = i + 1
        End IF
    Next

    ''得到总页数
    Total=i
    IF Total Mod Max = 0 Then
        PCount = ToTal / Max
    Else
        PCount = Total \ Max + 1
    End IF
    IF P > PCount Then P = PCount

    ''对文件进行排序按日期，OrderBy等于DESC倒序，OrderBy等于ASC正序
    For One = 0 To i - 1
        For Two = 0 To i - 1
            IF Ucase(OrderBy) = "DESC" Then
                orderByConditions=(CDate(FileArr(One,1)) > CDate(FileArr(Two,1)))
            ElseIF Ucase(OrderBy) = "ASC" Then
                orderByConditions=(CDate(FileArr(One,1)) < CDate(FileArr(Two,1)))
            End IF
            IF orderByConditions Then
                TempName = FileArr(Two,0)
                TempTime = FileArr(Two,1)
                TempSize = FileArr(Two,2)
                TempType = FileArr(Two,3)
                FileArr(Two,0) = FileArr(One,0)
                FileArr(Two,1) = FileArr(One,1)
                FileArr(Two,2) = FileArr(One,2)
                FileArr(Two,3) = FileArr(One,3)
                FileArr(One,0) = TempName
                FileArr(One,1) = TempTime
                FileArr(One,2) = TempSize
                FileArr(One,3) = TempType
            End IF
        Next
    Next
    
    
    ''得到当前页的文件位置,开始地址如果为第一页则其实位置是0，因为数组的下限是0
    MoveAddRessStart = P * Max - Max
    
    IF (i-1-Max) > MoveAddRessStart Then
        MoveAddRessEnd=MoveAddRessStart+Max -1
    Else
        MoveAddRessEnd=(i-1)
    End IF
    ''Response.write Total

    ''显示列表
    For j = MoveAddRessStart To MoveAddRessEnd
        ''Response.Write FileArr(j,2)&filearr(j,0):response.end
        Response.Write "<tr><td bgcolor=#ffffff>" & j+1 & "</td><td bgcolor=#ffffff><a   href="&tc711up&""   &   FileArr(j,0)   &   "   target=_blank><IMG SRC="""&tc711up&""&FileArr(j,0)&""" border=0 width=100> <br>"&FileArr(j,0)&"</a></td><td bgcolor=#ffffff>" & SizeTo(FileArr(j,2)) & "</td><td bgcolor=#ffffff>" & FileArr(j,3) & "</td><td bgcolor=#ffffff>"&FileArr(j,1)&"</td><td bgcolor=#ffffff><a href='?action=del&upfilename="&FileArr(j,0)&"&p="&request("p")&"' onclick=""return confirm('确定要删除此文件吗？删除后将不能恢复！')"">删除</a></td></tr>"
        PFSize = PFSize + FileArr(j,2)
    Next

    Response.Write "<tr><td bgcolor=#ffffff colspan=6 align=left>"
    Response.Write "当前页有 <font color='#ff0000'>" & MoveAddRessEnd-MoveAddRessStart+1 & "</font> 个文件 "
    Response.Write "占用空间 <font color='#ff0000'>" & SizeTo(PFSize) & " &nbsp;&nbsp;&nbsp;</font> "
    IF P > 1 Then
        Response.Write "<a href=?p=1>首页</a> <a href=?p="&p-1&">上一页</a> "
    Else
        Response.Write "首页 上一页 "
    End IF
    IF P < PCount Then
        Response.Write "<a href=?p="&P+1&">下一页</a> <a href=?p="&PCount&">尾页</a> "
    Else
        Response.Write "下一页 尾页 "
    End IF
    Response.Write P&"/"&PCount&"页 "
    Response.Write " &nbsp;&nbsp;&nbsp;总共上传 <font color='#ff0000'>"&Total&"</font> 个文件 "
    Response.Write "共 <font color='#ff0000'>" & SizeTo(APFSize) & "</font> "
    Response.Write "</td></tr>"
    Response.WRite "</table>"

    ''过滤文件扩展名
    Function FilterName(FileName)
        Dim Filter_Expansion_Name,ExpansionName
        Filter_Expansion_Name = "|rar|jpg|bmp|gif|doc|xls|ppt|"''过滤取得文件夹中的文件类型，如果只填写htm则只取htm文件，注意文件本身不会出现在这个表中，但会计算在总数中
        ''得到扩展名
        For Tp= Len(FileName) To 1 Step -1
            IF Mid(FileName,Tp,1) = "." Then
                Exit For
            Else
                ExpansionName = Mid(FileName,Tp,1) & ExpansionName
            End IF
        Next
        IF Instr(1,Filter_Expansion_Name,"|" & ExpansionName & "|")>0 Then
            FilterName=True
        Else
            FilterName=False
        End If
    End Function

    ''转换文件大小转换
    Function SizeTo(PFSize)
        SizeTo=0
        IF PFSize>(1024*1024*1024) And (PFSize/1024/1024/1024)>0 Then
            ''GB转换
            SizeTo=FormatNumber(PFSize/1024/1024/1024,2)&"GB"
        ElseIF PFSize>(1024*1024) And (PFSize/1024/1024)>0 Then
            ''MB转换
            SizeTo=FormatNumber(PFSize/1024/1024,2)&"MB"
        ElseIF PFSize>1024 And (PFSize/1024)>0 Then
            ''KB转换
            SizeTo=FormatNumber(PFSize/1024,2)&"KB"
        ElseIF PFSize>0 Then
            ''byte转换
            SizeTo=FormatNumber(PFsize,2)&"B"
        Else
            SizeTo=0&"B"
        End IF
    End Function

sub delfile(upfilename)
Dim fso
Dim   objFSO         '声明一个名称为   objFSO   的变量以存放对象实例  
      Set   objFSO   =   Server.CreateObject("Scripting.FileSystemObject")  
        If   objFSO.FileExists(Server.MapPath(""&tc711up&""&upfilename))   Then  
            objFSO.DeleteFile   Server.MapPath(""&tc711up&""&upfilename),True   
        End   If  
      Set   objFSO   =   Nothing             '释放   FileSystemObject   对象实例内存空间
End sub
%>   <%'删除图片文件代码

if request("action")="del" then
if request("upfilename")<>"" then
call delfile(request("upfilename"))
end if
response.Redirect("?p="&request("p")&"")
end if
%>

附件下载:  http://bbs.tc711.com/thread-3684-1-1.html