您正在使用IPV4(34.230.9.187)访问本站 您本次共访问本站 1 次
 用户名: 密 码: 验证码:     用QQ登录本站
首页 软件 编程 笑话 知识 公告 台风 日历 计算器 行情 简化版
文明驾车我带头,文明行路我带头,礼貌让座我带头      

【腾讯云】云产品限时秒杀,爆款1核2G云服务器,首年74元      
[公益] 节省一分零钱 献出一份爱心 温暖世间真情      
2022年 情人节 27
2022年 元宵节 28
2023年 元 旦 348
2022年 春 节 14
 
  • 本类新增
    本类热门文章
    您现在的位置:首页 >> ASP/ASP.net >> 内容
    通过数组给您的文件排序
    内容摘要: HTMLHEADTITLE文件排序演示/TITLE/HEADBODY%'设定一个演示目录,:)CONSTDIRECTORY='/''用常数定义排序方式CONSTFILE_NAME=0'按照名字排序……依次类推CONSTFILE_EXT=1CONSTFILE_TYPE=2CONSTFILE_SIZE=3CONSTFILE_CREATED=4CONSTFILE_......
    <HTML>

    <HEAD>

    <TITLE>文件排序演示</TITLE>

    </HEAD>

    <BODY>

    <%

    '设定一个演示目录,:)

    CONSTDIRECTORY="/"

    '用常数定义排序方式

    CONSTFILE_NAME=0'按照名字排序……依次类推

    CONSTFILE_EXT=1

    CONSTFILE_TYPE=2

    CONSTFILE_SIZE=3

    CONSTFILE_CREATED=4

    CONSTFILE_MODIFIED=5

    CONSTFILE_ACCESSED=6

    '获得排序命令,默认为按照名字排序

    req=Request("sortBy")

    IfLen(req)<1ThensortBy=0ElsesortBy=CInt(req)

    req=Request("priorSort")

    IfLen(req)<1ThenpriorSort=-1ElsepriorSort=CInt(req)

    '设置倒序

    IfsortBy=priorSortThen

    reverse=true

    priorSort=-1

    Else

    reverse=false

    priorSort=sortBy

    EndIf

    '接下来开始我们真正的代码了。。。

    path=Server.MapPath(DIRECTORY)

    Setfso=CreateObject("Scripting.FileSystemObject")

    SettheCurrentFolder=fso.GetFolder(path)

    SetcurFiles=theCurrentFolder.Files

    '给这些文件做一个循环

    DimtheFiles()

    ReDimtheFiles(500)'我随便定的一个大小

    currentSlot=-1'startbeforefirstslot

    '我们将文件的所有相关信息放到数组里面

    ForEachfileItemincurFiles

    fname=fileItem.Name

    fext=InStrRev(fname,".")

    Iffext<1Thenfext=""Elsefext=Mid(fname,fext+1)

    ftype=fileItem.Type

    fsize=fileItem.Size

    fcreate=fileItem.DateCreated

    fmod=fileItem.DateLastModified

    faccess=fileItem.DateLastAccessed

    currentSlot=currentSlot+1

    IfcurrentSlot>UBound(theFiles)Then

    ReDimPreservetheFiles(currentSlot+99)

    EndIf

    '放到数组里

    theFiles(currentSlot)=Array(fname,fext,ftype,fsize,fcreate,fmod,faccess)

    Next

    '现在都在数组里了,开始下一步

    fileCount=currentSlot'文件数量

    ReDimPreservetheFiles(currentSlot)

    '排序

    '(8表示string)

    IfVarType(theFiles(0)(sortBy))=8Then

    IfreverseThenkind=1Elsekind=2'给字符排序

    Else

    IfreverseThenkind=3Elsekind=4'数字、时间。。。

    EndIf

    Fori=fileCountTO0Step-1

    minmax=theFiles(0)(sortBy)

    minmaxSlot=0

    Forj=1Toi

    SelectCasekind

    Case1

    mark=(strComp(theFiles(j)(sortBy),minmax,vbTextCompare)<0)

    Case2

    mark=(strComp(theFiles(j)(sortBy),minmax,vbTextCompare)>0)

    Case3

    mark=(theFiles(j)(sortBy)<minmax)

    Case4

    mark=(theFiles(j)(sortBy)>minmax)

    EndSelect

    IfmarkThen

    minmax=theFiles(j)(sortBy)

    minmaxSlot=j

    EndIf

    Next

    IfminmaxSlot<>iThen

    temp=theFiles(minmaxSlot)

    theFiles(minmaxSlot)=theFiles(i)

    theFiles(i)=temp

    EndIf

    Next

    '结束

    %>

    <FORMName="doSort"Method="Get">

    <INPUTType=HiddenName=priorSortValue="<%=priorSort%>">

    <INPUTType=HiddenName=sortByValue="-1">

    </FORM>

    <SCRIPTLanguage="JavaScript">

    functionreSort(which)

    {

    document.doSort.sortBy.value=which;

    document.doSort.submit();

    }

    </SCRIPT>

    <CENTER>

    <FONTSize="+2">

    显示<%=(fileCount+1)%>该目录下的文件<%=path%>

    </FONT>

    <P>

    单击排序,再点一次反向排序

    <P>

    <TABLEBorder=1CellPadding=3>

    <TR>

    <TH><AHREF="javascript:reSort(0);">文件名</A></TH>

    <TH><AHREF="javascript:reSort(1);">扩展名</A></TH>

    <TH><AHREF="javascript:reSort(2);">类型</A></TH>

    <TH><AHREF="javascript:reSort(3);">大小</A></TH>

    <TH><AHREF="javascript:reSort(4);">建立时间</A></TH>

    <TH><AHREF="javascript:reSort(5);">上次修改时间</A></TH>

    <TH><AHREF="javascript:reSort(6);">上次存取时间</A></TH>

    </TR>

    <%

    Fori=0TofileCount

    Response.Write"<TR>"&vbNewLine

    Forj=0ToUBound(theFiles(i))

    Response.Write"<TD>"&theFiles(i)(j)&"</TD>"&vbNewLine

    Next

    Response.Write"</TR>"&vbNewLine

    Next

    %>

    </TABLE>

    </BODY>

    </HTML>

    上一篇:利用ASP发送和接收XML数据的处理方法 下一篇:用asp自动解析网页中的图片地址
    发布日期:2021/12/27
    手机扫二维码直达本页
    发布时间:12:37:53
    点击:201
    录入:齐天大圣
    相关文章
    Baidu
    YiJiaCMS 6.1.0.10988 Build 21.12.28(MSSQL) 闽ICP备05000814号-1
    本空间由腾讯云(轻量应用服务器)提供,百度云加速提供加速防护

    Copyright©2000-2022