Søg
Avatar billede cotus Nybegynder
03. marts 2004 - 20:32 Der er 7 kommentarer og
1 løsning

Vise alle filer i én mappe

Hva er command til at vise alle filer (billeder) i én mappe? F.eks. jeg angiver ../pictures og så viser den alle filerne i denne i en popdown-liste.

På forhånd tak.
Avatar billede nute Nybegynder
03. marts 2004 - 21:37 #1
der findes ikke en command til dette. du er nødt til at lave noget manuelt:

<%
Dim objFSO : Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder( Server.MapPath( "../pictures" ) )
Response.Write( "<select id=""sel"">" )
for each objFile in objFolder.Files
    Response.Write( "<option value=""" & objFile & """>" & objFile & "</option>" )
next
Response.Write( "</select>" )
%>
Avatar billede cotus Nybegynder
05. marts 2004 - 13:52 #2
Hvis jeg så gerne vil have vist det aktuelle billede man har valgt nedenunder, hvordan gør jeg så det? :)
Avatar billede nute Nybegynder
05. marts 2004 - 14:11 #3
Det eneste du skal skifte ud her, er

[SERVER] --> skal sættes til dit servernavn/domæne
[STI TIL FOLDER MED BILLEDER] --> stien til der dine billeder ligger.

så denne linje:

objImg.src = "http://[SERVER]/[STI TIL FOLDER MED BILLEDER]/" + objSel.options[  objSel.selectedIndex ].value;

skal se ud som dette:

objImg.src = "http://www.minserver.dk/folder/pictures/" + objSel.options[  objSel.selectedIndex ].value;

<%@language="vbscript"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<html>
<head>
    <title>Untitled</title>
    <script language="JavaScript" type="text/javascript">
    <!--
    function showPic( objSel )
    {
        var objImg = document.getElementById( "img" );
        if( objImg.style.visibility = "hidden" )
        {
            objImg.style.visibility = "";
        }
        objImg.src = "http://[SERVER]/[STI TIL FOLDER MED BILLEDER]/" + objSel.options[  objSel.selectedIndex ].value;
    }
    //-->
    </script>
</head>

<body>
<%
Dim objFSO : Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder( Server.MapPath( "../pictures" ) )
Response.Write( "<select id=""sel"" onchange=""showPic( this );"">" )
for each objFile in objFolder.Files
    Response.Write( "<option value=""" & objFile.Name & """>" & objFile & "</option>" )
next
Response.Write( "</select>" )
%>
<img src="" id="img" style="visibility:hidden;">
</body>
</html>

/nute
Avatar billede cotus Nybegynder
05. marts 2004 - 14:13 #4
Fattede jeg ikk en brik af :P Ka du ikk sætte det ind i min kode under der hvor der er en liste over alle billederne? :)

<form name="addnews" method="post" action="add.asp?id=addnews">
<table>
<tr>
<td>
<table>
<tr>
<td><b>Overskrift</b></td>
<td><input type="text" name="overskrift" size="20"></td>
</tr>
<tr>
<td><b>Forfatter</b></td>
<td><input type="text" name="forfatter" size="20"></td>
</tr>
<tr>
<td align="left" valign="top"><b>Beskrivelse (max 250 tegn)</b></td>
<td><textarea name="beskrivelse" rows="9" cols="40"></textarea></td>
</tr>
<tr>
<td align="left" valign="top"><b>Artikel</b></td>
<td><textarea name="beskrivelse" rows="12" cols="40"></textarea></td>
</tr>
</table>
</td>
<td align="left" valign="top">


<%
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath("..\pictures"))
%>


<SELECT NAME="billede" onChange=changePreview() size="12" style="border:1px solid #ECE9E1; background-color: #ECE9E1; font-family:Tahoma; font-size:8pt">
<% For Each objFile in objFolder.Files
if (inStr(1, objFile.Name, ".gif",1) > 0) OR (inStr(1, objFile.Name, ".jpg",1) > 0) OR (inStr(1, objFile.Name, ".jpeg",1) > 0) then  %>
  <option value="<%=objFile.Name%>"><%=objFile.Name%></option>
<% end if
  next %>
</select>
<%
Set objFolder = Nothing
Set objFile = Nothing
Set objFSO = Nothing
%>
<br>
<input type="submit" value="OPRET" style="font-family: Tahoma; font-size: 8pt; border-style: dotted; border-width: 1; padding-left: 4; padding-right: 4; padding-top: 1; padding-bottom: 1">
</td>
</tr>
</table>
</form>
Avatar billede nute Nybegynder
05. marts 2004 - 14:20 #5
hvad var det du ikke fattede ?? kom med de specifikke ting du ikke fattede istedet for at generalisere. jeg vil gerne forklare hvad jeg har gjort, men så må du komme med nogle konkrete spm ... jeg kan ikke bare sætte det ind i din kode, for du vil helt sikkert komme med nogle spm hvis jeg gjorde det

/nute
Avatar billede cotus Nybegynder
05. marts 2004 - 14:26 #6
Du fandt jeg vidst ud af det - men SKAL jeg skrive selve serveren, for jeg arbejde p.t. på en midlertidig server, og når det så skal uploades til en anden server, skal det skiftes ud, eller hvad?
Avatar billede cotus Nybegynder
05. marts 2004 - 14:28 #7
Det virkede ikke - nu udskriver den bare STIEN til alle billederne i en pop-down. Og min kode ser sådan ud:

<td align="left" valign="top">


<%
Dim objFSO : Set objFSO = Server.CreateObject( "Scripting.FileSystemObject" )
Set objFolder = objFSO.GetFolder( Server.MapPath( "../pictures" ) )
Response.Write( "<select id=""sel"" onchange=""showPic( this );"">" )
for each objFile in objFolder.Files
    Response.Write( "<option value=""" & objFile.Name & """>" & objFile & "</option>" )
next
Response.Write( "</select>" )
%>
<img src="" id="img" style="visibility:hidden;">


<br>


Og i HEAD:
<script language="JavaScript" type="text/javascript">
    <!--
    function showPic( objSel )
    {
        var objImg = document.getElementById( "img" );
        if( objImg.style.visibility = "hidden" )
        {
            objImg.style.visibility = "";
        }
        objImg.src = "STITILBILLEDER" + objSel.options[  objSel.selectedIndex ].value;
    }
    //-->
    </script>

Og STITILBILLEDER har jeg skrevet ind.
Avatar billede nute Nybegynder
05. marts 2004 - 14:34 #8
hmm ... du kan prøve at lave dem om til:

objImg.src = objSel.options[  objSel.selectedIndex ].value;

/nute
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
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
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 9 25/06/202622:20 29/06/202621:55
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
Classic - filer vist med sidste fil først Af bsn i ASP 5 23/05/202409:56 24/05/202400:02
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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
20/0815:01 Samsung smart TV Af postpeter@outlook.dk i Fri debat
20/0814:16 installere windows på separat diskpartition Af Malm i Windows
20/0813:43 Problem med mcafee Af Malm i Andet software
20/0813:39 Er tilstrækkelig antivirus incl på ny Samsung smartphone ? Af annam i Backup- & Antivirus
19/0819:46 Skift fra Microsoft365 til Microsoft 2024 Af 1Dorte i Office & Kontorpakker
White papers
Flere white papers »