<%
Функция Bianli (Path)
'Инициация
path = server.mappath (path)
Установить fso = server.createObject (scripting.filesystemobject)
Установить objfolder = fso.getFolder (path)
установить objfiles = objfolder.files
'把文件名及文件路经存入 Файлы 数组
int slot = 0
Dim thefiles ()
Переосмысление файлов (50)
для каждого objfile в objfiles
filename = objfile.name
filePath = split (objfile.path, docs/)
thePath1 = ./docs/
ThePath = ThePath1 & FilePath (1)
thefiles (слот) = имя файла & ** & thepath
слот = слот + 1
Если слот> ubound (the -files), то тогда
Redim сохранить файлы (слот+20)
конец, если
следующий
Redim сохранить файлы (слот)
'冒泡排序
для i = 0 до ubound (the-files) -2
для j = i+1 до ubound (the-files) -1
Если strcomp (thefiles (i), thefiles (j)) = 1 то
tmp = thefiles (i)
thefiles (i) = thefiles (j)
thefiles (j) = tmp
конец, если
следующий
следующий
'输出
для i = 0 до ubound (the-files) -1
para = the -files (i)
filename = split (para, **,-1,1) (0)
FilePath = Split (Para, **,-1,1) (1)
%>
<p align = Left>
--- <img src = '../../images/arrow_orange.gif' width = '14 'eight = '11'>
<a href = '<%= filePath%>'> <span class = activeelink_yellow> <%= имя файла%> </span> </a>
</p>
<%
следующий
конечная функция
%>