インデックスサービスから「ディレクトリ」、「ファイル名」のプロパティをクエリします。次に、ASP Classic / VbScriptを使用し、RSはレコードセットを表します。
Function MapURL( Path )
' opposite of server.mappath - takes a filesystem path and turns it into a url
Dim AppPath
AppPath = Server.MapPath("/")
path = Replace(path,apppath,"",1,-1,1)
path = Replace(path,"\","/",1,-1,1)
MapURL = path
End Function
Dim vpath
do while not rs.EOF
vpath = rs("directory") & "/" & rs("filename")
response.write MapURL(vpath)
rs.movenext
loop
http://geekswithblogs.net/AlsLog/archive/2006/08/03/87032.aspxのASP.NETコードに基づく