文件遍历排序函数

　　<%

　　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

　　%>