/ Forside / Teknologi / Udvikling / ASP / Nyhedsindlæg
Login
Glemt dit kodeord? 		Brugernavn

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
1  smorch 9259
2  Harlekin 1866
3  molokyle 1040
4  Steffanst.. 758
5  gandalf 657
6  smilly 564
7  gibson 560
8  cumano 530
9  MouseKeep.. 480
10  Random 410
Vis indhold i en mappe
Fra : Jan Clausen

Dato : 03-01-04 00:27
Findes der en måde hvor man kan få vist indholdet af en mappe på serveren,
en mappe med billeder i ??
Har brugt denne her : er det helt forkert ?
Jeg kan ikke få den til at vise indholdet af min variabel(strFolder) og den
vil derfor ikke godkende stien

<%Dim strFolder
strFolder = Request.QueryString("folder")
path = (Server.MapPath ("/" & strFolder & "") & "/")
Set fso = CreateObject("Scripting.FileSystemObject")
Set theCurrentFolder = fso.GetFolder( path )
Set curFiles = theCurrentFolder.Files
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<%
For Each fileItem in curFiles
fname = fileItem.Name
%>
<img src="<%=strFolder%>/<%=fname%>" width="100" border="0"><br>
<%=fname%><br>
<%
Next
%>
</body>
</html>



 
 
Jens Gyldenkærne Cla~ (03-01-2004)
Kommentar
Fra : Jens Gyldenkærne Cla~

Dato : 03-01-04 00:43
Jan Clausen skrev:

> Findes der en måde hvor man kan få vist indholdet af en mappe
> på serveren, en mappe med billeder i ??

Bestemt.

> Har brugt denne her : er det helt forkert ?

Hvordan virker den? Får du fejlmeddelelser eller bare et uventet
resultat?

> Jeg kan ikke få den til at vise indholdet af min
> variabel(strFolder) og den vil derfor ikke godkende stien

Har du prøvet med

strFolder: <%= strFolder %>

(for at tjekke indholdet af variablen)


> strFolder = Request.QueryString("folder")

Valideringstjek - er der i det hele taget noget i querystring-
objektet?

> path = (Server.MapPath ("/" & strFolder & "") & "/")

Valideringstjek - udskriv path (er du fx sikker på at der altid
skal "/" før og efter strFolder?

> Set theCurrentFolder = fso.GetFolder( path )

Valideringstjek - eksisterer folderen path?


Det er en god ide at tjekke for fejl i stedet for at håbe på at de
ikke opstår. Det kan gøres med en if-sætning for hvert tjek.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

Jan Clausen (03-01-2004)
Kommentar
Fra : Jan Clausen

Dato : 03-01-04 10:36

"Jens Gyldenkærne Clausen" <jens@gyros.invalid> skrev i en meddelelse
news:Xns9465735A9DBDjcdmfdk@gyrosmod.cybercity.dk...
> Hvordan virker den? Får du fejlmeddelelser eller bare et uventet
> resultat?

Der opstod en Microsoft VBScript-kørselsfejl fejl '800a004c'
Stien blev ikke fundet

/intranet/showpic.asp, linje 9


Linie 9: Set theCurrentFolder = fso.GetFolder(path)

>
>
> > strFolder = Request.QueryString("folder")
>
> Valideringstjek - er der i det hele taget noget i querystring-
> objektet?


QueryString = showpic.asp?folder=fedtmule
<%=strFolder%> = fedtmule


> > path = (Server.MapPath ("/" & strFolder & "") & "/")
path = (Server.MapPath ("/" & strFolder & "") ) -Så skulle den være
korrekt, men virker stadig ikke


> Valideringstjek - udskriv path (er du fx sikker på at der altid
> skal "/" før og efter strFolder?
path = C:\Inetpub\wwwroot\intranet\& strFolder &

> Valideringstjek - eksisterer folderen path?
Ja, den er C:\Inetpub\wwwroot\intranet\
Den er rigtig nok



Jørgen Müller (03-01-2004)
Kommentar
Fra : Jørgen Müller

Dato : 03-01-04 14:15
Jan Clausen skrev:
>path = C:\Inetpub\wwwroot\intranet\& strFolder &
Det hedder stien til filen vel ikke?

Prøv med path = Server.MapPath (.) & strFolder
Den skal evt. hedde path = Server.MapPath(.) & "/" & strFolder
og skriv så path ud med <%= path%> og <%response.end%> lige før linie 9
--
Med Venlig Hilsen
Jørgen Müller



Jan Clausen (03-01-2004)
Kommentar
Fra : Jan Clausen

Dato : 03-01-04 17:28

"Jørgen Müller" <j.muller@mail.tele.dk> skrev i en meddelelse
news:bt6f8d$sm$1@sunsite.dk...
> Jan Clausen skrev:
> >path = C:\Inetpub\wwwroot\intranet\& strFolder &
> Det hedder stien til filen vel ikke?
Ja og nej. strFolder er en variabel der indholder navnet på mappen
men istedet for at udskrive variablen skriver den det som ovenstående, og
det er jo ikke en mappe

> Prøv med path = Server.MapPath (.) & strFolder
> Den skal evt. hedde path = Server.MapPath(.) & "/" & strFolder
> og skriv så path ud med <%= path%> og <%response.end%> lige før linie 9

Så får jeg denne fejl.
Der opstod en Microsoft VBScript-kompileringsfejl fejl '800a03f2' Id var
ventet /intranet/showpic.asp, linje 6 path = Server.MapPath(.) & "/" &
strFolder
-----------------------^




Jens Gyldenkærne Cla~ (03-01-2004)
Kommentar
Fra : Jens Gyldenkærne Cla~

Dato : 03-01-04 17:59
Jan Clausen skrev:

>> >path = C:\Inetpub\wwwroot\intranet\& strFolder &

Er det resultatet af en response.write path?

>> Det hedder stien til filen vel ikke?

> Ja og nej. strFolder er en variabel der indholder navnet på
> mappen men istedet for at udskrive variablen skriver den det
> som ovenstående, og det er jo ikke en mappe

Netop. Der må altså være noget galt i den måde du tildeler værdi
til path.

>> Prøv med path = Server.MapPath (.) & strFolder

Der skal anførselstegn om punktummet:

Sever.Mappath(".")

> Så får jeg denne fejl.
> Der opstod en Microsoft VBScript-kompileringsfejl fejl
> '800a03f2'

Prøv at lave ovenstående ændring om se om det hjælper.
--
Jens Gyldenkærne Clausen
Svar venligst under det du citerer, og citer kun det der er
nødvendigt for at forstå dit svar i sammenhængen. Se hvorfor og
hvordan på http://usenet.dk/netikette/citatteknik.html

Jan Clausen (03-01-2004)
Kommentar
Fra : Jan Clausen

Dato : 03-01-04 22:11

"Jens Gyldenkærne Clausen" skrev>
> Der skal anførselstegn om punktummet:
>
> Sever.Mappath(".")
>

> Prøv at lave ovenstående ændring om se om det hjælper.
Det hjalp, nu virker det efter hensigten..
Mange tak




Søg
Reklame
Statistik
Spørgsmål : 177501
Tips : 31968
Nyheder : 719565
Indlæg : 6408527
Brugere : 218887
Månedens bedste
Årets bedste
Sidste års bedste
Copyright © 2000-2024 kandu.dk. Alle rettigheder forbeholdes.