Har nu suttit och letat och letat & rycket mig i håret.
Mina ASP & Javascripts kunskaper är som sagt Högst Bristfälliga, jag kanske borde läsa en bok om dom ! :)
Nu har jeg hittat ett fint litet script som listar filerna i min mapp i bokstavsordning.
Har febrilt försökt få filerna till länkar, vilket verkar fullkomligt omöjligt, fast det inte borde vara en match.
Har också försökt få fram så att mapparna skall synas, detta också med felmeddelande efter felmeddelande.
Jag försökte dessutom få sidan att kunna browsra mina mappar (typ browse.asp?folder=txt/a/) , gissa vad det resulterade i.
Inte ett jävla jota går min väg nu, så jag frågar er, kära medmänniskor, snälla hjälp mig.
Jag är fullt medveten om att detta är "lite av en dubbelpostning", men det hoppas jag inte gör något !!!
Oj, ni kanske skulle vilja se koden också:
<script language="JavaScript">
<!--
filer = new Array(<%
dim fso,mapp,fil
set fso=Server.CreateObject("Scripting.FileSystemObject")
set mapp=fso.GetFolder(server.mappath("."))
for each fil in mapp.Files
response.write """" & lcase(fil.name) & """" & ","
next
set fil=Nothing
set mapp=Nothing
set fso=Nothing
%>"")
sortering = filer.sort()
document.write(filer.join(" <BR>"))
//-->
</script>
Sådär ja, snälla nån - Hjälp mig. !!!
1. Jag vill att man skall kunna lista även mappar
2. Jag vill att mapparna skall vara klickbara i form av att man browsrar dom i samma dokument. Exempel:
Jag är på listfiles.asp <- Detta är rooten
Om jag klickar på mappen img/ så ska sidan istället för att direkt länka dit browsra den typ. browse.asp?folder=img/
<%
dim fso,mapp,fil
set fso=Server.CreateObject("Scripting.FileSystemObject")
set mapp=fso.GetFolder(server.mappath("."))
for each fil in mapp.Files
response.write "<a href="& lcase(fil.name) & " target=""_blank"">"& lcase(fil.name) &"</a><br>"
next
set fil=Nothing
set mapp=Nothing
set fso=Nothing
%>
´nu är det ändrat, men det du skrev funkade inte, då blev dom ju inte i bokstavsordning. och destutom inte browsbara på sidan :(
Dessutom fanns inga mappar med
Usch vad jag känner mig besvärlig och trött i huvve
Nu fick du väl antagligen en bra funktion där i länken, men annars är jag ju bara sååå snäll:
<script language="JavaScript">
<!--
filer = new Array(<%
dim fso,mapp,fil
set fso=Server.CreateObject("Scripting.FileSystemObject")
set mapp=fso.GetFolder(server.mappath("."))
for each fil in mapp.Files
response.write """" & lcase(fil.name) & """" & ","
next
set fil=Nothing
set mapp=Nothing
set fso=Nothing
%>"")
sortering = filer.sort()
//document.write(filer.join(" <BR>"))
for(var n=0;n<filer.length;n++){
document.write(("<a href='sidan.asp?fil="+filer[n]+"'>"+filer[n]+"</a><BR>"))
}
//-->
</script>
Lite spontant annars undrar jag lite om du kikar och försöker med den kod du får till dig annars...
whooo...tack solbulle, nu är det bara mapparna kvar som jag vill ha listade, sen e allt frid & fröjd :)
+ att när man klickar på länkarna så ska dom öppnas (?)
kanske bara var jag som hade det problemet ! ? !
fast nu är jag ändå så glad att jag skulle kunna pussa dina fötter solis :)
ingen som har koll på hur man får solbulles kod att visa mappar också + att den faktiskt ska gå in i mappen och inte bara skriva ut fil.asp?fil=enannanfil.asp .. om ni hajkjkar vad jag menar ?? :)
Nu får du försöka knåpa lite själv också ;)
Det känns som om du egentligen redan har fått alla bitar, bara det att dom ska sättas ihop.
Du finns ju även en länk till ett helt färdigt script postat i tråden.
Men men, kika lite på det här, det klarar en nivå under den du står på, det går givetvis att bygga vidare.
Du får själv ändra länken på filerna till vad du vill ska hända om man klicka på en sådan.
<script language="JavaScript">
<!--
<%
If request.querystring("mapp") <> "" then
mappen = request.querystring("mapp")
Else
mappen = "."
End If
dim fso,mapp,fil
set fso=Server.CreateObject("Scripting.FileSystemObject")
set mapp=fso.GetFolder(server.mappath(mappen))
Set subFolders = mapp.SubFolders
response.write "filer = new Array("
for each fil in mapp.Files
response.write """" & lcase(fil.name) & """" & ","
next
response.write """"")" & vbcrlf
response.write "mappar = new Array("
for each item in subFolders
response.write """" & lcase(item.name) & """" & ","
next
response.write """"")"
set fil=Nothing
set mapp=Nothing
set fso=Nothing
%>
sortering = mappar.sort()
document.write("Mappar")
for(var n=0;n<mappar.length;n++){
document.write(("<a href='sidan.asp?mapp="+mappar[n]+"'>"+mappar[n]+"</a><BR>"))
}
sortering = filer.sort()
document.write("Filer")
for(var n=0;n<filer.length;n++){
document.write(("<a href='sidan.asp?fil="+filer[n]+"'>"+filer[n]+"</a><BR>"))
}
//-->
</script>
Nu gjorde du mig glad solbulle... jag har dock försökt pussla allt som jag hittat utan resultat-.. jag kom väldigt nära en gång, men ändå ville det inte fungera. Typiskt min utur / okunskap. :)
HAHA, riktigt nice vart det., !! & det där med mer än en undermapp ska jag fan kunna klura ut själv...
<script language="JavaScript">
<!--
<%
If request.querystring("mapp") <> "" then
mappen = request.querystring("mapp")
Else
mappen = "../.."
End If
dim fso,mapp,fil
set fso=Server.CreateObject("Scripting.FileSystemObject")
set mapp=fso.GetFolder(server.mappath(mappen))
Set subFolders = mapp.SubFolders
response.write "filer = new Array("
for each fil in mapp.Files
response.write """" & lcase(fil.name) & """" & ","
next
response.write """"")" & vbcrlf
response.write "mappar = new Array("
for each item in subFolders
response.write """" & lcase(item.name) & """" & ","
next
response.write """"")"
set fil=Nothing
set mapp=Nothing
set fso=Nothing
%>
sortering = mappar.sort()
document.write("Mappar")
for(var n=0;n<mappar.length;n++){
document.write(("<a href='list.asp?<%=request.servervariables("QUERY_STRING")%>/"+mappar[n]+"'>"+mappar[n]+"</a><BR>"))
}
sortering = filer.sort()
document.write("Filer")
for(var n=0;n<filer.length;n++){
document.write(("<a href='<% response.write request.querystring("mapp") %>/"+filer[n]+"'>"+filer[n]+"</a><BR>"))
}
//-->
</script>
& förresten, tack Solbulle, du har varit en ängel :)
