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

Kodeord


Reklame
Top 10 brugere
ASP
#NavnPoint
smorch 9259
Harlekin 1866
molokyle 1040
Steffanst.. 758
gandalf 657
smilly 564
gibson 560
cumano 530
MouseKeep.. 480
10  Random 410
vis inhold af mappe på server
Fra : Christian M. Nielsen


Dato : 02-01-02 18:47

Hej.

Jeg har lidt problemer med at få vist indholdet i en mappe på min server.
Det der er formålet med siden er at jeg skal kunne uploade nogle tekstfiler
til en side hvorefter folk kan gå ind på siden og downloade dem. Jeg har
dette stykke kode der kan vise indholdet i den mappe den selv ligger i, men
det er jo ikke smart at den også viser sig selv. Det jeg gerne vil have er
at koden viser indholdet af en anden mappe end den den selv ligger i.


altså:

mappe med denne kode hedder "log" mappen der skal vises indholdet er
"log/filer"

nedenstående er den kode jeg bruger for at vise indholdet.

-------------------------------------

Al hjælp er velkommen.

<% session.LCID = 1030 %>
<%
dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("PATH_INFO")
strStiInfo = Request.ServerVariables("server_name")
strPhysicalPath = Server.MapPath(strPathInfo)

Dim objFSO, objFile, objFileItem
Set objFSO = CreateObject("Scripting.FileSystemObject")

set objFile = objFSO.GetFile(strPhysicalPath)

set objFolder = objFile.ParentFolder

set objFolderContents = objFolder.Files
%>

<table border="0" cellpadding="3" cellspacing="0">

<%
For Each objFileItem in objFolderContents
Response.Write "<tr><td nowrap>"
Response.Write "<a href='"
Response.Write objFileItem.Name
Response.Write "'>"
Response.Write objFileItem.Name
Response.Write "</a>"
Response.Write "</td></tr>"
Next
%>
</table>


--

Mvh / Regards

-=< Christian >=-
ICQ: 25308942
http://www.cmnielsen.dk



 
 
Jakob Andersen (02-01-2002)
Kommentar
Fra : Jakob Andersen


Dato : 02-01-02 19:03


"Christian M. Nielsen" <christian@cmnielsen.dk> wrote in message
news:3c3347c7$0$278$ba624c82@nntp02.dk.telia.net...
> Det jeg gerne vil have er
> at koden viser indholdet af en anden mappe end den den selv ligger i.
> mappe med denne kode hedder "log" mappen der skal vises indholdet er
> "log/filer"


<% session.LCID = 1030 %>
<%

Dim objFSO, objFile, objFileItem
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\log\filer")
Set objFolderContents = objFolder.Files
%>
<table border="0" cellpadding="3" cellspacing="0">
<%
For Each objFileItem in objFolderContents
Response.Write "<tr><td nowrap>"
Response.Write "<a href='"
Response.Write objFileItem.Name
Response.Write "'>"
Response.Write objFileItem.Name
Response.Write "</a>"
Response.Write "</td></tr>"
Next
%>
</table>

--
Jakob Andersen



Christian M. Nielsen (02-01-2002)
Kommentar
Fra : Christian M. Nielsen


Dato : 02-01-02 20:33

<%

Dim objFSO, objFile, objFileItem
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("c:\log\filer")
Set objFolderContents = objFolder.Files
%>

jeg kan ikke rigtigt få det til at virke, ikke selv om jeg skriver den
relative sti til den mappe der skal vises. fx ligger den side der viser
indholdet på http://www.cmnielsen.dk/test/viskat.asp

den mappe jeg gerne vil have vist indholdet af er
http://www.cmnielsen.dk/test/files

(jeg har bemærket at der står "c:<log\filer" og har udskiftet det med div
varianter)

--

Mvh / Regards

-=< Christian >=-
ICQ: 25308942
http://www.cmnielsen.dk




Jesper Stocholm (02-01-2002)
Kommentar
Fra : Jesper Stocholm


Dato : 02-01-02 20:52

Christian M. Nielsen wrote in news:3c3360c9$0$260$ba624c82
@nntp02.dk.telia.net:

> <%
>
> Dim objFSO, objFile, objFileItem
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> Set objFolder = objFSO.GetFolder("c:\log\filer")
> Set objFolderContents = objFolder.Files
> %>
>
> jeg kan ikke rigtigt få det til at virke, ikke selv om jeg skriver den
> relative sti til den mappe der skal vises. fx ligger den side der viser
> indholdet på http://www.cmnielsen.dk/test/viskat.asp
>
> den mappe jeg gerne vil have vist indholdet af er
> http://www.cmnielsen.dk/test/files
>

så laver du bare denne modificering af koden:

Dim objFSO, objFile, objFileItem, strFolderPath
Set objFSO = CreateObject("Scripting.FileSystemObject")
strFolderPath = server.mapppath(".") & "\files"
Set objFolder = objFSO.GetFolder(strFolderPath)
Set objFolderContents = objFolder.Files

(det er de første fire linier i Jakobs script)

--
Jesper Stocholm - http://stocholm.dk

Gad vide hvor lang tid der går, inden danskerne
finder ud af, at de har købt katten i sækken til valget ...

Christian M. Nielsen (02-01-2002)
Kommentar
Fra : Christian M. Nielsen


Dato : 02-01-02 21:08

"Jesper Stocholm" <spam200112@stocholm.dk> wrote in message
news:Xns918AD41FD9317spamstocholmdk@192.38.208.81...
Microsoft VBScript runtime error '800a01b6'

Object doesn't support this property or method: 'mapppath'

/test/viskat.asp, line 17

> så laver du bare denne modificering af koden:
>
> Dim objFSO, objFile, objFileItem, strFolderPath
> Set objFSO = CreateObject("Scripting.FileSystemObject")
> strFolderPath = server.mapppath(".") & "\files"
> Set objFolder = objFSO.GetFolder(strFolderPath)
> Set objFolderContents = objFolder.Files
>
> (det er de første fire linier i Jakobs script)


Tror jeg må finde en anden måde, men tak for hjælpen

--

Mvh / Regards

-=< Christian >=-
ICQ: 25308942
http://www.cmnielsen.dk




Torben Brandt (02-01-2002)
Kommentar
Fra : Torben Brandt


Dato : 02-01-02 22:59

Christian M. Nielsen wrote in
dk.edb.internet.webdesign.serverside.asp:
> Object doesn't support this property or method: 'mapppath'
>
> /test/viskat.asp, line 17

Denne fejl skyldes blot en trykfejl. Der skulle stå 'map.path' i
stedet for 'mapppath'

/ Torben

--
Vil du lære at kode HTML, XHTML, CSS, SSI eller ASP ???
- Pædagogiske tutorials på dansk
- Kom godt i gang med koderne
KLIK HER! => http://www.html.dk/tutorials

Bjørn Fossen (02-01-2002)
Kommentar
Fra : Bjørn Fossen


Dato : 02-01-02 23:04


"Christian M. Nielsen" <christian@cmnielsen.dk> wrote in message
news:3c3368cb$0$282$ba624c82@nntp02.dk.telia.net...
> "Jesper Stocholm" <spam200112@stocholm.dk> wrote in message
> news:Xns918AD41FD9317spamstocholmdk@192.38.208.81...
> Microsoft VBScript runtime error '800a01b6'
>
> Object doesn't support this property or method: 'mapppath'
>
> /test/viskat.asp, line 17
>
> > så laver du bare denne modificering af koden:
> >
> > Dim objFSO, objFile, objFileItem, strFolderPath
> > Set objFSO = CreateObject("Scripting.FileSystemObject")
> > strFolderPath = server.mapppath(".") & "\files"
> > Set objFolder = objFSO.GetFolder(strFolderPath)
> > Set objFolderContents = objFolder.Files
> >

Server.MapPath - det var en P for meget




Jesper Stocholm (03-01-2002)
Kommentar
Fra : Jesper Stocholm


Dato : 03-01-02 11:50

Bjørn Fossen wrote in news:csLY7.16847$KQ3.248469@news1.oke.nextra.no:

>
> "Christian M. Nielsen" <christian@cmnielsen.dk> wrote in message
> news:3c3368cb$0$282$ba624c82@nntp02.dk.telia.net...
>> "Jesper Stocholm" <spam200112@stocholm.dk> wrote in message
>> news:Xns918AD41FD9317spamstocholmdk@192.38.208.81... Microsoft
>> VBScript runtime error '800a01b6'
>>
>> Object doesn't support this property or method: 'mapppath'
>
> Server.MapPath - det var en P for meget
>

ups ... sorry ... :)

--
Jesper Stocholm - http://stocholm.dk

Gad vide hvor lang tid der går, inden danskerne
finder ud af, at de har købt katten i sækken til valget ...

Søg
Reklame
Statistik
Spørgsmål : 177554
Tips : 31968
Nyheder : 719565
Indlæg : 6408852
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste