首  页
站长信箱
868搜索
网站登录
免费计数器
免费留言本
IP来源查询
网站技术教程
网站流量统计
文章探索:   分类:    关键字:  
    什么?你还在找兼职?上兼客吧,现在兼客吧平台太火了,知名度和诚信度也很高,注册就送0.5元现金,满3元就能提现,马上到账了!最低3元就能提现,大家可以注册下试试!注册地址:http://www.jiankeba.com/computeryc1688
  + 栏目导航
  + 相关文章
ASP导出Excel数据的四种方法
ASP漏洞及安全建议来源
XMLHTTP.readyState的五种状态
xmlhttp status 各类值说明
Asp中ByVal传值与ByRef传值的问..
ASP技巧:判断远程图片是否存在
asp中有关字符编码转换的几个函..
绝妙的asp生成静态页面html函数
Asp计算页面执行时间
一个简单的用存储过程分页
将asp页面转换成htm页面
ASP网站漏洞解析及黑客入侵防范..
URL编码与SQL注入
几种常用排序算法(asp)
ASP调用带参数存储过程的几种方..
实用的ASP连接数据库的函数
ASP如何获取真实IP地址
ASP中怎么实现SQL数据库备份、..
判断Cookies是否处于开启状态
怎样才能将服务器端文件夹下的..
几行Asp代码实现防止表单重复提..
用ASP设计网站在线人数统计程序
asp论坛在线人数统计研究
如何用ASP远程在数据库中创建Ta..
用ASP调用SQL Server的视图和存..
Asp与XML的关系
ASP读取EXCEL
在ASP中使用Oracle数据库技巧
一个通过web.Mail发送邮件的类
几种打开记录集方式的比较

技术教程 -> ASP教程 ->  
怎样才能将服务器端文件夹下的文件,按文件建立的时间先后排序?
来源:转载   人气:3929   录入时间:2006/7/2


    
   不使用数据库,怎样才能将服务器端文件夹下的文件,按文件建立的时间先后排序?现在已经可以列出所有的文件,但不能排序
   
   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
   %>
   



| 网站转让 | 站长信箱 | 网站登录 | 技术教程 | 免费计数器 | 免费留言本 | 868流量统计 | 好帮手网站营销 |
地址:广东省阳江市  联系电话:13725641179 杨先生
Copyright 2004-2020 868资源网- 版权所有    粤ICP备05007330号