<%
str="D:\"
Set fs = CreateObject("Scripting.FileSystemObject")
set folder=fs.getfolder(str)
set folders=folder.SubFolders
set files=folder.files
for each item in folders
%>
<a href="ol.asp?a=<%=server.URLEncode(str&item.name)&"\"%>"><%=item.name%></a>
<BR>
<%
next
%>
<BR><BR>
以下是文件:<BR>
<%
for each item in files
%>
<a href="of.asp?b=<%=server.URLEncode(str&item.name)%>"><%=item.name%></a>
<BR>
<%
next
%>
