文件遍历排序函数

<%

function bianli（path）

"initiate
path = server.mappath（path）
set fso=server.CreateObject（"scripting.filesystemobject"）
set objFolder=fso.GetFolder（path）
set objfiles = objfolder.files

"把文件名及文件路经存入theFiles数组
int slot = 0
Dim theFiles（）
redim theFiles（50）
for each objFile in objFiles
filename = objFile.name
filePath = split（objFile.path,"docs"）
thepath1 = "./docs/"
thepath = thepath1 & filepath（1）
theFiles（slot） = filename&"**"&thepath
slot = slot + 1
if slot > UBound（theFiles） then
ReDim Preserve theFiles（Slot+20）
end if
next
ReDim Preserve theFiles（slot）

"冒泡排序
for i = 0 to UBound（theFiles）-2
for j = i+1 to UBound（theFiles）-1
if strComp（theFiles（i）,theFiles（j）） = 1 then
tmp = theFiles（i）
theFiles（i） = theFiles（j）
theFiles（j） = tmp
end if
next
next

"输出
for i = 0 to UBound（theFiles）-1
para = theFiles（i）
filename = split（para,"**",-1,1）（0）
filepath = split（para,"**",-1,1）（1）
%>
<p align = "left">
---<img src="../../images/arrow_orange.gif" width="14" height="11">
<a href="<%=filepath%>"><span class="activelink_yellow"><%=filename%></span></a>
</p>
<%
next
end function
%>