以前没有遇到过的分页问题！！！

[chang1216]

set objfilesys=server.createobject("Scripting.filesystemobject")
set myfolder=objfilesys.getfolder("F:\cyc")
set myfiles=myfolder.files
然后
<% for each myfile in myfiles %>
<tr onmouseover="bgColor='#99ccff'" onmouseout="bgColor=''">
<td align="center"> <a href="cyc/<%=myfile.name%>"><%=myfile.name%></a>
</td >
</tr>
<%next%>
我怎么对这个记录集进行分页 请教大家 希望大家帮忙!!!

[chang1216]

up一下 帮忙！！！！

[lang11zi]

up

[thor]

一个笨办法：
程序里设置一个ID号，然后先搜索文件总数，每一页显示10个。for each的时候根据文件名排列，然后使用id=0时，前10个，id=1，接着10个，就这样。

[king2003]

正如楼上所说

[chang1216]

说的具体点好吗？ 谢谢 有点不明白 对象不支持 count 和eof属性

[wanghr100]

写了一个.

<% @Language="JavaScript" %>
<%
function GetFilesPath(sfolderpath)
{
/*
*--------------- GetFilesPath(sfolderpath) -----------------
* GetFilesPath(sfilepath)
* 功能:遍历sfolderpath目录下的所有文件.返回数组.存储文件路径.
* 参数:sfolderpath,字符串,目录绝对路径.
* 实例:Response.Write(GetFilesPath(Server.MapPath("xml")))
* update:2004-5-12 8:33
* author:wanghr100(灰豆宝宝.net)
*--------------- GetFilesPath(sfolderpath) -----------------
*/
var sFilePath = new Array();
var fso = Server.CreateObject("Scripting.FileSystemObject");
var oFolder = fso.GetFolder(sfolderpath);
var oSubFolders = oFolder.SubFolders;
var oFiles = oFolder.Files;
icount = oFiles.Count;

var enmFiles = new Enumerator(oFiles);
for(;!enmFiles.atEnd();enmFiles.moveNext())
{
sFilePath[sFilePath.length] = enmFiles.item().Path
}

var enmFolders = new Enumerator(oSubFolders);
for(;!enmFolders.atEnd();enmFolders.moveNext())
{
/* Old 数组成了多维. */
//sFilePath[sFilePath.length]=GetFilesPath(enmFolders.item().Path);
/* Add 2004-5-17 11:09 只为一维数组 */
sFilePath=sFilePath.concat(GetFilesPath(enmFolders.item().Path));
}

return sFilePath;

}
var records = GetFilesPath(Server.MapPath("xml"))
var rs = new Object();
rs.PageSize = 10; //每页记录数.
rs.PageCount = parseInt(records.length/rs.PageSize)+1
page = Request("page");
if(String(page)=="undefined")
{
page = 1;
rs.AbsolutePage = 1; //当前页数
}
else
{
rs.AbsolutePage = page;
}
Response.Write(records.length)
Response.Write("<table>");
for(var i=0;i<rs.PageSize;i++)
{
if(records.length==(rs.AbsolutePage-1)*rs.PageSize+i)break;
Response.Write("<tr><td><a href=" + records[(rs.AbsolutePage-1)*rs.PageSize+i] + "</a>" + records[(rs.AbsolutePage-1)*rs.PageSize+i] + "</td>");
}
Response.Write("</table>");
Response.Write("<table><tr>");
for(var i=1;i<=rs.PageCount;i++)
{
Response.Write("<td>")
if(i==page)Response.Write("<b>");
Response.Write("<a href='test.asp?page=" + i + "'>" + i + "</a>");
if(i==page)Response.Write("</b>");
Response.Write("</td>")
}
Response.Write("</tr><table>");
%>

[chang1216]

楼上的大哥 测试了吗？ 路径是绝对路径还是相对路径 怎么不好用 谢谢！！！

[chang1216]

wanghr100(灰豆宝宝.net) 大哥快来啊? 谢谢了 帮帮小弟!!!

[chang1216]

<% @Language="JavaScript" %>
<%
function GetFilesPath(sfolderpath)
{
/*
*--------------- GetFilesPath(sfolderpath) -----------------
* GetFilesPath(sfilepath)
* 功能:遍历sfolderpath目录下的所有文件.返回数组.存储文件路径.
* 参数:sfolderpath,字符串,目录绝对路径.
* 实例:Response.Write(GetFilesPath(Server.MapPath("xml")))
* update:2004-5-12 8:33
* author:wanghr100(灰豆宝宝.net)
*--------------- GetFilesPath(sfolderpath) -----------------
*/
var sFilePath = new Array();
var fso = Server.CreateObject("Scripting.FileSystemObject");
var oFolder = fso.GetFolder("F:\cyc\cyc_bak\GoldLanOA\system\dn\guoluyx\cyc");
var oSubFolders = oFolder.SubFolders;
var oFiles = oFolder.Files;
icount = oFiles.Count;

var enmFiles = new Enumerator(oFiles);
for(;!enmFiles.atEnd();enmFiles.moveNext())
{
sFilePath[sFilePath.length] = enmFiles.item().Path
}

var enmFolders = new Enumerator(oSubFolders);
for(;!enmFolders.atEnd();enmFolders.moveNext())
{
/* Old 数组成了多维. */
//sFilePath[sFilePath.length]=GetFilesPath(enmFolders.item().Path);
/* Add 2004-5-17 11:09 只为一维数组 */
sFilePath=sFilePath.concat(GetFilesPath(enmFolders.item().Path));
}

return sFilePath;

}
var records = GetFilesPath(Server.MapPath("xml"))
var rs = new Object();
rs.PageSize = 10; //每页记录数.
rs.PageCount = parseInt(records.length/rs.PageSize)+1
page = Request("page");
if(String(page)=="undefined")
{
page = 1;
rs.AbsolutePage = 1; //当前页数
}
else
{
rs.AbsolutePage = page;
}
Response.Write(records.length)
Response.Write("<table>");
for(var i=0;i<rs.PageSize;i++)
{
if(records.length==(rs.AbsolutePage-1)*rs.PageSize+i)break;
Response.Write("<tr><td><a href=" + records[(rs.AbsolutePage-1)*rs.PageSize+i] + "</a>" + records[(rs.AbsolutePage-1)*rs.PageSize+i] + "</td>");
}
Response.Write("</table>");
Response.Write("<table><tr>");
for(var i=1;i<=rs.PageCount;i++)
{
Response.Write("<td>")
if(i==page)Response.Write("<b>");
Response.Write("<a href='test.asp?page=" + i + "'>" + i + "</a>");
if(i==page)Response.Write("</b>");
Response.Write("</td>")
}
Response.Write("</tr><table>");
%>
我这样写为什么不行 请楼上的大哥帮忙

[wanghr100]

var oFolder = fso.GetFolder("F:\cyc\cyc_bak\GoldLanOA\system\dn\guoluyx\cyc");
->
var oFolder = fso.GetFolder("F:\\cyc\\cyc_bak\\GoldLanOA\\system\\dn\\guoluyx\\cyc");

[chang1216]

现实是这样的
F:\cyc\cyc_bak\GoldLanOA\system\dn\guoluyx\cyc\2004-06-16-14-32.doc
F:\cyc\cyc_bak\GoldLanOA\system\dn\guoluyx\cyc\2004-06-16-14-46.doc
1 2

如何把F:\cyc\cyc_bak\GoldLanOA\system\dn\guoluyx\cyc\ 去掉 只显示文件名 再就是点击文件名的时候 不能观看!!!谢谢!!!!

[chang1216]

我这里都是 word 文件 我怎么把他们打开啊！！不好意思 我是不是太笨了 还是请教一下 wanghr100(灰豆宝宝.net)