<%
機能ビアンリ(パス)
'開始する
path = server.mappath(パス)
fso = server.createObject(scripting.filesystemObject)を設定します
objfolder = fso.getFolder(PATH)を設定します
objfiles = objfolder.filesを設定します
'files数组
intスロット= 0
dimthefiles()
ファイルをredim(50)
objfilesの各objfileについて
filename = objfile.name
filepath = split(objfile.path、docs/)
thepath1 = ./docs/
ThePath = ThePath1&Filepath(1)
thefiles(slot)= filename&**&thepath
スロット=スロット + 1
スロット> ubound(thefiles)の場合
TheFiles(スロット+20)をredim
ifを終了します
次
redim preserve thefiles(スロット)
'冒泡排序
i = 0からubound(thefiles)-2の場合
j = i+1からubound(thefiles)-1の場合
strcomp(thefiles(i)、thefiles(j))= 1の場合
tmp = thefiles(i)
thefiles(i)= thefiles(j)
thefiles(j)= tmp
ifを終了します
次
次
'输出
i = 0から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>
<%
次
エンド関数
%>