Notifikationer

Markér alle som læst Log ud

cotus Nybegynder

26. maj 2002 - 18:21 Der er 4 kommentarer og
1 løsning

Avatare

Det jeg gerne vil have, er en SELECT-form, hvor der i options bliver udskrevet filnavnet på alle filerne i /mode/bruger/images/ - altså i <option></option> står filnavnet, og i <option value= står den fulde sti til billedet - ved siden af, skal der så være sådan, at når man vælger et billede på listen, kan man se det til venstre for!

ET EKSEMPEL:
/mode/bruger/images
- jacob.gif
- frederik.gif

<select>
<option value="/mode/bruger/images/jacob.gif">jacob.gif</option>
<option value="/mode/bruger/images/frederik.gif">frederik.gif</option>
</select>

Når jeg så vælger "frederik.gif" kommer /mode/bruger/images/frederik.gif frem til højre for!!!!

Jeg kan tænke mig, at det er noget FSO?

/cotus

Synes godt om

tmceu Praktikant

26. maj 2002 - 21:01 #1

Dette virker hos mig

<HTML>
<HEAD>
<SCRIPT language="javascript">

function imgchange()
{
varselectbox = document.all.selectbox.selectedIndex
document.all.img.src = document.all.selectbox.options[varselectbox].value;
}
</SCRIPT>
</HEAD>
<BODY>

<%

Dim objFileScripting, objFolder
Dim filename, filecollection, strDirectoryPath, strUrlPath

strDirectoryPath = Server.Mappath("images")

strUrlPath="images/"

'get file scripting object
Set objFileScripting = CreateObject("Scripting.FileSystemObject")

'Return folder object
Set objFolder = objFileScripting.GetFolder(strDirectoryPath)

'return file collection In folder

Set filecollection = objFolder.Files

Response.Write "<SELECT ID=""selectbox"" onchange=""imgchange()"">"

'create the links
For Each filename In filecollection
Filename=right(Filename,len(Filename)-InStrRev(Filename, "\"))
Response.Write "<OPTION VALUE=""" & strUrlPath & filename & """>" & filename & "</OPTION>" & vbCrLf
Next

Response.Write "</SELECT>"

Response.Write "<IMG name=""img"" SRC="""">"

%>
</BODY>
</HTML>

Synes godt om

cotus Nybegynder

27. maj 2002 - 10:14 #2

Hmm... når der ingen er valgt, så viser den bare et billede, som ikke kan findes - kan man ikke sætte en "default" at vise? F.eks. vil jeg gerne have kalle.gif som default?

Synes godt om

tmceu Praktikant

27. maj 2002 - 10:25 #3

Det nemmeste er bare at sætte den som kalle.gif direkte i tag'en fra starten.

Response.Write "<IMG name=""img"" SRC=""kalle.gif"">"

Synes godt om

cotus Nybegynder

27. maj 2002 - 10:30 #4

HVor skal den sættes ind??

Synes godt om

tmceu Praktikant

27. maj 2002 - 10:54 #5

Kig på min oprindelige kode :-)

i bunden skal du erstatte:

Response.Write "<IMG name=""img"" SRC="""">"

Med denne:

Response.Write "<IMG name=""img"" SRC=""kalle.gif"">"

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