<％
機能ビアンリ（パス）
'開始する
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>
<％
次
エンド関数
％>