本站的http://btyz.51web.cn/collection.asp沒有使用按照時間排列文件的，后來想到如果按照文件建立的時間為順序排列，那就太棒了。幸好學過C語言，起泡法只是一個簡單的算法而已，但是在網頁編程中要用到什么算法的還是比較少的，我已經用過的算法只有遞歸和起泡法。有問題大家多多指點。
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%
'######################################'
'## Copyright (C) 2003 醉雨梧桐 All rights reserved. ##'
'## Powered by 醉雨梧桐 ##'
'## http://btyz.51web.cn/ ##'
'## [email protected] ##'
'######################################'
Function file_list(path)
Set FSO=Server.CreateObject("Scripting.FileSystemObject") 'FSO對象
Set FD=FSO.GetFolder(path) '獲得文件夾
Set F=FD.Files '獲得文件夾內文件
For Each OneFile in F '列出所有的txt文件
filename=OneFile.Name
If LCase(right(filename,3))="txt" Then '只對txt文件處理
filename_arr0=filename_arr0&Left(filename,Len(filename)-4)&" " '獲得主文件名,保存在變量中,0 0 形式
filename_arr1=filename_arr1&DateValue(OneFile.DateCreated)&" " '獲得文件建立日期
End If
Next
filename_arr0=split(filename_arr0," ") '轉化為文件名數組
filename_arr1=split(filename_arr1," ") '轉化為日期數組
'把文件名和時間按照順序加入二維數組
dim filename_arr()
redim filename_arr(ubound(filename_arr0),2) '重新定義
for i=0 to ubound(filename_arr0)-1
filename_arr(i,0)=filename_arr0(i)
filename_arr(i,1)=filename_arr1(i)
next
erase filename_arr0 '刪除數組
erase filename_arr1
'－－－－－－按照時間的順序使用起泡法排列數組－－－－－－
for j=0 to ubound(filename_arr)-1
for i=0 to ubound(filename_arr)-1-j
if filename_arr(i,1)<filename_arr(i+1,1) Then '判斷時間先后，如果比后面的晚，交換數據
'交換前后數組內容－－文件名
temp=filename_arr(i,0)
filename_arr(i,0)=filename_arr(i+1,0)
filename_arr(i+1,0)=temp
'交換前后數組內容－－建立時間
temp=filename_arr(i,1)
filename_arr(i,1)=filename_arr(i+1,1)
filename_arr(i+1,1)=temp
end if
next
next
'－－－－－－結束起泡法－－－－－－
file_list=filename_arr '返回二維數組
End Function '結束函數

file_arr=file_list("g:\my documents\txt\") '調用函數返回二維數組
for i=0 to ubound(file_arr)-1
Response.Write(file_arr(i,0)&"--"&file_arr(i,1)&"<br/>") '輸出結果
next
%>