用asp对文件夹下面的文件实现分页浏览显示！

VBScript code:

<%dim lujing, lujing1
lujing=server.MapPath(tree_url)
lujing1=tree_url
Dim fs, f, f1, fc, files_date, dat, l, l1,nam,count
Dim i, j
Dim temp ,temp1,temp2
'以上是定义变量

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(lujing) '易变部位
Set fc = f.Files

i = 0
For Each f1 In fc
i = i + 1
Next
count=i
'统计本部文件目录下文件的个数

redim dat1(count),nam_j(count),nam_q(count) '定义动态数组
'nam_j表示不带扩展名的名称，nam_q表示文件的全名

i = 1
For Each f1 In fc
Set files_date = fs.getfile(f1)
dat = files_date.datecreated
nam = f1.Name
nam_q(i)=nam
l = Len(nam)
l1 = l - 4
nam = Left(nam, l1)
dat1(i) = dat
nam_j(i) = nam
i = i + 1
Next
'循环统计每个文件创立的时间和文件的名称以及不带扩展名的名称

For i = 1 To count - 1
For j = i + 1 To count
If dat1(i) <= dat1(j) Then
temp = dat1(i)
temp1 = nam_j(i)
temp2 = nam_q(i)
dat1(i) = dat1(j)
nam_j(i) = nam_j(j)
n