Søg
Avatar billede jtc Nybegynder
14. juni 2004 - 15:06 Der er 38 kommentarer og
1 løsning

Simpelt billedgalleri med undermapper

Hej

Dette script virker men man kan ikke klikke sig ind på eventuelle undermapper.
Hvad kan jeg gøre??

<html>
<body>
<center>
<table border="0" width="100%">
<%
'Sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/pic/"

maxPrRow = 5
noPrRow = 0

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

For Each Image In objFiles
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td><a href=""" & ImageDir & Image.Name & """><img src=""" & ImageDir & Image.Name &""" width=""150"" height=""150""></a></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next
if noPrRow > 0 then Response.Write "</tr>"

Set objFS = Nothing
%>
</table>
</center>
</body>
</html>
Avatar billede ellebaek Nybegynder
14. juni 2004 - 23:15 #1
Du kan jo udvidde din side lidt, så du får mapperne med i bunden..
Sådan her fx.

html>
<body>
<center>
<table border="0" width="100%">
<%
'Sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/pic/" & request.querystring("mappe")

maxPrRow = 5
noPrRow = 0

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

For Each Image In objFiles
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td><a href=""" & ImageDir & Image.Name & """><img src=""" & ImageDir & Image.Name &""" width=""150"" height=""150""></a></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next
if noPrRow > 0 then Response.Write "</tr>"
response.write "</table>"

Set objMapper = objFolder.Subfolders

For Each folder In objMapper
Response.Write "<a href=""" & request.servervariables("script_name") & "?mappe=" & folder.Name & """>" & folder.name & "</a><br>"
next

Set objFS = Nothing
%>

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

Sådan noget i den her stil vil jeg mene.
Avatar billede jtc Nybegynder
15. juni 2004 - 11:55 #2
Ja det ser jo ud til at fungere men kan man ikke lave det sådan at mapperne får et mappeikon og står sammen med billederne??
Avatar billede jtc Nybegynder
15. juni 2004 - 11:58 #3
Man kan ikke gå ind i en undermappe til en undermappe
Kan det laves om??
Avatar billede ellebaek Nybegynder
15. juni 2004 - 13:53 #4
html>
<body>
<center>
<table border="0" width="100%">
<%
'Sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/pic" & request.querystring("mappe")
if not right(ImageDir,1) = "/" then
ImageDir = ImageDir & "/"

maxPrRow = 5
noPrRow = 0

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

For Each Image In objFiles
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td><a href=""" & ImageDir & Image.Name & """><img src=""" & ImageDir & Image.Name &""" width=""150"" height=""150""></a></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next
if noPrRow > 0 then Response.Write "</tr>"
response.write "</table>"

Set objMapper = objFolder.Subfolders

For Each folder In objMapper
Response.Write "<a href=""" & request.servervariables("script_name") & "?mappe=" request.querystring("mappe") & "/" & folder.Name & """><img src=""mappe.gif""><br>" & folder.name & "</a><br>"
next

Set objFS = Nothing
%>

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

Sådan her..
Så skulle man gerne både kunne gå til undermapper, og mapperne skulle gerne have en folder som ikon.. Så skal du bare rette billedet til, altså der hvor der står mappe.gif i linket.
Avatar billede jtc Nybegynder
15. juni 2004 - 15:22 #5
Jeg har lavet lidt om i det, men hvordan laver man et link der linker til den ovenstående mappe hvis du forstår

<html>
<body>
<center>
<table border="0" width="100%">
<%
'Sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/pic/" & request.querystring("mappe")
if not right(ImageDir,1) = "/" then
ImageDir = ImageDir & "/"
end if

maxPrRow = 5
noPrRow = 0

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files

For Each Image In objFiles
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td><a href=""" & ImageDir & Image.Name & """><img src=""" & ImageDir & Image.Name &""" width=""150"" height=""150""></a></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next
if noPrRow > 0 then Response.Write "</tr>"
response.write "</table>"

Set objMapper = objFolder.Subfolders

For Each folder In objMapper
Response.Write "<a href=""" & request.servervariables("script_name") & "?mappe=" & request.QueryString("mappe") & "" & folder.Name & "/""""><img src=""/pic/bag.gif""><br>" & folder.name & "</a><br>"
next

Set objFS = Nothing
%>

</center>
</body>
</html>
Avatar billede ellebaek Nybegynder
16. juni 2004 - 00:37 #6
<a href=""javascript.history.go(-1)"">tilbage</a>

Denne hopper et hak tilbage..

Eller du kan..

<%
dir = split(ImageDir,"/")
link = request.servervariables("script_name") & "?mappe="
for i = 1 to (UBound(dir)-1)
link = link & dir(i) & "/"
next
response.write "<a href=""" & link & """>Tilbage</a>"
%>
Avatar billede ellebaek Nybegynder
16. juni 2004 - 00:37 #7
nej, hov...

Det skal være:

<%
dir = split(ImageDir,"/")
link = request.servervariables("script_name") & "?mappe="
for i = 2 to (UBound(dir)-1)
link = link & dir(i) & "/"
next
response.write "<a href=""" & link & """>Tilbage</a>"
%>
Avatar billede jtc Nybegynder
16. juni 2004 - 10:11 #8
Den linker til den mappe som jeg allerede er i. Det skulle være til den foregående mappe.
Avatar billede ellebaek Nybegynder
16. juni 2004 - 12:31 #9
det er jo klart nok ;-)

Det er fordi den slutter med en /
så det skal være:

<%
dir = split(ImageDir,"/")
link = request.servervariables("script_name") & "?mappe="
for i = 2 to (UBound(dir)-2)
link = link & dir(i) & "/"
next
response.write "<a href=""" & link & """>Tilbage</a>"
%>
i stedet
Avatar billede jtc Nybegynder
16. juni 2004 - 13:26 #10
ja det virkede, men hvordan undgår jeg så der står tilbage på den første side??
Avatar billede ellebaek Nybegynder
16. juni 2004 - 14:23 #11
hmm...

måske med den her:
<%
if not ImageDir = "/pic/" then
dir = split(ImageDir,"/")
link = request.servervariables("script_name") & "?mappe="
for i = 2 to (UBound(dir)-2)
link = link & dir(i) & "/"
next
response.write "<a href=""" & link & """>Tilbage</a>"´
end if
%>
Avatar billede jtc Nybegynder
17. juni 2004 - 11:17 #12
Ja jeg fik det til at virke ved at ændre en smule i det.

Men så langs så godt

Nu mangler jeg bare at både mapper og billeder kommer til at stå i samme tabel hvis du forstår

<html>
<body>
<center>
<table border="0" width="100%">
<%
'Sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/pic/" & request.querystring("mappe")
if not right(ImageDir,1) = "/" then
ImageDir = ImageDir & "/"
end if

maxPrRow = 5
noPrRow = 0

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
Set objMapper = objFolder.Subfolders

For Each folder In objMapper
    if noPrRow = 0 then Response.Write "<tr>"
 
Response.Write "<td><a href=""" & request.servervariables("script_name") & "?mappe=" & request.QueryString("mappe") & "" & folder.Name & "/""""><img src=""/pic/bag.gif""><br>" & folder.name & "</a><br><td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
next
if noPrRow > 0 then Response.Write "</tr>"

if ImageDir <> "/pic/" then
dir = split(ImageDir,"/")
link = request.servervariables("script_name") & "?mappe="
for i = 2 to (UBound(dir)-2)
link = link & dir(i) & "/"
next
Response.Write "<td><a href=""" & link & """><img src=""/pic/bag.gif""><br>Tilbage</a><br><td>"
end if

response.write "</table>"
%>

<table border="0" width="100%">
<%
maxPrRow = 5
noPrRow = 0

For Each Image In objFiles
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td><a href=""" & ImageDir & Image.Name & """><img src=""" & ImageDir & Image.Name &""" width=""150"" height=""150""></a></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next
if noPrRow > 0 then Response.Write "</tr>"
response.write "</table>"


Set objFS = Nothing
%>

</center>
</body>
</html>
Avatar billede jtc Nybegynder
17. juni 2004 - 11:23 #13
Her er den udgave jeg sidst har rettet i

<html>
<body>
<center>
<table border="0" width="100%">
<%
'Sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/pic/" & request.querystring("mappe")
if not right(ImageDir,1) = "/" then
ImageDir = ImageDir & "/"
end if

maxPrRow = 5
noPrRow = 0

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
Set objMapper = objFolder.Subfolders

For Each folder In objMapper
    if noPrRow = 0 then Response.Write "<tr>"
 
Response.Write "<td><div align=""center""><a href=""" & request.servervariables("script_name") & "?mappe=" & request.QueryString("mappe") & "" & folder.Name & "/""""><img src=""/pic/bag.gif"" width=""150"" height=""150""><br>" & folder.name & "</a><br></div><td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
next
if noPrRow > 0 then Response.Write "</tr>"

if ImageDir <> "/pic/" then
dir = split(ImageDir,"/")
link = request.servervariables("script_name") & "?mappe="
for i = 2 to (UBound(dir)-2)
link = link & dir(i) & "/"
next
Response.Write "<td><div align=""center""><a href=""" & link & """><img src=""/pic/bag.gif"" width=""150"" height=""150""><br>Tilbage</a><br></div><td>"
end if

response.write "</table>"
%>

<table border="0" width="100%">
<%
maxPrRow = 5
noPrRow = 0

For Each Image In objFiles
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td><div align=""center""><a href=""" & ImageDir & Image.Name & """><img src=""" & ImageDir & Image.Name &""" width=""150"" height=""150""></a></div></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next
if noPrRow > 0 then Response.Write "</tr>"
response.write "</table>"


Set objFS = Nothing
%>

</center>
</body>
</html>
Avatar billede ellebaek Nybegynder
17. juni 2004 - 12:28 #14
Jeg kigger lige på det i aften.
Avatar billede jtc Nybegynder
17. juni 2004 - 12:53 #15
Det ser jeg frem til, tak :-)
Avatar billede ellebaek Nybegynder
17. juni 2004 - 20:38 #16
mon du mener i den her stil...?

<html>
<body>
<center>
<table border="0" width="100%">
<%
'Sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/pic/" & request.querystring("mappe")
if not right(ImageDir,1) = "/" then
ImageDir = ImageDir & "/"
end if

maxPrRow = 5
noPrRow = 0

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
Set objMapper = objFolder.Subfolders

For Each folder In objMapper
    if noPrRow = 0 then Response.Write "<tr>"
 
Response.Write "<td><div align=""center""><a href=""" & request.servervariables("script_name") & "?mappe=" & request.QueryString("mappe") & "" & folder.Name & "/""""><img src=""/pic/bag.gif"" width=""150"" height=""150""><br>" & folder.name & "</a><br></div><td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
next


For Each Image In objFiles
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td><div align=""center""><a href=""" & ImageDir & Image.Name & """><img src=""" & ImageDir & Image.Name &""" width=""150"" height=""150""></a></div></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next


if noPrRow > 0 then Response.Write "</tr>"

if ImageDir <> "/pic/" then
dir = split(ImageDir,"/")
link = request.servervariables("script_name") & "?mappe="
for i = 2 to (UBound(dir)-2)
link = link & dir(i) & "/"
next
Response.Write "<td><div align=""center""><a href=""" & link & """><img src=""/pic/bag.gif"" width=""150"" height=""150""><br>Tilbage</a><br></div><td>"
end if
response.write "</table>"


Set objFS = Nothing
%>

</center>
</body>
</html>
Avatar billede jtc Nybegynder
18. juni 2004 - 16:07 #17
JA så virker det, men til sidst skal jeg så lige hører hvordan tilbage ikonet kommer til at stå samen med de andre og som det første ikon??
Avatar billede ellebaek Nybegynder
18. juni 2004 - 23:39 #18
den fik jeg ikke helt fat i.. Mener du at det skal med i tabellen?
Avatar billede jtc Nybegynder
19. juni 2004 - 15:56 #19
Ja den skal med i tabellen som det første "ikon"
Avatar billede ellebaek Nybegynder
19. juni 2004 - 23:03 #20
hmm...

måske sådan her:

<html>
<body>
<center>
<table border="0" width="100%">
<%
'Sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/pic/" & request.querystring("mappe")
if not right(ImageDir,1) = "/" then
ImageDir = ImageDir & "/"
end if

maxPrRow = 5
noPrRow = 0

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
Set objMapper = objFolder.Subfolders

if ImageDir <> "/pic/" then
dir = split(ImageDir,"/")
link = request.servervariables("script_name") & "?mappe="
for i = 2 to (UBound(dir)-2)
link = link & dir(i) & "/"
next
response.write "<tr>"
Response.Write "<td><div align=""center""><a href=""" & link & """><img src=""/pic/bag.gif"" width=""150"" height=""150""><br>Tilbage</a><br></div><td>"
noPrRow = noPrRow +1
end if

For Each folder In objMapper
    if noPrRow = 0 then Response.Write "<tr>"
 
Response.Write "<td><div align=""center""><a href=""" & request.servervariables("script_name") & "?mappe=" & request.QueryString("mappe") & "" & folder.Name & "/""""><img src=""/pic/bag.gif"" width=""150"" height=""150""><br>" & folder.name & "</a><br></div><td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
next


For Each Image In objFiles
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td><div align=""center""><a href=""" & ImageDir & Image.Name & """><img src=""" & ImageDir & Image.Name &""" width=""150"" height=""150""></a></div></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next


if noPrRow > 0 then Response.Write "</tr>"
response.write "</table>"


Set objFS = Nothing
%>

</center>
</body>
</html>
Avatar billede jtc Nybegynder
20. juni 2004 - 13:58 #21
Mange tak for hjælpen, jeg fandt selv ud af det sidste.
Her er så koden som den blev til sidst

Men mange tak for hjælpen endnu engang for jeg kunne ikke have lavet det uden din hjælp

<html>
<body>
<center>
<table border="0" width="100%">
<%
'Sætter variablen ImageDir til at være det interessante katalog
ImageDir = "/pic/" & request.querystring("mappe")
if not right(ImageDir,1) = "/" then
ImageDir = ImageDir & "/"
end if

maxPrRow = 5
noPrRow = 0

Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
Set objMapper = objFolder.Subfolders

Response.Write "<tr>"
if ImageDir <> "/pic/" then
dir = split(ImageDir,"/")
link = request.servervariables("script_name") & "?mappe="
for i = 2 to (UBound(dir)-2)
link = link & dir(i) & "/"
next
Response.Write "<td><div align=""center""><a href=""" & link & """><img src=""/pic/bag.gif"" alt=""Tilbage"" width=""150"" height=""150""><br>Tilbage</a><br></div></td>"
noPrRow = noPrRow + 1
end if

For Each folder In objMapper
    if noPrRow = 0 then Response.Write "<tr>"
 
Response.Write "<td><div align=""center""><a href=""" & request.servervariables("script_name") & "?mappe=" & request.QueryString("mappe") & "" & folder.Name & "/""""><img src=""/pic/bag.gif"" alt=""" & folder.Name & """ width=""150"" height=""150""><br>" & folder.name & "</a><br></div></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
next


For Each Image In objFiles
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td><div align=""center""><a href=""" & ImageDir & Image.Name & """><img src=""" & ImageDir & Image.Name &""" alt=""" & Image.Name & """ width=""150"" height=""150""></a></div></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next


if noPrRow > 5 then Response.Write "</tr>"

response.write "</table>"


Set objFS = Nothing
%>

</center>
</body>
</html>
Avatar billede ellebaek Nybegynder
20. juni 2004 - 21:40 #22
Jeg smider et svar så ;-)
Avatar billede jtc Nybegynder
21. juni 2004 - 18:19 #23
Ja, jeg ved godt du har svaret på spørgsmålet

Men kan du sige mig hvordan jeg trækker proportionerne på billederne ud??
Avatar billede ellebaek Nybegynder
21. juni 2004 - 21:40 #24
mener du størrelsen på billeder eller filen..?
Avatar billede jtc Nybegynder
21. juni 2004 - 22:01 #25
Jeg mener bredde og højde på billederne

Jeg vil nemlig gerne bevare billedernes proportioner når de formindskes
Avatar billede ellebaek Nybegynder
21. juni 2004 - 22:05 #26
jeg kan ikke hjælpe dig med præcis hvad proportionerne på billedet er, men hvis du kun angiver en width i din <img tag> så vil den selv tilpasse..

altså hvis du skriver..

<Img src="billede" width="150">
så tilpasses højden den nye bredde på billedet..

Hvis du skal have hevet størrelsen ud ellers skal du benytte en komponent til at få disse oplysninger ud..
Avatar billede jtc Nybegynder
21. juni 2004 - 22:07 #27
jeg har asp image, hvis du kan finde ud af det
Avatar billede ellebaek Nybegynder
21. juni 2004 - 22:08 #28
Jeg har aldrig leget med det...

Men er det ikke nok det med at tilpasse højden på billedet, så det kommer til at passe med bredden derefter..=?
Avatar billede jtc Nybegynder
21. juni 2004 - 22:09 #29
jamen hvis højden er større end bredden bliver billedet større end de 150*150
Avatar billede ellebaek Nybegynder
21. juni 2004 - 22:13 #30
hmm...

Det er selvfølgelig rigtigt..
Hmm..
Jeg er som sagt ikke så skarp i aspimage..

kan du ikke lave en lille offset, så du er sikker på at alle billeder kommer under 150x150..?
Avatar billede jtc Nybegynder
21. juni 2004 - 22:15 #31
hvad mener du med offset
Avatar billede ellebaek Nybegynder
21. juni 2004 - 22:17 #32
altså at du fx. sætter width til 140, så billederne derved ikke bliver for store i bredden..??

Men jeg kigger lige efter aspimage scripts..
Avatar billede jtc Nybegynder
21. juni 2004 - 22:19 #33
jamen de kan jo stadig være 200 i højden

Men tak for det
Avatar billede ellebaek Nybegynder
21. juni 2004 - 22:21 #34
hmm...

Jeg har kun fundet info om hvordan man kan finde de forskellige størrelser på billedet, altså efter det er loadet ind i aspImage..

Image.MaxY
Image.MaxX

disse linier hiver de højden (Y)
og bredden (x) ud af billedet..

Men ved ikke hvordan man loader et billede med det..
Avatar billede jtc Nybegynder
21. juni 2004 - 22:43 #35
jeg har fundet ud af det, men hvordan tjekker jeg om fileextension er jpg??
Avatar billede ellebaek Nybegynder
21. juni 2004 - 23:03 #36
det gør du i forløkken med:

For Each Image In objFiles
type = Image.Type
  if inStr(1,"gif,jpg,bmp",LCase(objFS.GetExtensionName(Image.name))) > 0 then
    if noPrRow = 0 then Response.Write "<tr>"
 
    Response.Write "<td><div align=""center""><a href=""" & ImageDir & Image.Name & """><img src=""" & ImageDir & Image.Name &""" alt=""" & Image.Name & """ width=""150"" height=""150""></a></div></td>"
   
    noPrRow = noPrRow + 1
    if noPrRow = maxPrRow then
      Response.Write "</tr>"
      noPrRow = 0
    end if
  End if
Next


Eller også kan du lave en split..
der skriver:
filarr = split(Image.name,".")
type = filarr(1)
Avatar billede jtc Nybegynder
21. juni 2004 - 23:12 #37
Okay tak for det

Så skulle der ikke være mere

Men ved du om man kan hente informationerne om bredde og højde fra en gif billede??
Avatar billede ellebaek Nybegynder
21. juni 2004 - 23:12 #38
nej...

Jeg ved som sagt ikke rigtig noget om ASPimage ;-)
Takker for points..
..Ellebæk!
Avatar billede jtc Nybegynder
21. juni 2004 - 23:14 #39
Selv tak for den store hjælp
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
I går 19:41 USB på Linux Af Uvanga i Linux
12/0818:26 Hvilken type mus Af mort1 i PC
11/0813:21 ms Forms Af leahcim i Andet software
10/0821:30 Blokeret på Snapchat? Af LineP i Chat & Messaging
09/0816:05 Samsung Galaxy vil ikke ud af "Sikker tilstand" Af ErikHg i Mobiltelefoner
White papers
Flere white papers »