<%
Funktionsbianli (Pfad)
'einleiten
path = server.mappath (Pfad)
Setzen Sie fso = server.createObject (scripting.FilesystemObject)
Setzen Sie objfolker = fso.getFolder (Pfad)
Setzen Sie objFiles = objFolder.files
'把文件名及文件路经存入 thefiles 数组
Int Slot = 0
Dim theFiles ()
redim thefiles (50)
für jede objfile in objFiles
Dateiname = objFile.name
filepath = split (objfile.path, docs/)
thepath1 = ./docs/
thepath = thepath1 & filepath (1)
Die Dateien (Slot) = Dateiname & ** & Thepath
Slot = Slot + 1
Wenn Slot> Ubound (die Dateien) dann
Reduzieren die Dateien (Slot+20)
Ende wenn
nächste
REDIM PERSIVE DIE STAGEN (SLOT)
'冒泡排序
für i = 0 bis ubound (thefiles) -2
für j = i+1 bis ubound (thefiles) -1
Wenn StrC-
tmp = thefiles (i)
Die Dateien (i) = TheFiles (j)
TheFiles (j) = tmp
Ende wenn
nächste
nächste
'输出
für i = 0 bis ubound (thefiles) -1
para = thefiles (i)
Dateiname = split (para, **,-1,1) (0)
filepath = split (para, **,-1,1) (1)
%>
<p Align = links>
--- <img src = '../../bicture/arrow_orange.gif' width = '14 'height = '11'>
<a href = '<%= filepath%>'> <span class = activeLink_yellow> <%= Dateiname%> </span> </a>
</p>
<%
nächste
Endfunktion
%>