收藏本站腾讯微博新浪微博

经典论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

蓝色理想 最新研发动态 网站开通淘帖功能 - 蓝色理想插件 论坛内容导读一页看论坛 - 给官方提建议

论坛活动及任务 地图和邮件任务 请多用悬赏提问 热夏来袭,选一款蓝色理想的个性T恤吧!

手机上论坛,使用APP获得更好体验 急需前端攻城狮,获得内部推荐机会 论坛开通淘帖功能,收藏终于可以分类了!

搜索
查看: 4296|回复: 3

[asp] fso中如何控制列出的文件条数,例如只列出4条

[复制链接]
发表于 2017-4-1 10:48:47 | 显示全部楼层 |阅读模式
filepath="/mp4/"
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fileobj = fso.GetFolder(server.mappath(filepath))
Set fsofolders = fileobj.SubFolders
Set fsofile = fileobj.Files
For Each file in fsofile
   response.Write("<div class='filelist'><ul><li>"&file.name&"</li><li>"&file.size&"</li><li>"&file.datelastmodified&"</li></ul></div>")
Next
发表于 2017-6-13 19:58:34 | 显示全部楼层
  1. Dim J : J= 0
  2. For Each file in fsofile
  3.    J = J + 1
  4.    response.Write("<div class='filelist'><ul><li>"&file.name&"</li><li>"&file.size&"</li><li>"&file.datelastmodified&"</li></ul></div>")
  5.    If J >= 4 Then Exit For
  6. Next
复制代码

很久没有写了,不知道对不对
回复 支持 反对

使用道具 举报

发表于 2017-6-26 13:38:23 | 显示全部楼层
楼主所在的公司仍在使用asp吗?
现在我的asp也都忘了,盛飞都还能写。。
回复 支持 反对

使用道具 举报

发表于 2017-8-9 09:39:19 来自手机 | 显示全部楼层
99love 发表于 2017-6-26 13:38
楼主所在的公司仍在使用asp吗?
现在我的asp也都忘了,盛飞都还能写。。

我也忘的差不多了,我的工作不是这个行业,一直都是业余写,这几年因为家里有小孩,更少写代码了(无法专心),前两天有人找我,试了下php也快忘了
回复 支持 反对

使用道具 举报

发表于 2017-10-20 17:08:08 | 显示全部楼层
都忘记得差不多了,目前想找碗饭吃,重归经典
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|小黑屋|Archiver|手机版|blueidea.com ( 湘ICP备12001430号 )  

GMT+8, 2020-9-23 15:39 , Processed in 0.125658 second(s), 7 queries , Gzip On, Memcache On.

Powered by Discuz! X3.2 Licensed

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表