Запрос свойств "directory", "filename" из службы индексирования. Затем, используя 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
На основе кода ASP.NET из http://geekswithblogs.net/AlsLog/archive/2006/08/03/87032.aspx