Bildstorlek och annan info!

4 svar · 343 visningar · startad av paddan 28 maj 2005

paddanMedlem sedan dec. 2002299 inlägg

Frågan28 maj 2005 07:54#1

Hej!
Undrar hur man gör för att skriva ut en bilds storlek..
Jag tar fram bilden genom detta scriptet:

 <%
			rootname = server.mappath("bilder/")& "/"
			Dirfolder = request.querystring("dir")
			
			Set FSO = Server.CreateObject("Scripting.FileSystemObject")
			Set Folder = FSO.GetFolder(rootname & Dirfolder)
			set Files = Folder.Files
			
			'ParentFolderName = FSO.GetParentFolderName(rootname & Dirfolder)
			
			For each Item in Folder.SubFolders
				response.write "<img src=mapp.gif>"
				
				response.write "<a href='" & strScriptname & "?Dir=" & Item.Name & "'>" & Item.Name & "</A>"
				'response.write Item.Name
				response.write "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
				
				i=i+1
			Next
			%>
						
			
			<%
			For each Item In Files
				
				Response.Write "<img border=""1"" height=""510"" width=""680"" src=""bilder/" & Dirfolder & "/" & Item.Name & """>"
			
				response.write "<br>"
				response.write "<br>"
				t=t+1
			Next
			
			set Folder = nothing
			set FSO = nothing
			set Files = nothing
			%>

Skulle gärna också veta om man kan skriva ut annan information om bilden..tex när den skapades m.m.

Mvh Martin

paddanMedlem sedan dec. 2002299 inlägg

28 maj 2005 07:56#2

Glömde en sak..
Hur gör man för att koden enbart ska visa jpg bilder???

paddanMedlem sedan dec. 2002299 inlägg

28 maj 2005 13:27#3

Ingen som jar något...
Har aspjpeg komponent på min webhotell!

@ndersMedlem sedan juni 200032 967 inlägg

28 maj 2005 14:29#4

Då har du förstås sökt, sökt, sökt, och testat, testat, testat. :)

Hur ser dina försök ut när du använder den komponenten?

För att bara skriva ut jpg-bilder i listan använder du en if-sats, typ:

If lcase(split(Item.Name)(1)) = "jpg" then
       ' koden för att visa bild i lista
end if

paddanMedlem sedan dec. 2002299 inlägg

28 maj 2005 14:41#5

lite taskig är du faktiskt...!
Mina försök har varit många...!
Både med fso och med aspjpeg...men med aspjpeg har jag inte kommit någonvart eftersom jag inte kan få den att skriva ut en bild....!
Men just nu ser det ut så här:

<%
			rootname = server.mappath("bilder/")& "/"
			Dirfolder = request.querystring("dir")
			
			Set FSO = Server.CreateObject("Scripting.FileSystemObject")
			Set Folder = FSO.GetFolder(rootname & Dirfolder)
			set Files = Folder.Files
			
			'ParentFolderName = FSO.GetParentFolderName(rootname & Dirfolder)
			%>
					
			
			<%
			For each Item In Files
				If right( Item.Name, 3 ) = "jpg" then
				response.write "<div class=""bild_namn""> " & Item.Name & "</div>"
				Response.Write "<img border=""1"" height=""510"" width=""680"" src=""bilder/" & Dirfolder & "/" & Item.Name & """>"
				response.write "<div class=""bild_info"">"
				Response.Write "<div class=""rubrik_ruta"">" & Item.size & "</div>"
				response.write "</div>"
				
				end if

				
				t=t+1
			Next
			
			set Folder = nothing
			set FSO = nothing
			set Files = nothing
			%>

Får ut storleken nu med item.size, men vill ah det omgjort till mb,
eller kb....

En fråga till...vad kan man mer få ut för egenskaper med item ???

Mvh Martin