Avatar billede 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 %>
----------------------------------------------------------------
Avatar billede zer Nybegynder
12. april 2004 - 18:08 #1
ej kom dette må da være muligt eller??
Avatar billede keysersoze Guru
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"))
Avatar billede 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
Avatar billede zer Nybegynder
12. april 2004 - 20:58 #4
halloooooooooo?
Avatar billede zer Nybegynder
12. april 2004 - 20:58 #5
please hjælp?
Avatar billede keysersoze Guru
12. april 2004 - 21:30 #6
har du angivet den korrekte sti til mappen?
Avatar billede 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..
Avatar billede 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..
Avatar billede 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 %>
Avatar billede 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
Avatar billede keysersoze Guru
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å
Avatar billede zer Nybegynder
15. april 2004 - 13:32 #12
c:\inetpub\wwwroot
Avatar billede zer Nybegynder
15. april 2004 - 13:32 #13
roden af mit website...
Avatar billede keysersoze Guru
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
Avatar billede 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...
Avatar billede keysersoze Guru
15. april 2004 - 15:49 #16
say what?
Avatar billede montago Praktikant
15. april 2004 - 17:56 #17
de scripts som er posted... henter billeder fra mappen
C:\inetpub\wwwroot\Billeder\*.jpg
Avatar billede 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)"
Avatar billede keysersoze Guru
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
Avatar billede 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 ;)?
Avatar billede 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.
Avatar billede keysersoze Guru
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
%>
Avatar billede 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.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

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