Notifikationer

Markér alle som læst Log ud

mvk Nybegynder

05. maj 2003 - 14:28 Der er 21 kommentarer og
1 løsning

Random mediafil

hvordan laver man en random funktion der går ned i et defineret bibliotek og tager den random fil (jpg, swf, gif osv).
det skal ligges i cellen mediaholder: http://www.capitolshop.dk/1index.asp

Synes godt om

eagleeye Praktikant

05. maj 2003 - 14:36 #1

Prøv med dette:

<%
mappenavn = "mappepaadit/" '<---- Angiv hvilekn folder billeder er i
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files

For Each f in files
if InStr(1,"gif,jpg,jpeg,bmp", LCase(fs.GetExtensionName(f.name))) > 0 then
filList = filList & "," & f.name
end if
next
filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))

Response.Write "<img src=""" & billedsrc & """>"

Set fs = Nothing
Set files = Nothing
%>

Synes godt om

eagleeye Praktikant

05. maj 2003 - 14:43 #2

Hvil tillade flere forskellige typer filer kan du rette i denne linje:

if InStr(1,"gif,jpg,jpeg,bmp", LCase(fs.GetExtensionName(f.name))) > 0 then

Hvis swf også skal med:

if InStr(1,"gif,jpg,jpeg,bmp,swf", LCase(fs.GetExtensionName(f.name))) > 0 then

Synes godt om

mvk Nybegynder

05. maj 2003 - 14:48 #3

okay - tak eagle
prøver at ligge det ind nu

Synes godt om

mvk Nybegynder

05. maj 2003 - 14:55 #4

hold da kæft hvor er det blæret! - det virker første gang :)
.
kan jeg prædefinere min celle så billedet tilpasser sig hvis det er for lille er stort ?

Synes godt om

mvk Nybegynder

05. maj 2003 - 14:59 #5

tak for hjælpen eagle :)

Synes godt om

eagleeye Praktikant

05. maj 2003 - 15:02 #6

Hmm det ved jeg faktsik ikke om man kan, man kan sætte width="xxx" i en <td> men der er ikke en hight.

Synes godt om

mvk Nybegynder

05. maj 2003 - 15:03 #7

Synes godt om

mvk Nybegynder

05. maj 2003 - 15:21 #8

hvis du har styr på dropdown menuer er du velkommen på: http://www.eksperten.dk/spm/348707 :)

Synes godt om

mvk Nybegynder

05. maj 2003 - 19:38 #9

eagle - jeg tror ikke den virker med swf
når den kommer til swf går den i stå
http://www.capitolshop.dk/1index.asp
sådan ser koden ud -

<%
mappenavn = "images/frontend/mediaholder/" '<---- Angiv hvilken folder filerne er i
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files

For Each f in files
if InStr(1,"gif,jpg,jpeg,bmp,swf", LCase(fs.GetExtensionName(f.name))) > 0 then
filList = filList & "," & f.name
end if
next
filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))

Response.Write "<img src=""" & billedsrc & """>"

Set fs = Nothing
Set files = Nothing
%>

Synes godt om

mvk Nybegynder

06. maj 2003 - 11:39 #10

For Each f in files
if InStr(1,"gif,jpg,jpeg,bmp,swf", LCase(fs.GetExtensionName(f.name))) > 0 then
filList = filList & "," & f.name
end if

...
burde den så ikke kunne hive flash filer ind ?

Synes godt om

eagleeye Praktikant

06. maj 2003 - 13:02 #11

Hvordan viser man et swf fil ??
Det skal vel ikke i en <img> tag som et billede?

Synes godt om

mvk Nybegynder

06. maj 2003 - 15:05 #12

src="images/frontend/mediaholder/ss10.swf"
den skal vist smides ind i en object

<body>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="504" height="280">
<param name="movie" value="images/frontend/mediaholder/ss10.swf">
<param name="quality" value="high">
<embed src="images/frontend/mediaholder/ss10.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="504" height="280"></embed></object>
</body>

Synes godt om

mvk Nybegynder

07. maj 2003 - 12:49 #13

how du nogen ide til hvordan kan man tage swf med ?

Synes godt om

eagleeye Praktikant

07. maj 2003 - 20:07 #14

Det må blive noget med i stedet for denne linje:

Response.Write "<img src=""" & billedsrc & """>"

Så skal man test om det er en swf fil som skal vises specilet eller et bille som skal vise med et img tag.:

if Right(billedsrc,3) = "swf" then
'Flash object
%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="504" height="280">
<param name="movie" value="images/frontend/mediaholder/<%=billedsrc%>">
<param name="quality" value="high">
<embed src="images/frontend/mediaholder/<%=billedsrc%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="504" height="280"></embed></object>
%>
else
'Billede fil
Response.Write "<img src=""" & billedsrc & """>"
end if

Synes godt om

mvk Nybegynder

09. maj 2003 - 08:53 #15

<%
mappenavn = "images/frontend/mediaholder/" '<---- Angiv hvilken folder filerne er i
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files

For Each f in files
if InStr(1,"swf,gif,jpg,jpeg,bmp", LCase(fs.GetExtensionName(f.name))) > 0 then
filList = filList & "," & f.name
end if
next
filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))

if Right(billedsrc,3) = "swf" then
'Flash object
<%
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="504" height="280">
<param name="movie" value="images/frontend/mediaholder/<%=billedsrc%>">
<param name="quality" value="high">
<embed src="images/frontend/mediaholder/<%=billedsrc%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="504" height="280"></embed></object>
<%
else
'Billede fil
Response.Write "<img src=""" & billedsrc & """>"
end if"

Set fs = Nothing
Set files = Nothing
%>

jeg kan ikke helt få det til at virke hvor jeg bruger <% og %>

Synes godt om

eagleeye Praktikant

09. maj 2003 - 08:56 #16

Prøv sådan her. Stien er jo faktisk angive i billedsrc så der skal ikke stil med:

<%
mappenavn = "images/frontend/mediaholder/" '<---- Angiv hvilken folder filerne er i
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files

For Each f in files
if InStr(1,"swf,gif,jpg,jpeg,bmp", LCase(fs.GetExtensionName(f.name))) > 0 then
filList = filList & "," & f.name
end if
next
filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))

if Right(billedsrc,3) = "swf" then
'Flash object
<%
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="504" height="280">
<param name="movie" value="<%=billedsrc%>">
<param name="quality" value="high">
<embed src="<%=billedsrc%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="504" height="280"></embed></object>
<%
else
'Billede fil
Response.Write "<img src=""" & billedsrc & """>"
end if"

Set fs = Nothing
Set files = Nothing
%>

Synes godt om

mvk Nybegynder

09. maj 2003 - 09:02 #17

Microsoft VBScript compilation error '800a0400'
Expected statement
/1index.asp, line 214
<%
^

linie 214 har: <%

...
i denne linie 216 tager den bla dette med:
<param name="movie" value="<%=billedsrc%>">
og "> står i cellen som om den ikke genkender det

Synes godt om

eagleeye Praktikant

09. maj 2003 - 09:05 #18

Jeg har vist fået vendt den ene forkert:

<%
mappenavn = "images/frontend/mediaholder/" '<---- Angiv hvilken folder filerne er i
Set fs = CreateObject("Scripting.FileSystemObject")
Set files = fs.GetFolder(server.mappath(mappenavn)).Files

For Each f in files
if InStr(1,"swf,gif,jpg,jpeg,bmp", LCase(fs.GetExtensionName(f.name))) > 0 then
filList = filList & "," & f.name
end if
next
filList = mid(filList,2)
billeder = Split(filList,",")
randomize
billedsrc = mappenavn & billeder(Int(rnd * (Ubound(billeder)+1)))

if Right(billedsrc,3) = "swf" then
'Flash object
%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="504" height="280">
<param name="movie" value="<%=billedsrc%>">
<param name="quality" value="high">
<embed src="<%=billedsrc%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="504" height="280"></embed></object>
<%
else
'Billede fil
Response.Write "<img src=""" & billedsrc & """>"
end if"

Set fs = Nothing
Set files = Nothing
%>

Synes godt om

mvk Nybegynder

09. maj 2003 - 09:08 #19

hold kæft hvor er det blæret!!!
...
killer ass script eagle
.
jeg er virkelig glad for al din hjælp :)
ha en super fredag

Synes godt om

mvk Nybegynder

09. maj 2003 - 09:28 #20

vildt - jeg har lige set at du har eagleeye 131.616 point . det er fanme for vildt. hvis du mangler har jeg 76 du kan låne ;)

Synes godt om

mvk Nybegynder

19. maj 2003 - 12:15 #21

eagle - hvis du har tid vi ldu så ikke se på:
http://www.capitolshop.dk/newindex.asp
er der nogen måde hvorpå jeg kan definere at billederne skal have <param name="SCALE" value="exactfit"> ligesom med Flash filmen - når der er et billede ryget formatet på siden, men når det er Flash filmen den henter står alt perfekt

Synes godt om

mvk Nybegynder

28. oktober 2003 - 14:46 #22

hej eagle
jeg ved godt det er lukket men kan du svare på hvorfor det ikke virker når jeg skriver:

Response.Write "<img src=""" & billedsrc & """ height="290">"

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	7	17/09/202611:37	I går 15:45
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