Notifikationer

Markér alle som læst Log ud

no_doubt Nybegynder

01. juni 2003 - 16:46 Der er 72 kommentarer og
1 løsning

billeder i mappe

er der en der ligger inde med det script hvor billederne i en mappe bliver vist som små...

mappen som skal vise billederne er defineret som VisMappe=xxxx Mappen er xxxx

Synes godt om

sqren Nybegynder

01. juni 2003 - 16:50 #1

http://www.hotscripts.com/cgi-bin/dload.cgi?ID=8005

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 16:52 #2

på en hjemmeside skal det nok lige siges, det skal bare være sådan at mappen bliver defineret i fso som overstående og vise sådan
1 2 3
4 5 6
Næste side

Synes godt om

eagleeye Praktikant

01. juni 2003 - 16:54 #3

Jeg har dette:

<html>
<head>
<title></title>
</head>

<body bgcolor="A0B3C8">
<div align="center">

<table width="100%" border="0">
<%
billedeSti = "/billeder/"
antalBillederPrSide = 6
antalBillederPrRekke = 3

if Request.QueryString("billede") = "" then
start = request.querystring("start")
if start = "" then start = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))

Set fc = f.Files
For Each billed in fc
if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
arrayBuild = arrayBuild & billed.name & "|"
end if
next
if arrayBuild <> "" then arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))

myArray = Split(arrayBuild, "|")

Antalsider = int(ubound(myarray) / antalBillederPrSide)
antal = 0
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<TR>"
%>
<td ><p align="center">
<a href="?billede=<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82">
</a></td>
<%
else
nesteside = 1
end if

antal = antal + 1
if antal = antalBillederPrRekke then
Response.Write "</TR>"
antal = 0
end if
next
if antal > 0 then Response.Write "</TR>"
%>
</table>
<center>
<%
if start <> 0 then
response.write "<a href=""?start=" & (start - antalBillederPrSide) & """>Forrige</a>"
end if
response.write(" ")
if nesteside <> 1 then
response.write "<a href=""?start=" & (start + antalBillederPrSide) & """>Næste</a>"
end if
%>
</center>
<%
else
'Vis billedet
%>
<tr><td align="center">
<img SRC="<%=Request.QueryString("billede")%>" border="1">
<p align="center"><a href="java script:history.back();">Tilbage</a></p>
</td>
</tr>
</table>
<%
end if %>
</div>
</body>
</html>

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 17:00 #4

er det muligt at bare kan vise mig hvordan jeg får vist de 6 billeder som omtalt udfra Vismappe angivelsen

Synes godt om

eagleeye Praktikant

01. juni 2003 - 17:03 #5

Du kan med disse 3 linjer bestemme hvor billerne skal tages fra samt hvor man billder der skal være på siden og hvor mange der skal være på hver række:

Den føste angiver stien til billederne (vismappe), den hedder bare billedeSti her:
billedeSti = "/billeder/"

Denne bruges til at angive hvor mange billeder der skal vise på siden
antalBillederPrSide = 6

Denne bruges til at angive hvor mange billeder der skal vise i en række
antalBillederPrRekke = 3

Lig nu vil det se sådan her ud:

[1][2][3]
[4][5][6]
næste

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 17:05 #6

Hvordan ser det ud rent praktisk når de skal hentes ud, noget med for each file in... osv

Synes godt om

eagleeye Praktikant

01. juni 2003 - 17:07 #7

Denne lille del hendter alle billede filerne:

For Each billed in fc
if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
arrayBuild = arrayBuild & billed.name & "|"
end if
next

og gemmer dem i en listen som bliver lavet til et array.

Når man udskiver så det fra arrayet her:

for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 17:09 #8

billed ?

Synes godt om

eagleeye Praktikant

01. juni 2003 - 17:11 #9

billed er et object af type file.:
Dette bruges til at finde filerne med

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))

Set fc = f.Files '<-------- Smider filerne over i variablen fc
For Each billed in fc '<------ Looper gennem filerne

Synes godt om

eagleeye Praktikant

01. juni 2003 - 17:12 #10

Det hvade måske været mere korrekt at kalde billed for fil, da det ikke nødvendigvis er en billede fil.

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 17:15 #11

so far so good, hvordan så med at få dem frem *g*

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 17:16 #12

indtil videre
<%
If request.querystring("VisMappe") > " " then

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(vismappe))

Set fc = f.Files
For Each billed in fc

if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
arrayBuild = arrayBuild & billed.name & "|"
end if
next
end if%>

Synes godt om

eagleeye Praktikant

01. juni 2003 - 17:27 #13

Ja?

Det som udskriver billederne er dette, den regner ud hvor den skal state i arrayet af filer og slutte i føste linje nedenfor. Så et billede ikke vise på to sider.

for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<TR>"
%>
<td ><p align="center">
<a href="?billede=<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82">
</a></td>
<%
else
nesteside = 1
end if

antal = antal + 1
if antal = antalBillederPrRekke then
Response.Write "</TR>"
antal = 0
end if
next

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 17:30 #14

http://80.162.124.90/amsterdam/billeder.asp?VisMappe=Dag%202

intet
<%
If request.querystring("VisMappe") > " " then

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(vismappe))

Set fc = f.Files
For Each billed in fc

if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
arrayBuild = arrayBuild & billed.name & "|"
end if
next
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<TR>"
%>
<td ><p align="center">
<a href="?billede=<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82">
</a></td>
<%
else
nesteside = 1
end if

antal = antal + 1
if antal = antalBillederPrRekke then
Response.Write "</TR>"
antal = 0
end if
next

end if%>

Synes godt om

eagleeye Praktikant

01. juni 2003 - 17:34 #15

Du har også lavet helt om i koden ;)

Denne i min kode:
if Request.QueryString("billede") = "" then

Er fodi samme fil bruger brugt til at vise billedet i. Vi du havde en fil så man kan skrive hvilken mapppe den skal liste filerne i?

I dette kode:
If request.querystring("VisMappe") > " " then

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(vismappe))

Skal du havde hendte vismappe fra querystringen. eks:

If request.querystring("VisMappe") > " " then

vismappe = request.querystring("VisMappe")
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(vismappe))

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 17:37 #16

Hvordan vil du mene alt mellem
If request.querystring("VisMappe") > " " then
-
end if

skal se ud så

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 17:38 #17

VisMappe er en querystring såå den mappe skal bare opsnappes et sted

Synes godt om

eagleeye Praktikant

01. juni 2003 - 17:39 #18

Det skal vel bare være <> ""

If request.querystring("VisMappe") <> "" then

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 17:41 #19

Jamen alt imellem denne if ?

Synes godt om

eagleeye Praktikant

01. juni 2003 - 17:45 #20

Vil du bruge det script jeg har lavet eller vil du lave det helt forfra?

Hvis du genbruger min kode kan du jo ligge stien ind i denne i stedet for den er fast:
billedeSti = "/billeder/"

Sådan her:
billedeSti = Request.QueryString("vismappe")

Hvad skal der ske hvis man klikker på et billede?? Lige nu åbnes billede i samme side.

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 18:25 #21

Jamen lad mig bare få det du har, tilpasset *s*
når man klikker på et billede må det godt blive stort

Synes godt om

eagleeye Praktikant

01. juni 2003 - 18:34 #22

Forslag til koden..:

<html>
<head>
<title></title>
</head>

<body bgcolor="A0B3C8">
<div align="center">

<table width="100%" border="0">
<%
visMappe = Request.QueryString("vismappe")
if visMappe <> "" then
billedeSti = visMappe
antalBillederPrSide = 6
antalBillederPrRekke = 3

start = request.querystring("start")
if start = "" then start = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))

Set fc = f.Files
For Each billed in fc
if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
arrayBuild = arrayBuild & billed.name & "|"
end if
next
if arrayBuild <> "" then arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))

myArray = Split(arrayBuild, "|")

Antalsider = int(ubound(myarray) / antalBillederPrSide)
antal = 0
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<TR>"
%>
<td ><p align="center">
<a href="?billede=<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82">
</a></td>
<%
else
nesteside = 1
end if

antal = antal + 1
if antal = antalBillederPrRekke then
Response.Write "</TR>"
antal = 0
end if
next
if antal > 0 then Response.Write "</TR>"
%>
</table>
<center>
<%
if start <> 0 then
response.write "<a href=""?visMappe="&visMappe&"&start=" & (start - antalBillederPrSide) & """>Forrige</a>"
end if
response.write(" ")
if nesteside <> 1 then
response.write "<a href=""?visMappe="&visMappe&"&start=" & (start + antalBillederPrSide) & """>Næste</a>"
end if
end if
%>
</center>
</div>
</body>
</html>

Synes godt om

eagleeye Praktikant

01. juni 2003 - 18:35 #23

Dette

<td ><p align="center">
<a href="?billede=<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82">
</a></td>

Skal rettes til dette:

<td ><p align="center">
<a href="<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="116" HEIGHT="82">
</a></td>

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 18:40 #24

http://80.162.124.90/amsterdam/billeder.asp?VisMappe=Dag%201

den vil ikke

Synes godt om

eagleeye Praktikant

01. juni 2003 - 18:45 #25

Stien blev ikke fundet

Synes godt om

eagleeye Praktikant

01. juni 2003 - 18:47 #26

Du skal enten overføre hele stien fra root eks hvis dag 1 ligger i root folderen/

?VisMappe=/Dag 1

HVis ikke så angiv hele stien

?VisMappe=/images/folder/Dag 1

Eller skal du rette i denne linje så den medtager de føster foldere.
billedeSti = visMappe

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 18:54 #27

hmm hvad skal den hedde hvis der hvor billede.asp ligger er "roden" derunde ligger billeder, og under det, ligger de mapper der bliver listet på
http://80.162.124.90/amsterdam/billeder.asp?VisMappe=Dag%201

Synes godt om

eagleeye Praktikant

01. juni 2003 - 19:03 #28

Det er sådan set ligemeget hvor selv ASP filen ligger. visMappe skal inde holde hele stien fra root (/) til om med navnet på den folder som filerne skal listes fra.

?visMappe=/billeder/dag%201

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 19:05 #29

Nu hjælper det
http://80.162.124.90/amsterdam/billeder.asp?visMappe=Dag%202
Men de hvordan se står
samt det alle kanter skal være sort og skriften skal være arial, 10 og sort..

vil du have file, så er det nok nemmere at rette

Synes godt om

eagleeye Praktikant

01. juni 2003 - 19:07 #30

??
Men de hvordan se står
samt det alle kanter skal være sort og skriften skal være arial, 10 og sort..

Ja så prøv at vise filen.

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 19:12 #31

se:
http://80.162.124.90/amsterdam/billeder.asp?visMappe=Dag%202&start=0
alle billederne skal stå tæt, samt centret, kanterne på billederne sorte
skriften på frem og tilbage: arial, 10, sort
den ligger her
http://80.162.124.90/amsterdam/billeder.zip

Synes godt om

eagleeye Praktikant

01. juni 2003 - 19:17 #32

PRøv at lave dette styk kode i filen:

if start <> 0 then
response.write "<a href=""?visMappe="&visMappe&"&start=" & (start - antalBillederPrSide) & """>Forrige</a>"
end if
response.write(" ")
if nesteside <> 1 then
response.write "<a href=""?visMappe="&visMappe&"&start=" & (start + antalBillederPrSide) & """>Næste</a>"
end if

Om til dette:

<font face="Arial" size="2" color="#000000">
<%
if start <> 0 then
response.write "<a href=""?visMappe="&visMappe&"&start=" & (start - antalBillederPrSide) & """>Forrige</a>"
end if
response.write(" ")
if nesteside <> 1 then
response.write "<a href=""?visMappe="&visMappe&"&start=" & (start + antalBillederPrSide) & """>Næste</a>"
end if
%>
</font>
<%

Grunden til der er blå kant omkring er fordi det er et link. Så hvis det skal være sort så skal link farven fjernes.

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 19:33 #33

skriften blev ikke sort.. og de står stadig lidt underligt

Synes godt om

eagleeye Praktikant

01. juni 2003 - 19:36 #34

Igen det et link, og links er default blå.

Synes godt om

eagleeye Praktikant

01. juni 2003 - 19:37 #35

Hvis links skal være sorte så tilføj dette til body tagen

alink=Black vlink=Black link=Black

eks: <body alink=Black vlink=Black link=Black>

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 19:40 #36

http://80.162.124.90/amsterdam/billeder.asp?VisMappe=Dag%202
Vil du ikke lige have den side.. den fucker up...

Synes godt om

eagleeye Praktikant

01. juni 2003 - 19:44 #37

Lige før var den da ok. med 3 ved siden af hinanden.

Så fylder de nok for meget prøv at sætte ned ekssom her til 100:

<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" WIDTH="100" HEIGHT="82">

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 19:46 #38

Nope, heller ikke.

Synes godt om

eagleeye Praktikant

01. juni 2003 - 19:48 #39

Ligefør var den der. Så det måske fordi der mangler en tabel tag et sted.

Synes godt om

eagleeye Praktikant

01. juni 2003 - 19:49 #40

Du har to af disse de skal kun være i bunden af filen

</body>

</html>

Synes godt om

eagleeye Praktikant

01. juni 2003 - 19:52 #41

Prøv at finde dette sted.

</td>
<td width="526" style="border-style: solid; border-width: 1" bordercolor="#000000" valign="top">
<table border="0" width="609" height="133">
<tr>

og ret det til:

<table border="0" width="609" height="133">
<tr>

Synes godt om

eagleeye Praktikant

01. juni 2003 - 19:57 #42

Det er kommet en masse <TR>'er med for hvert billeder ser sådan her ud:

<tr>
<td width="980" colspan="2" height="20" valign="top">
<p align="center">
<a href="billeder/Dag 2/IMG_0003.JPG">
<img SRC="billeder/Dag 2/IMG_0003.JPG" border="1" color="black" HEIGHT="82" style="border: 1 solid #000000"></TR><TR>

De sidste to </TR><TR> skal ihvertilfælde fjernes.

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 20:44 #43

nu har jeg snart set mig får død på det her
Mangler:
Ordene: Billeder og billeder fra turen, samt datoen, skal stå samme sted som på alle de andre sider, desuden, må billederne godt stå mere tæt, og frem og tilbage linksne skal være centret
http://80.162.124.90/amsterdam/billeder.asp?VisMappe=Dag%202
http://80.162.124.90/amsterdam/billeder2.zip

Synes godt om

eagleeye Praktikant

01. juni 2003 - 20:55 #44

Hurtigt rettet til prøv med det.:

<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Studietur til Amsterdam</title>
</head>
<body bgcolor=Black vlink=Black link=Black>
<center>
<div align="center">

<table border="0" width="683">
<tr>
<td width="677" colspan="2" style="border-style: solid; border-width: 1" bordercolor="#000000"><img border="0" src="logo.gif" width="675" height="70"></td>
</tr>

<tr>
<td width="145" style="border-style: solid; border-width: 1" bordercolor="#000000" valign="top">

</td>
<td width="526" style="border-style: solid; border-width: 1" bordercolor="#000000" valign="top">

<table border="0" height="173">
<tr>
<td>
<p align="left"><font face="Arial" size="2">Billeder</font>
</td>
<td align="right"><font face="Arial" size="2"><script type="text/javascript">
document.write(new Date().toLocaleString());
</script> </font>
</td>
<td>
<font face="Arial" size="2">Billeder fra turen</font>
</td>
</tr>
</table>

<%
sti = "billeder/"
VisMappe = sti & request("VisMappe")
ShowSubLink = request("VisMappe")
strPathInfo = VisMappe

strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)

For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.Write "<li>" & "<a href=""" & CurFile & "?VisMappe=" & ShowSubLink & ""
Response.Write(Replace(Folder.Name, " ", "%20"))
response.write """><font color=""#000000"">"
Response.Write Folder.Name
Response.Write "</font><br>"
End if
Next

Set objFSO = Nothing
%>
<%
If request.querystring("VisMappe") <> "" then

visMappe = Request.QueryString("vismappe")
if visMappe <> "" then
billedeSti = "billeder/" & visMappe
antalBillederPrSide = 6
antalBillederPrRekke = 3

start = request.querystring("start")
if start = "" then start = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))

Set fc = f.Files
For Each billed in fc
if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
arrayBuild = arrayBuild & billed.name & "|"
end if
next
if arrayBuild <> "" then arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))

myArray = Split(arrayBuild, "|")

%>
<table border="0">
<%
Antalsider = int(ubound(myarray) / antalBillederPrSide)
antal = 0
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<TR>"
%>
<td>
<a href="<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" HEIGHT="82" style="border: 1 solid #000000" width="100">
</td>
<%
else
nesteside = 1
end if

antal = antal + 1
if antal = antalBillederPrRekke then
Response.Write "</TR>"
antal = 0
end if
next
if antal > 0 then Response.Write "</TR>"
%>
</table>

<table><tr><td>
<font face="Arial" size="2" color="#000000">
<%
if start <> 0 then
response.write "<a href=""?visMappe="&visMappe&"&start=" & (start - antalBillederPrSide) & """><font face='Arial' size='2' color='#000000'>Forrige</font></a>"
end if
response.write(" ")%>
<%if nesteside <> 1 then
response.write "<a href=""?visMappe="&visMappe&"&start=" & (start + antalBillederPrSide) & """><font face='Arial' size='2' color='#000000'>Næste side</font></a>"
end if
%>
</font>
</td></tr></table>

<%
end if

end if%>

</td>
</tr>
</table>

</center>
</div>
</body>
</html>

Synes godt om

cdc Novice

01. juni 2003 - 21:03 #45

eagleeye--> hvad hvis man har problemer med at bruge denne : ("Scripting.FileSystemObject")

Synes godt om

cdc Novice

01. juni 2003 - 21:04 #46

sorry for evnt. spam :o)

Synes godt om

eagleeye Praktikant

01. juni 2003 - 21:05 #47

Det er den som bruges til at finde filerne med.

Synes godt om

cdc Novice

01. juni 2003 - 21:07 #48

har prøvet dit script her, har fulgt med i det skjulte men jeg for fejl med denne, mener at kunne huske at min server ikke vil godtage denne grundet sikkerheds hensyn

Synes godt om

eagleeye Praktikant

01. juni 2003 - 21:08 #49

Er det din egen server? Har du Norton Antivirus installeret?

Synes godt om

no_doubt Nybegynder

01. juni 2003 - 21:10 #50

Ja. Ja

Synes godt om

cdc Novice

01. juni 2003 - 21:10 #51

venter lige til du har hjulpet no_doubt

Synes godt om

eagleeye Praktikant

01. juni 2003 - 21:12 #52

Kommentar 01/06-2003 21:08:05 var til /cdc

Synes godt om

cdc Novice

01. juni 2003 - 21:14 #53

ikke min egen server men fik besked af uydbyder at bruge denne i stedet for:

ISSecureFile.FileSystemObject

Synes godt om

no_doubt Nybegynder

02. juni 2003 - 19:57 #54

virker ikke eagle

Synes godt om

eagleeye Praktikant

02. juni 2003 - 20:21 #55

Det virker vel fint, det står bare ikke som du ønsker..

Prøv med ddette:

<html>

<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>Studietur til Amsterdam</title>
</head>
<body alink=Black vlink=Black link=Black>
<center>
<div align="center">

<table border="0" width="683">
<tr>
<td width="677" colspan="2" style="border-style: solid; border-width: 1" bordercolor="#000000"><img border="0" src="logo.gif" width="675" height="70"></td>
</tr>

<tr>
<td width="145" style="border-style: solid; border-width: 1" bordercolor="#000000" valign="top">

</td>
<td width="526" style="border-style: solid; border-width: 1" bordercolor="#000000" valign="top">

<table border="0" width="100%">
<tr>
<td>
<p align="left"><font face="Arial" size="2">Billeder</font>
</td>
<td align="center"><font face="Arial" size="2"><script type="text/javascript">
document.write(new Date().toLocaleString());
</script> </font>
</td>
<td align="right">
<font face="Arial" size="2">Billeder fra turen</font>
</td>
</tr>
</table>

<%
sti = "billeder/"
visMappe = sti & request("VisMappe")
ShowSubLink = request("VisMappe")
strPathInfo = VisMappe

strPhysicalPath = Server.MapPath(strPathInfo)

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(strPhysicalPath)

For each Folder in objFolder.SubFolders
If Left(Folder.Name,1)<>"_" Then
Response.Write "<li>" & "<a href=""" & CurFile & "?VisMappe=" & ShowSubLink & ""
Response.Write(Replace(Folder.Name, " ", "%20"))
response.write """><font color=""#000000"">"
Response.Write Folder.Name
Response.Write "</font><br>"
End if
Next

Set objFSO = Nothing
%>
<%
If request.querystring("VisMappe") <> "" then

visMappe = Request.QueryString("vismappe")
if visMappe <> "" then
billedeSti = "billeder/" & visMappe
antalBillederPrSide = 6
antalBillederPrRekke = 3

start = request.querystring("start")
if start = "" then start = 0

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(server.mappath(billedeSti))

Set fc = f.Files
For Each billed in fc
if inStr(1,"gif,jpg,jpeg,bmp",LCase(fs.GetExtensionName(billed.name))) > 0 then
arrayBuild = arrayBuild & billed.name & "|"
end if
next
if arrayBuild <> "" then arrayBuild = left(arrayBuild, (len(arrayBuild) - 1))

myArray = Split(arrayBuild, "|")

%>
<center>
<table border="0" width="100%">
<%
Antalsider = int(ubound(myarray) / antalBillederPrSide)
antal = 0
for i = start to (start + antalBillederPrSide-1)
if not i > ubound(myarray) then
if antal = 0 then Response.Write "<TR>"
%>
<td width="33%" align="center">
<a href="<%=billedeSti%>/<%=myArray(i)%>">
<img SRC="<%=billedeSti%>/<%=myArray(i)%>" border="1" color="black" HEIGHT="82" style="border: 1 solid #000000" width="100">
</td>
<%
else
nesteside = 1
end if

antal = antal + 1
if antal = antalBillederPrRekke then
Response.Write "</TR>"
antal = 0
end if
next
if antal > 0 then Response.Write "</TR>"
%>
</table>
</center>

<center>
<table><tr><td>
<font face="Arial" size="2" color="#000000">
<%
if start <> 0 then
response.write "<a href=""?visMappe="&visMappe&"&start=" & (start - antalBillederPrSide) & """><font face='Arial' size='2' color='#000000'>Forrige</font></a>"
end if
response.write(" ")%>
<%if nesteside <> 1 then
response.write "<a href=""?visMappe="&visMappe&"&start=" & (start + antalBillederPrSide) & """><font face='Arial' size='2' color='#000000'>Næste side</font></a>"
end if
%>
</font>
</td></tr></table>
</center>

<%
end if

end if%>

</td>
</tr>
</table>

</center>
</div>
</body>
</html>

Synes godt om

no_doubt Nybegynder

02. juni 2003 - 20:41 #56

Nogen ide til hvordan jeg kan få udskrevet mappens navn `?

Synes godt om

eagleeye Praktikant

02. juni 2003 - 20:45 #57

Du kan udskrive visMappe ??

Synes godt om

no_doubt Nybegynder

02. juni 2003 - 20:47 #58

how ?

Synes godt om

eagleeye Praktikant

02. juni 2003 - 20:47 #59

Eller kan du efter denne linje:

Set f = fs.GetFolder(server.mappath(billedeSti))

udskrive f.Name da f er den folder der udskrives fra.

Response.write f.Name

Synes godt om

eagleeye Praktikant

02. juni 2003 - 20:48 #60

udskriv visMappe:

Response.write visMappe

Synes godt om

no_doubt Nybegynder

02. juni 2003 - 20:49 #61

nej for skal have skrevet du ud højt på siden såå hvordan udskriver jeg
Dag 2
udfra
http://80.162.124.170/amsterdam/billeder.asp?VisMappe=Dag%202

Synes godt om

eagleeye Praktikant

02. juni 2003 - 20:52 #62

Response.write Request.QueryString("visMappe")

Synes godt om

no_doubt Nybegynder

02. juni 2003 - 20:53 #63

Okay. Hvordan så med at få et popup vindue som passer til det billede man har trykket på ?

Synes godt om

cdc Novice

02. juni 2003 - 22:15 #64

her er en som tilpasser sig: http://www.hillerodgolf.dk/eliten/presse/image_gallery.asp?id=1

Synes godt om

no_doubt Nybegynder

02. juni 2003 - 22:51 #65

hvordan bruger jeg det

Synes godt om

cdc Novice

02. juni 2003 - 22:57 #66

sidder selv og roder med det, men her er koden, kopier den igennem din notesblok først:
http://www.hillerodgolf.dk/eliten/presse/kode.htm "billeder/" er stien til mappen

Synes godt om

no_doubt Nybegynder

03. juni 2003 - 22:17 #67

hvad kan en af jer ikke hjælpe med udbyggelsen af scriptet

Synes godt om

cdc Novice

04. juni 2003 - 09:47 #68

hvad skal du have hjælp til ?

Synes godt om

no_doubt Nybegynder

04. juni 2003 - 11:55 #69

jaaa... at få det flettet ind

Synes godt om

cdc Novice

04. juni 2003 - 11:59 #70

hvad med at smække den ind i en iframe, så kan du jo bare lave designet og billedgalleriet kommer ind i iframen

Synes godt om

no_doubt Nybegynder

04. juni 2003 - 12:01 #71

jamen jeg mangler kun at få flettet pop på.

Synes godt om

cdc Novice

04. juni 2003 - 12:05 #72

ok, det må du få eagleeye hjælpe dig med når det er det skript du bruger

Synes godt om

no_doubt Nybegynder

08. juni 2003 - 14:39 #73

Eagle., giver dig points nu men vil gerne have en mail hvis du vil hjælpe, eller ej.

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
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
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.

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten

Seneste artiklerRSS