繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 将服务器端文件夹下的文件，按文件建立的时间先后排序
- ASP
- 货币大写转换函数的更新
- 断开的数据库连接的一个例子
- 本函数计算两个时间的差
- 一个防止外部数据提交的脚本
- 一个取图片尺寸的类，支持jpg,gif,png
- 我在桌面上删帖子
- IIS5.0中EXECUTE的巧用
- 一个简单的SQL语句执行器
- ip限制函数
- 对一篇很长的文章做到完美的分页输出
- ADO连接数据库字符串大全（VP,Excel,文本,Sybase,.NET等)
- 不用询问关闭一个独立的窗口代码
- 如何正确显示数据库中的图片
- 精彩OUTLOOK 2000组件放送
- 基于WEB系统的多语言支持--ASP国际化多语言详细方案
- 将你的网站设置为客户的信任站点--WSH方案
- 优化Web数据库页面
- 浅谈 ASP 程序的编程与优化
- 认识和优化 connection 对象
- 多个域名绑定一个空间互不影响
ASP 中的 将服务器端文件夹下的文件，按文件建立的时间先后排序
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 49 ::
收藏到网摘: n/a
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
%>
评论 (0) All
