CIO Tech Eksperten IT-JOB IT-Kurser Events Podcast Søg

Log ind eller opret profil

Du kan også logge ind via nedenstående tjenester

alivedk Nybegynder

07. maj 2006 - 15:44 Der er 16 kommentarer og
1 løsning

Fil system på web

Jeg er på jagt efter et system/script, der på min webserver kan liste folders/filer og preview af billeder når musen bevæges over filnavnene. Har set et prebuild system et stykke tid siden, men fik selvfølgelig ikke gemt linket.

Skal bruge det til en rode mappe på min webserver hvor jeg kan smide billeder/filmklip osv op til offentlig skue.. og scriptet skal så gøre det lidt mere tilgængeligt ...

håber nogen kan tyde min beskrivelse =)

Synes godt om

Slettet bruger

07. maj 2006 - 16:27 #1

Hej

Jamen er det ikke bare et hurtigt fso-script til pågældende mappe?
noget a la det her:
<%
path = "MinRodeMappe"
set fs=Server.CreateObject("Scripting.FileSystemObject")
if fs.FolderExists(server.mappath(path))=true then
set f=fs.GetFolder(server.mappath(path))
for each file in f.files
filename = file.name
%>
<a href="<%=path%>/<%=filename%>">
<%=filename%>
</a>
 
<%
next
set f=nothing
end if
set fs=nothing
%>

- man kan selvfølgelig sagtens gøre det meget mere fancy - fx. med at den kun viser bestemte filtyper og med at man kan ændre filnavn med videre...

\Dan

Synes godt om

alivedk Nybegynder

07. maj 2006 - 16:49 #2

Mapper/billeder skal selvfølgelig være klikbare (klik på en mappe listet hvad der er i den sov).. så helt så simpelt kan det vist ikke laves :(

Synes godt om

Slettet bruger

07. maj 2006 - 16:50 #3

- OK!

Så laver jeg lige et lidt bedre script her senere i aften!

\Dan

Synes godt om

alivedk Nybegynder

07. maj 2006 - 16:57 #4

Det ville være super duper hvis du har tid (og lyst) til det..

Lige for at vi ikke går fejl af hinanden:

- Lister filer og mapper i den folder hvor scriptet er placeret
- Filer og mapper skal være klikbare
- Klikkes der åp en mappe, listes filer/mapper i den folder
- nemmeste måde er msåke at lave det som et windows ala. tree system?

Smider gerne ekstra point afsted.. er ikke selv den store coder mere desværre :/

Synes godt om

Slettet bruger

07. maj 2006 - 23:40 #5

Hejsa

Så fik jeg endelig lavet et simpelt script til dig!
Her:
<html>
<%
path = request.querystring("folder")
if path = "" then
path = "./"
end if
set fs=Server.CreateObject("Scripting.FileSystemObject")
if request.querystring("folder") <> "" then
parent=fs.GetParentFolderName(path)
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=parent%>">
Et niveau op!
</a>
 
<%
end if
set f=fs.GetFolder(server.mappath(path))
for each folder in f.subfolders
foldername = folder.name
foldercount=foldercount+1
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=request.querystring("folder")%>/<%=foldername%>">
<%=foldername%>
</a>
 
<%
next
if foldercount <> "" then
%>
Du ser <%=foldercount%> mapper ovenfor! 
<%else%>
Der er ingen undermapper i denne mappe! 
<%
end if
for each file in f.files
filename = file.name
filecount=filecount+1
%>
<a href="<%=path%>/<%=filename%>">
<%=filename%>
</a>
 
<%
next
set f=nothing
set fs=nothing
if filecount <> "" then
%>
Du ser <%=filecount%> fil(er) ovenfor! 
<%else%>
Der er ingen filer i denne mappe! 
<%end if%>
</html>

Du skal bare placere dette script i samme mappe som den mappe den skal "starte" med at vise filer og mapper i...

\Dan

Synes godt om

alivedk Nybegynder

08. maj 2006 - 13:07 #6

http://www.bergsorensen.dk/stuff/

Lister foldere fint.. dog kan man ikke klikke på en folder og se indholdet osv.. lister også asp filen..

Synes godt om

Slettet bruger

08. maj 2006 - 18:54 #7

Hejsa

Det var faktisk lidt underligt - for det virker på min IIS server - men ikke på en SUNs asp-server...

Nå, men så prøv denne her i stedet:
<html>
<%
path = replace(request.querystring("folder"),"../","")
if path = "" then
path = "./"
end if
set fs=Server.CreateObject("Scripting.FileSystemObject")
if request.querystring("folder") <> "" then
parent=fs.GetParentFolderName(path)
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=parent%>">
Et niveau op!
</a>
 
<%
end if
set f=fs.GetFolder(server.mappath(path))
for each folder in f.subfolders
foldername = folder.name
foldercount=foldercount+1
if request.querystring("folder") = "" then
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=request.querystring("folder") & foldername%>">
<%=foldername%>
</a>
 
<%
else
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=request.querystring("folder") & "/" & foldername%>">
<%=foldername%>
</a>
 
<%
end if
next
if foldercount <> "" then
%>
Du ser <%=foldercount%> mapper ovenfor! 
<%else%>
Der er ingen undermapper i denne mappe! 
<%
end if
for each file in f.files
filename = file.name
filecount=filecount+1
if request.querystring("folder") = "" then
%>
<a href="<%=path & filename%>">
<%=filename%>
</a>
 
<%
else
%>
<a href="<%=path & "/" & filename%>">
<%=filename%>
</a>
 
<%
end if
next
set f=nothing
set fs=nothing
if filecount <> "" then
%>
Du ser <%=filecount%> fil(er) ovenfor! 
<%else%>
Der er ingen filer i denne mappe! 
<%end if%>
</html>

\Dan

Synes godt om

alivedk Nybegynder

08. maj 2006 - 19:42 #8

Ammen.. det er jo helt kanont.. sidste "bug".. kan man gøre så den ikke lister index.asp filen med? Så har du vist også gjort dig fortjent til alle pointene, hvert og en plus det løse =)

Synes godt om

Slettet bruger

08. maj 2006 - 21:24 #9

OK! Så er det også lavet!
Sådan her:

<html>
<%
path = replace(request.querystring("folder"),"../","")
if path = "" then
path = "./"
end if
set fs=Server.CreateObject("Scripting.FileSystemObject")
if request.querystring("folder") <> "" then
parent=fs.GetParentFolderName(path)
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=parent%>">
Et niveau op!
</a>
 
<%
end if
set f=fs.GetFolder(server.mappath(path))
for each folder in f.subfolders
foldername = folder.name
foldercount=foldercount+1
if request.querystring("folder") = "" then
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=request.querystring("folder") & foldername%>">
<%=foldername%>
</a>
 
<%
else
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=request.querystring("folder") & "/" & foldername%>">
<%=foldername%>
</a>
 
<%
end if
next
if foldercount <> "" then
%>
Du ser <%=foldercount%> mapper ovenfor! 
<%else%>
Der er ingen undermapper i denne mappe! 
<%
end if
for each file in f.files
filename = file.name
filecount=filecount+1
if request.querystring("folder") = "" then
if NOT request.servervariables("path_translated") = server.mappath(path & filename) then
%>
<a href="<%=path & filename%>">
<%=filename%>
</a>
 
<%
end if
else
%>
<a href="<%=path & "/" & filename%>">
<%=filename%>
</a>
 
<%
end if
next
set f=nothing
set fs=nothing
if filecount <> "" then
%>
Du ser <%=filecount%> fil(er) ovenfor! 
<%else%>
Der er ingen filer i denne mappe! 
<%end if%>
</html>

Synes godt om

alivedk Nybegynder

09. maj 2006 - 08:53 #10

"et niveau op" linket virker dog ikke nu Oo

Synes godt om

Slettet bruger

09. maj 2006 - 15:46 #11

Nej og det undrer også mig at den ikke virker for den virker på min server! Jeg tror det har noget med dit webhotel at gøre! Men giv mig lige 10 minutter - så finder jeg en anden løsning!

\Dan

Synes godt om

Slettet bruger

09. maj 2006 - 16:08 #12

Sådan! Nu har jeg lavet det uden den der "ParentFolder" men på en lidt anden og meget mere omstændig måde!
Sådan her:
<html>
<%
path = replace(request.querystring("folder"),"../","")
if path = "" then
path = "./"
end if
set fs=Server.CreateObject("Scripting.FileSystemObject")
if request.querystring("folder") <> "" then
parent = split(request.querystring("folder"),"/")
for a=0 to ubound(parent)
parentcount=parentcount+1
next
Nparentcount=0
Nparent = split(request.querystring("folder"),"/")
for b=0 to ubound(Nparent)
Nparentcount=Nparentcount+1
if NOT Nparentcount=parentcount then
parentlink = parentlink & "/" & Nparent(b)
end if
next
if left(parentlink,1) = "/" then
parentlink = right(parentlink,len(parentlink)-1)
end if
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=parentlink%>">
Et niveau op!
</a>
 
<%
end if
set f=fs.GetFolder(server.mappath(path))
for each folder in f.subfolders
foldername = folder.name
foldercount=foldercount+1
if request.querystring("folder") = "" then
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=request.querystring("folder") & foldername%>">
<%=foldername%>
</a>
 
<%
else
%>
<a href="<%=request.servervariables("script_name")%>?folder=<%=request.querystring("folder") & "/" & foldername%>">
<%=foldername%>
</a>
 
<%
end if
next
if foldercount <> "" then
%>
Du ser <%=foldercount%> mapper ovenfor! 
<%else%>
Der er ingen undermapper i denne mappe! 
<%
end if
for each file in f.files
filename = file.name
filecount=filecount+1
if request.querystring("folder") = "" then
if NOT request.servervariables("path_translated") = server.mappath(path & filename) then
%>
<a href="<%=path & filename%>">
<%=filename%>
</a>
 
<%
end if
else
%>
<a href="<%=path & "/" & filename%>">
<%=filename%>
</a>
 
<%
end if
next
set f=nothing
set fs=nothing
if filecount <> "" then
%>
Du ser <%=filecount%> fil(er) ovenfor! 
<%else%>
Der er ingen filer i denne mappe! 
<%end if%>
</html>

\Dan

Synes godt om

alivedk Nybegynder

09. maj 2006 - 16:32 #13

Smukt arbejde =)

Synes godt om

Slettet bruger

09. maj 2006 - 16:35 #14

takker!

Synes godt om

alivedk Nybegynder

11. maj 2006 - 12:54 #15

Lige et hurtigt spørgsmål.. er der en nem måde at få scriptet til at skrive hvilken sti man er i? (ex. hvis man er i folder=menu) så skrives det på hjemmesiden .. (ex. print i en variabel?)

Synes godt om

Slettet bruger

15. maj 2006 - 04:33 #16

tjae hvad med:
<%=path%>

\Dan

Synes godt om

alivedk Nybegynder

25. maj 2006 - 18:03 #17

Sidste (og vil gerne give en bunke flere point hvis det kan løses) så lister scriptet ikke mapper/filer efter dato (men efter oprettelse på serveren?)

Synes godt om

Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Følg dette spørgsmål

Opret Preview

Programmeringssprog kurser

Kurser inden for grundlæggende programmering

Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel	Indlæg	Oprettet	Seneste aktivitet
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51
Classic - filer vist med sidste fil først Af bsn i ASP	5	23/05/202409:56	24/05/202400:02
Optimer MySql table med ASP Af poulmadsen i ASP	4	26/04/202417:16	26/04/202418:37
JSON Af ingeman i ASP	3	07/04/202417:53	08/04/202412:09
Vis detaljeret fejlkoder Af poulmadsen i ASP	6	09/03/202418:16	10/03/202417:59

Se alle spørgsmål i kategorien Opret spørgsmål

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS

01/11

Test af Apple Watch Series 10: Apples jubilæums-model er blevet lidt af en mester af det hele

01/11

Google Clouds netop fratrådte topchef har fundet sit nye job: Bliver en af de mest magtfulde personer hos ServiceNow

01/11

Nu går OpenAI efter struben på Google: ChatGPT fungerer nu også som en AI-søgemaskine

01/11

Nørgaard: Agenterne kommer, og jeg er klar: Måske bliver min gamle drøm snart virkelighed

01/11

Staten vil selv udvikle kæmpe it-system til 650 millioner kroner: Nu tvinges regeringen til at lægge vigtige dokumenter frem

01/11

Det går fantastisk på det danske Dynamics-marked: NNIT-selskabet Scales kan vælge og vrage mellem opgaver

01/11

Linus Torvalds giver russiske Linux-udviklere sparket: Vil ikke have noget med dem at gøre

01/11

Skelsættende GDPR-sag ændrer definitionen af 'følsomme oplysninger'

01/11

Google indlemmer sin AI Gemini i Google Maps, Google Earth og Waze: Det kommer det til at betyde

01/11

Microsoft: Tvungen skift til Windows 11 kan udskydes med et år, hvis du betaler os 200 kroner

01/11

Sådan blev Margrethe Vestager ’Silicon Valleys største fjende’

Vis flere artikler

IT-JOB

Udviklings- og Forenklingsstyrelsen

IT-generalist med flair for kommunikation til et produktionsstøtteteam

HOUSE4IT A/S

System- og netværkskonsulent til en professionel IT-virksomhed i Kolding

ATP

WorkZone-specialister, der vil konfigurere gode fagløsninger i tæt samarbejde med forretningen

DEIF A/S

Senior Project Manager, Software & Product Development

SDC A/S

Procurement Specialist med kommercielt mindset

Vis flere jobs

Seneste spørgsmål Seneste aktivitet

I dag 06:10	Excel åbner fil i kæmpe format Af Aske i Excel
I går 22:00	Datafordeler Af Lsk i PHP
I går 12:37	Summere beløb pr. dato Af TTA i Excel
31/1022:44	Tilslutte chassic fans Af viking69 i PC
31/1020:28	LED lysstofrør Af ErikHg i Fri debat