Notifikationer

Markér alle som læst Log ud

cjannic Nybegynder

06. november 2001 - 21:37 Der er 4 kommentarer og
1 løsning

visning af upload-filer

Jeg har puslet lidt med SAFileupload - og har nu også fået det til at virke ! Se evt.
http://www.eksperten.dk/spm/129040

Men hvordan kan jeg vise indholdet af dette bibliotek, så medlemmerne selv kan hente relevante filer ned ?

Synes godt om

nordclc Nybegynder

06. november 2001 - 22:16 #1

Fra dette link: http://www.script.dk/sourcecode.asp?category=11&resourceId=190
har jeg downloaded nedenstående:
--------------------------------
<HTML>
<BODY>
<%
vPath = \"/\"
pPath = Server.MapPath( vPath )

Set fs = Server.CreateObject( \"Scripting.FileSystemObject\" )

Set myFolder = fs.GetFolder( pPath )
%>
<TABLE WIDTH=\"100%\" BORDER=\"1\" BGCOLOR=\"#FFFFFF\" BORDERCOLOR=\"#000000\">
<tr>
<td WIDTH=\"30%\">Fil Navn:</td>
<td WIDTH=\"30%\">File Type:</td>
<td WIDTH=\"30%\">File Size:</td>
</tr>
<% For Each thing in myFolder.Files %>
<tr>
<td WIDTH=\"30%\"> <%=thing.Name%></td>
<td WIDTH=\"30%\"> <%=thing.Type %></td>
<td WIDTH=\"30%\"> <%=thing.Size %> bytes</td>
</tr>
<% Next %>
</table>
 
<%
Dim strPath
Dim objFSO
Dim objFolder
Dim objItem

strPath = \"/\"

Set objFSO = Server.CreateObject(\"Scripting.FileSystemObject\")

Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
%>
<TABLE WIDTH=\"100%\" BORDER=\"1\" BGCOLOR=\"#FFFFFF\" BORDERCOLOR=\"#000000\">
<TR>
<TD WIDTH=\"30%\">Mappe navn:</TD>
<TD WIDTH=\"30%\">File Type:</TD>
<TD WIDTH=\"30%\">File Size:</TD>
</TR>
<%
For Each objItem In objFolder.SubFolders
If InStr(1, objItem, \"_vti\", 1) = 0 Then
%>
<TR>
<TD WIDTH=\"30%\"> <%= objItem.Name %></TD>
<TD WIDTH=\"30%\"> <%= objItem.Type %></TD>
<TD WIDTH=\"30%\"> <%= objItem.Size %> bytes</TD>
</TR>
<%
End If
Next
For Each objItem In objFolder.Files
%>

<%
Next \'objItem

Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>
</TABLE>

</BODY>
</HTML>

Synes godt om

nordclc Nybegynder

08. november 2001 - 10:08 #2

Her er lidt mere enkel løsning (husk at rette /eksperten.dk til dit eget foldernavn):

<html>
<body>
<%
Function ShowFiles(folderspec)
dim fs,f,fo,x,p
set fs=Server.CreateObject(\"Scripting.FileSystemObject\")
set f=fs.GetFolder(folderspec)
set fo=f.files
for each x in fo
p=p & x.name & \" \"
next
Response.Write(p)
set fo=nothing
set f=nothing
set fs=nothing
ShowFolderList = s
End Function

din_mappe = \"/eksperten.dk\"
Response.Write ShowFiles(Server.Mappath(din_mappe))
%>
</body>
</html>

---------------
//Claus

Synes godt om

nordclc Nybegynder

03. december 2001 - 09:41 #3

Har du fået løst problemet?

//Claus

Synes godt om

cjannic Nybegynder

03. december 2001 - 23:26 #4

Ja - tak ! Jeg beklager den meget lange ventetid, men problemet blev løst v.h.a. min webudbyder, som på serveren kunne give mulighed for at læse i de pågældende biblioteker.
Men tak for svaret og undskyld ventetiden !!!

Synes godt om

nordclc Nybegynder

03. december 2001 - 23:36 #5

Bare OK. Tak for pointne. ;o)

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 kopiere database fil på server Af bsn i ASP	7	31/10/202610:20	01/11/202620:28
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

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