本 站 搜 索

发 送 文 章 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> 填写邮件内容 发信地址 填写发信人的电子邮箱 邮件签名 填写邮件签名  验证码   填写验证码，单击刷新验证码    程序执行中，请稍候... 〖文章发送协议〗 ·欢迎使用本站在线文章发送系统。 ·不得使用本站在线发送邮件系统发送垃圾邮件、广告邮件。 ·如果收信人地址或其服务器出现错误，可能无法成功发送。 ·如果有什么问题，或者意见建议，请联系［网站管理员］。