<%
fonction bianli (chemin)
'initié
path = server.mappath (path)
set fso = server.createObject (scripting.fileSystemObject)
Définir objfolder = fso.getfolder (chemin)
Définir ObjFiles = objfolder.files
'把文件名及文件路经存入 thefiles 数组
Int slot = 0
Dim theFiles ()
Redim Thefiles (50)
pour chaque objfile dans les objfiles
FileName = objfile.name
filepath = Split (objfile.path, docs /)
thepath1 = ./docs/
thepath = thepath1 & filepath (1)
thefiles (slot) = nom de fichier & ** & thepath
slot = slot + 1
Si l'emplacement> ubound (les fichiers) alors
Redim conserve les fichiers (fente + 20)
terminer si
suivant
Redim préserve les fichiers (fente)
'冒泡排序
pour i = 0 à ubound (thefiles) -2
pour j = i + 1 à ubound (thefiles) -1
Si strComp (theFiles (i), thefiles (j)) = 1 alors
tmp = thefiles (i)
thefiles (i) = thefiles (j)
thefiles (j) = tmp
terminer si
suivant
suivant
'输出
pour i = 0 à ubound (the thefiles) -1
para = thefiles (i)
FileName = Split (para, **, - 1,1) (0)
FilePath = Split (para, **, - 1,1) (1)
%>
<p align = gauche>
--- <img src = '.. / .. / images / arrow_orange.gif' width = '14 'height = '11'>
<a href = '<% = filepath%>'> <span class = activeLink_yellow> <% = filename%> </span> </a>
</p>
<%
suivant
fonction finale
%>