4 svar · 306 visningar · startad av Daniel78
Hej, jag behöver nog lite hjälp med följande. Det är så att nedanstående kod listar ett antal filer som finns i undermappar till den mapp jag har specificerat i koden. Sen blir det ju en länk av det hela och där har jag problem! Länken blir ju utskriven med hela sökvägen från C:\inetpub\osv... Så när man trycker på den så tror Explorern att den ska ladda ner istället för att gå till sidan! Finns det något enkelt jag kan ändra på?
<% Dim FSO, Folder, File, MyFolder
Set FSO = CreateObject("Scripting.FileSystemObject")
MyFolder = Server.MapPath("Avdelningar/")
ListFolders FSO.GetFolder(MyFolder), 0
%> <% Sub ListFolders(Folder, Level)
'Dim File
Dim SubFolder
For Each File In Folder.Files
If File.Name = "navupdate.asp" Then
%> <font face="Verdana, Arial, Helvetica, sans-serif" size="1" color="#333333">�</font>
<a href="<%=File.Path%>?FileName=<%=File.ParentFolder.Name%>"><%=File.ParentFolder.Name%><br>
</a>
<%
End if
Next
For Each SubFolder In Folder.SubFolders
ListFolders SubFolder, Level + 1
Next
End Sub
%>
prova byta ut:
<a href="<%=File.Path%>?FileName=<%=File.ParentFolder.Name%>"><%=File.ParentFolder.Name%><br>
</a>
mot
<a href=[b]http://[/b]"<%=File.Path%>?FileName=<%=File.ParentFolder.Name%>"><%=File.ParentFolder.Name%><br>
</a>
[Redigerat av phazer23 den 28 feb 2001]
Nix, fungerar inte! Behöver något som plockar bort all sökväg innan just den katalog jag specificerade i MapPath, alltså Avdelningar och dess underkataloger.
Tack så mycket! Nu behöver man inte gå hem gråtandes!