文章探索:   分类:    关键字:  
  + 栏目导航
  + 相关文章
asp中有关字符编码转换的几个函数
绝妙的asp生成静态页面html函数
Asp计算页面执行时间
一个简单的用存储过程分页
将asp页面转换成htm页面
ASP网站漏洞解析及黑客入侵防范方法
URL编码与SQL注入
几种常用排序算法(asp)
ASP调用带参数存储过程的几种方式
实用的ASP连接数据库的函数
ASP如何获取真实IP地址
ASP中怎么实现SQL数据库备份、恢复
判断Cookies是否处于开启状态
怎样才能将服务器端文件夹下的文件,..
几行Asp代码实现防止表单重复提交
用ASP设计网站在线人数统计程序
asp论坛在线人数统计研究
如何用ASP远程在数据库中创建Table
用ASP调用SQL Server的视图和存储过程
Asp与XML的关系
ASP读取EXCEL
在ASP中使用Oracle数据库技巧
一个通过web.Mail发送邮件的类
几种打开记录集方式的比较
购物车范例(购物车页面 )
如何使用FSO搜索硬盘文件
GB码和BIG5码的互换技术
用ASP开发WEB日期选择器
一个投票系统的源程序(coveryourasp.c..
列出服务器上的打印机


技术教程 -> ASP教程 ->  
怎样才能将服务器端文件夹下的文件,按文件建立的时间先后排序?
来源:转载   人气:1669   录入时间:2007-11-8
    
   不使用数据库,怎样才能将服务器端文件夹下的文件,按文件建立的时间先后排序?现在已经可以列出所有的文件,但不能排序
   
   dir_name="abc"
   Set fso = CreateObject("Scripting.FileSystemObject")
   set self_path = fso.getfile(server.mappath(Request.ServerVariables("PATH_INFO")))
   files_path=self_path.ParentFolder.ParentFolder
   folderspec=files_path+"\"+dir_name
   Set f = fso.GetFolder(folderspec)
   
   Set fc = f.Files
   For Each f1 in fc
   response.write f1.name&"<br>"
   next
   ---------------------------------------------------------------
   
   <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
   <%
   Function getFileInfo(filespec)'获取文件名和创建(修改)时间
   Dim fs, f
   dim s(1)
   Set fs = CreateObject("Scripting.FileSystemObject")
   Set f = fs.GetFile(filespec)
   s(0) = "文件名" & f.Name & "<br>创建时间: " & f.DateCreated & "<br>"
   s(1)=f.DateCreated
   getFileInfo=s
   End Function
   
   Sub compositor(s0,s1)'冒泡排序
   dim j,x
   j=0
   For i=0 to UBound(s1)
    For j=0 to UBound(s1)-j
    If Cint(Cdate(s1(i))-Cdate(s1(j)))>0 Then
    x=s1(i)
    s1(i)=s1(j)
    s1(j)=x
    x=s0(i)
    s0(i)=s0(j)
    s0(j)=x
    End If
    Next
   Next
   for i=0 to UBound(s0)
    response.Write(s0(i))
   next
   End Sub
   
   dir_name="abc"
   Set fso = CreateObject("Scripting.FileSystemObject")
   set self_path = fso.getfile(server.mappath(Request.ServerVariables("PATH_INFO")))
   files_path=self_path.ParentFolder.ParentFolder
   folderspec=files_path&"\"+dir_name
   Set f = fso.GetFolder(folderspec)
   
   Set fc = f.Files
   dim myFile(),fileCreateDate()
   i=0
   For Each f1 in fc
   redim preserve myFile(i)
    redim preserve fileCreateDate(i)
   myFile(i)=getFileInfo(files_path&"\"+dir_name&"\"&f1.name)(0)
   fileCreateDate(i)=cdate(getFileInfo(files_path&"\"+dir_name&"\"&f1.name)(1))
   i=i+1
   next
   compositor myFile,fileCreateDate
   %>
   




Copyright(C)2007-2021 广州市佳沛数码科技有限公司 版权所有
公司地址: 广州市荔湾区东漖北路560号511室
电话:020-81803473 传真:020-81544987