Notifikationer

Markér alle som læst Log ud

zer Nybegynder

12. april 2004 - 18:03 Der er 21 kommentarer og
1 løsning

Upload hjælp.

Jeg skal hvae lavet sådan at den viser filer i et spcielt bibliotket alt efter hvad querystrengen Mode's værdi er.
f.eks list.asp?mode=billeder så åbner den biblioteket billeder hvis i forstå :P?

Mvh Ronny F
Kode
-----------------------------------------------------------------
<h3>Oversigt over filer</h3>

<hr>

<% strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

For Each objFileItem in objFolderContents
Response.write "<a href="
Response.Write(objFileItem.Name)
response.write ">"
Response.Write(objFileItem.Name & "<br>")
Response.write "</a>"
Next %>
----------------------------------------------------------------

Synes godt om

zer Nybegynder

12. april 2004 - 18:08 #1

ej kom dette må da være muligt eller??

Synes godt om

keysersoze Ekspert

12. april 2004 - 18:31 #2

selvfølgelig alt efter hvad stien er til mappen i forhold til hvor du står...

strPhysicalPath = Server.MapPath("../" & request.querystring("mode"))

Synes godt om

zer Nybegynder

12. april 2004 - 18:42 #3

jeg får denne fejl...

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0035)
Filen blev ikke fundet
/upload/list.asp, line 12

Synes godt om

zer Nybegynder

12. april 2004 - 20:58 #4

halloooooooooo?

Synes godt om

zer Nybegynder

12. april 2004 - 20:58 #5

please hjælp?

Synes godt om

keysersoze Ekspert

12. april 2004 - 21:30 #6

har du angivet den korrekte sti til mappen?

Synes godt om

ellebaek Nybegynder

12. april 2004 - 21:33 #7

<% strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath("/" & request.querystring("mode"))

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

For Each objFileItem in objFolderContents
Response.write "<a href="
Response.Write(objFileItem.Name)
response.write ">"
Response.Write(objFileItem.Name & "<br>")
Response.write "</a>"
Next %>

Prøv det her muligvis..

Synes godt om

zer Nybegynder

13. april 2004 - 13:50 #8

hey r i skole atm.. men tjekker de tnår j kommer hjem :D håber det virker... det er somom at den leder efter en fil forstår bare ikk hvorfor..

Synes godt om

montago Praktikant

13. april 2004 - 15:03 #9

der er bl.a. nogle fejl du skal have rettet...

<% strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath("/" & request.querystring("mode"))

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

For Each objFileItem in objFolderContents
Response.write "<a href=""" & Request.Querystring("mode") & "/"
Response.Write objFileItem.Name
response.write """>"
Response.Write objFileItem.Name & "</a><br>"
Next %>

Synes godt om

zer Nybegynder

14. april 2004 - 18:39 #10

får stadug sdenne fejl

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0035)
Filen blev ikke fundet
/hmm.asp, line 5

Synes godt om

keysersoze Ekspert

14. april 2004 - 18:42 #11

<%
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath("/" & request.querystring("mode"))
response.write strPhysicalPath
%>

hvad står der så

Synes godt om

zer Nybegynder

15. april 2004 - 13:32 #12

c:\inetpub\wwwroot

Synes godt om

zer Nybegynder

15. april 2004 - 13:32 #13

roden af mit website...

Synes godt om

keysersoze Ekspert

15. april 2004 - 13:43 #14

Og hvor ligger din ASP-fil?

Hvis der kun står det, så kunne det meget vel tyde på at querystring("mode") er tom - så prøv lige at tjeck op på om det i den hele taget eksisterer og om den er fyldt ud

Synes godt om

zer Nybegynder

15. april 2004 - 15:34 #15

nej men der r noget jeg ikk forstå eligemeget hva ejg prøver på så r det somom scriptet vil finde sig selv? og hva skal Set objFile = objFSO.GetFile(strPhysicalPath til for :S
asp filen ligger på roden of sitet altså "c:\inetpub\wwwroot\fil.asp"
og så blvier det så "C:\inetpub\wwwroot\fil.asp?mode=billeder" og så r det meningen den skal vise den mappe der hedder billeder...

Synes godt om

keysersoze Ekspert

15. april 2004 - 15:49 #16

say what?

Synes godt om

montago Praktikant

15. april 2004 - 17:56 #17

de scripts som er posted... henter billeder fra mappen
C:\inetpub\wwwroot\Billeder\*.jpg

Synes godt om

zer Nybegynder

16. april 2004 - 09:55 #18

jamen den henter jo ingen ting den viser bar den her fejl

Fejltype:
Der opstod en Microsoft VBScript-kørselsfejl (0x800A0035)
Filen blev ikke fundet
/fil.asp, line 5

dette er linie 5: "Set objFile = objFSO.GetFile(strPhysicalPath)"

Synes godt om

keysersoze Ekspert

16. april 2004 - 10:06 #19

Hvis det eksempel jeg kom med 14/04-2004 18:42:27 KUN udskriver "c:\inetpub\wwwroot" så er der også noget galt for der burde den gå til "c:\inetpub\wwwroot\billeder" såfremt din querystring("mode") indeholde noget.

SÅ prøv lige at dobbelttjeck om den er sat korrekt

Synes godt om

zer Nybegynder

16. april 2004 - 10:09 #20

det r den... jeg trykker på linket http://localhost/fil.asp?mode=billeder er det ikk korrekt eller abr mig ;)?

Synes godt om

ellebaek Nybegynder

16. april 2004 - 10:31 #21

<% strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath("/" & request.querystring("mode"))

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)
'Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files

For Each objFileItem in objFolderContents
Response.write "<a href=""" & Request.Querystring("mode") & "/"
Response.Write objFileItem.Name
response.write """>"
Response.Write objFileItem.Name & "</a><br>"
Next %>

Det er fordi der ikke skal stå getFile tror jeg..

Prøv den her kode i stedet.

Synes godt om

keysersoze Ekspert

16. april 2004 - 10:31 #22

så prøv denne;

<%
strPathInfo = Request.ServerVariables("PATH_INFO")
strPhysicalPath = Server.MapPath("\" & request.querystring("mode"))
response.write "1: " & request.querystring("mode") & "<br>"
response.write "2: " & strPhysicalPath
%>

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
Persits.Upload Af bsn i ASP	9	17/09/202611:37	21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP	10	25/06/202622:20	04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP	4	18/05/202601:57	19/05/202613:33
Lost focus Af bsn i ASP	1	07/11/202415:34	01/01/202514:58
ASP classic Af bsn i ASP	8	28/10/202423:11	30/10/202422:51

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