发送文章__当百网

文章·资料	电脑软件	手机软件	网站源码
电脑·手机·网络学习话题娱乐故事文化·历史国学典籍法律法规	操作系统网络办公·文件音频视频图形图像硬件·驱动程序行业教学学习编程游戏	安卓苹果鸿蒙其他	ASP ASP.NET JSP PHP HTML·CSS·JavaScript

本站搜索

发送文章

ASP(FSO)文件列表排序

〖评论()〗〖留言〗〖收藏〗

收信地址

填写收信人的电子邮箱

邮件主题

填写邮件主题

邮件内容

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 %<br /><br />文章网址：<a href="https://dangbai.cn/Article.asp?ID=10002068" target="_blank">https://dangbai.cn/Article.asp?ID=10002068</a>

填写邮件内容

发信地址

填写发信人的电子邮箱

邮件签名

填写邮件签名

验证码

填写验证码，单击刷新验证码

发送协议

·欢迎使用本站在线文章发送系统。
·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。
·如果收信人地址或其服务器出现错误，可能无法成功发送。
·如果有什么问题，或者意见建议，请联系［网站管理员］。

当百网

本站使用【啊估文章软件站】网站系统〖网站管理员留言簿〗