Question

asp遍历文件后，如何分页显示？

我写好了一段asp遍历txt的代码，请问如何继续写，让遍历出来的文件分成[1][2]...的页数
<%sub publish(path)
dim fs, folder, file, item,FSO,mypath
mypath = Server.MapPath("\publish")
set fs = CreateObject("Scripting.FileSystemObject")
set folder = fs.GetFolder(mypath)
for each item in folder.Files
%>
<a href="readwrite.asp" title="点击键入"><%response.write (item.Name)%></a><br>
<%
else
end if
next
请大神帮帮忙，添加一下分页的代码。谢谢啦

• 你的回答被采纳后将获得：
• 系统奖励15（财富值+成长值）+难题奖励30（财富值+成长值）

Answer 1

只能提供下思路，代码自己码
我觉得可以用循环的方式累计文件数，把文件名存入数组，然後再根据文件数分页输出，这样的方式在文件少的话还能勉强使用，文件多的话肯定效率太低了，还有一种办法是你生成文件的时候把文件名插入到数据库里面，这样每次读取直接从数据库读取就好了。

追问

就是说，把所有这里的文件导入acc数据库中，列表直接是读取数据库中的数据，这样可以做到 处理大量的文件，同时占更少的资源么?

追答

不是把文件，我的意思是说文件名