<%
기능 bianli (경로)
'시작
Path = Server.mappath (Path)
set fso = server.createobject (scripting.filesystemobject)
set objfolder = fso.getfolder (경로)
objfiles = objfolder.files를 설정하십시오
'数组 thefiles 把文件名及文件路经存入
int 슬롯 = 0
Dim thefiles ()
thefiles redim thefiles (50)
objfiles에서 각각의 objfile에 대해
filename = objfile.name
filepath = split (objfile.path, docs/)
thepath1 = ./docs/
thepath = thepath1 & filepath (1)
thefiles (슬롯) = filename & ** & thepath
슬롯 = 슬롯 + 1
슬롯> ubound (thefiles)라면
redim 보존 thefiles (슬롯+20)
끝 If
다음
redim 보존 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 = 왼쪽>
--- <img src = '../../images/arrow_orange.gif'width = '14 'height = '11'>
<a href = '<%= filepath%>'> <span class = activeelink_yellow> <%= filename%> </span> </a>
</p>
<%
다음
엔드 기능
%>