Tamanho Da Imagem

[Guest Alan Hoffmeister]

Olá pessoal, estou usando um código pronto em ASP (dããã) o qual organiza uma galeria de imagens para meu site. O meu problema é que eu não concigo mudar o tamanho das imagens quando ele carrega elas. Fica na resolução original, 2500x1400 por exemplo. Gostaria de saber se seria mais sensato eu redimencionar as imagens manualmente ou botar um código na página que diminua o tamanho dela..

Se a alternativa mais correta é a do código, é ai que se encontra o problema.. Eu não sei fazer...

PAra quem quizer ver o código..

<%@ LANGUAGE="VBScript"%>
<%
Option Explicit
Sub ShowCredits() %>
<!--
Online Photo Catalog VBScript v2.1
Author: Ivan Loire www.iloire.com
Copyright 2002. All rights reserved.
Released on 23/4/2002
Feel free to use this script leaving this header.
-->
<%
End Sub
'--------
'What's new in v2.0?
'1) Now this script allows comments. 
'   If you want to add comments for a pic, only put in the same folder of the pic a text file with your comments in it.
'   The text file must have the same name of the picture and the extension : .txt.
'   Ej: pic: bertin_in_the_beach.jpg;  text file with comments (located in the same folder): bertin_in_the_beach.txt
'2) Cosmetic change
'   Now with the folder icon


'What's new in v2.1?
'1) Allow visitor change number of pics per row.
'2) Allow visitor to enter comments (xml format)
'3) Cosmetic changes
'---------------------

'CONFIGURATION. EDIT ONLY THIS PART
Const cVirtualPath="/album/" 'where is the images folder
Const cPageTitle="Galeria" 'Page title
Const cWidthThumbnails=40 ' Thumbnail's width
Const cFirstPageText="<h3><b>Informação</b></h3><br>Selecione uma pasta da galeria ao lado. <br><br>Por favor seja paciente enquanto as imagens são carregadas. <br>Uma vez que você possa ver a miniatura, a imagem já estará disponível para acesso rápido."
Const cNumberPicturesPerRowDefault=5 'set the default number of thumbails per row.
Const WritableXMLCommentsFolder="d:\html\users\iloirecom\xml\comments\"
Const cAllowUserEnterComments=false 'allow visitor to add comments to the pics. You will need write access permit to comments file!
Const cAllowUserChangePicturePerRow=true 'allow visitor to change the number of pictures he visualize per row
'END CONFIGURATION


Dim strThispage
strThispage= Request.ServerVariables ("SCRIPT_NAME")

Sub UserCommentsEngine ()

	Dim link,commentsList,objXML,comment,objXMLcomment,FileLocation
	FileLocation=WritableXMLCommentsFolder & replace(request("Filename"), right(request("Filename"),4),".xml")
	'FileLocation=Server.MapPath(replace(request("Item"), right(request("Item"),4),".xml"))
	Set objXML = Server.CreateObject("Microsoft.XMLDOM")
	If objXML.load(Filelocation) = False Then
		 objXML.appendChild(objXML.createProcessingInstruction("xml","version=""1.0"""))
		 objXML.appendChild(objXML.createElement("comments"))
	End If
	link=strthispage & "?action=displayimage&Filename=" & request("Filename") & "&Item=" & request("Item") 	
	'create html code to enter comments 

	if request("write")="yes" then
		prt "<form method=post action=""" & link &"""><table><tr><td>" 
		prt "Your name/email: </td><td><input type=text name=author><br></td></tr>"
		prt "<tr><td>Comments:</td><td><textarea name=text cols=20 rows=3></textarea></td></tr>"
		prt "<tr><td colspan=2><input type=submit value=send></td></tr></table><hr>"
		prt "</form>"
	else
	  If len(request("text"))>0  then 'write
		Set objXMLcomment = objXML.createElement("comment")
		objXMLcomment.appendChild(objXML.createElement("author"))
		objXMLcomment.appendChild(objXML.createElement("text"))
		objXMLcomment.appendChild(objXML.createElement("date"))

		objXMLcomment.childNodes(0).text = request("author")
		objXMLcomment.childNodes(1).text = request("text")
		objXMLcomment.childNodes(2).text = now()

		objXML.documentElement.appendChild(objXMLcomment.cloneNode(True))
		objXML.save(FileLocation)
		Prt ("<font color=red><b>Comment added!!</b></font>")
	 end if
		prt "<center><input value=""write comments"" type=button onclick=""location.href='" & link & "&write=yes'""></center><br>"
	End if
		'read
		If objXML.load(FileLocation) then
			prt "<div class=comments>"
			Set commentsList=objXML.childnodes(1).childnodes
			for each comment in commentsList
				prt "<b>»</b><font class=name> " & comment.childnodes(0).text & "</font>, on <font class=date>" & comment.childnodes(2).text & "</font> said:"
				prt "<blockquote><tt>" & comment.childnodes(1).text & "</tt></blockquote>"
			next
			prt "</div>"
		end if
End Sub


Function GetComment (PictureName)
	'this is the new function for the v1.1
	'getting the text from the comment file (if exists)

	Dim fso,FileLocation, File
	Set fso = CreateObject("Scripting.FileSystemObject")

	FileLocation=Server.MapPath(replace (picturename, right(picturename,4),".txt"))
	If fso.FileExists(FileLocation) then
		set File = fso.OpenTextFile(FileLocation, 1)
		GetComment = File.ReadAll
	Else
		GetComment = "O autor não deichou nenhum comentário sobre essa imagem."
	End If
End Function



Sub DisplayFiles(VirtualPath)
	Dim File,Folder,iRow
	Set folder = fs.GetFolder(Server.MapPath(VirtualPath))
	Prt "<table cellpadding=0 cellspacing=0 class=tf><tr><td>"
	if cAllowUserChangePicturePerRow=true then Prt("<form target=frm_files method=post action=""" & strthispage& "?action=displayfiles&item="& virtualpath & """>")
	Prt ("Pasta Atual: <b>" & Folder.name & "</b></td><td>")
	if cAllowUserChangePicturePerRow=true then Prt("Ajustar prévias por colunas:<input name=picsperrow type=text maxlength=2 size=2 value=""" & session("picsperrow") & """><input type=submit value=Mudar></form>")
	Prt "</td><td>© <a target=_blank href=http://www.iloire.com>iloire.com</a></td></tr></table><br>"
	Prt("<table class=files>")
	iRow=0
	For each File in folder.Files
	If (lcase(right(File.path, 3)) <> "txt") and (lcase(right(File.path, 3)) <> "xml") then
		If iRow=0 then Prt("<tr>")
		Prt ("<td valign=middle><a target=frm_botton href=""" & strThisPage & "?action=displayimage&item=" & VirtualPath & "/" & File.Name & "&Filename="& File.Name & """><img border=0 width=""" & cstr(cWidthThumbnails) & """ src="""& VirtualPath & "/" & File.Name & """> " & File.Name & "</a></td>")
		If cint(iRow)=cint(session("picsperrow")-1) then
			iRow=0
			Prt("</tr>")
		Else 
			iRow=iRow+1
		End If
	End if
	Next 
	if Folder.Files.Count=0 then Prt("<br><p>This folder is empty.</p>")
	Prt("</table>")
End Sub


Sub Display(Item)
	Dim subfolder,folder
	set folder = fs.GetFolder(Server.MapPath(Item))
    	Prt "<ul>"
	If folder.subfolders.count > 0 then 
		For each subfolder in folder.SubFolders
			Prt "<li> <a target=frm_files href=""" & strThispage & "?action=displayfiles&item="& Item & subfolder.Name & """>" & subfolder.name &"</a>"
			Display(Item & subfolder.Name &"/")			
		Next
	End if
	Prt "</ul>"
End Sub


Sub prt(strValue)
	response.write(strValue) & Vbcrlf	
End Sub


Sub CreateFramesBody()
	Prt("<frameset rows=200,* frameborder=Yes>") 
	Prt("<frameset cols=200,* frameborder=Yes>") 
	Prt("<frameset rows=20%,* frameborder=No>") 
	Prt("<frame name=frm_title scrolling=No src="""& strThispage& "?action=title"">")
	Prt("<frame name=frm_folders scrolling=Auto src=""" & strThispage & "?action=displayfolders"">")
	Prt("</frameset>")
	Prt("<frame name=frm_files src="""& strThispage& "?action=start"">")
	Prt("</frameset>")
	Prt("<frame name=frm_botton scrolling=Auto src="""& strThispage& "?action=empty"">")
	Prt("</frameset>")

End Sub


if len(request("picsperrow")) > 0 then session("picsperrow")=cint(request("picsperrow"))
if session("picsperrow")="" then session("picsperrow")=cNumberPicturesPerRowDefault

%>
<html>
<head>
	<title><%=cPageTitle%></title>
	<link rel="stylesheet" href="online_photo_catalog_vbscript.css" type="text/css">
	<meta http-equiv="Content-Type" content="text/html; charset=iso8859-1">
</head>
<%
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")

ShowCredits()

Select case request("action")
  case "displayfolders"
	Prt("<body class=folders><div class=folders>")
	Display(cVirtualPath)
	Prt("</div></body>")
  case "displayfiles"
	Prt("<body class=files>")
	Call DisplayFiles(request("item"))
	Prt("</body>")
  case "start"
	Prt("<body><div class=firsttext>")
	Prt(cFirstPageText)
	Prt("</div></body>")
  case "title"
	Prt("<body>")
	Prt("<b>" & cPageTitle & "</b>")
	Prt("</body>")
  case "empty"
  case "displayimage"
	Prt("<body class=image>")
	Prt "<div class=tf>Nome da foto: <b>" & request("Filename") & "</b>   <input type=button value=Imprimir onclick=""print()""><br></div>"

	Prt ("<table cellpadding=0 cellspacing=0 width=""100%""><tr><td width=20% valign=top>")	
	Prt("<img alt=" & request("Filename") & " src=""" & request("item") & """>")
	Prt ("</td><td valign=top style=""padding:2px""><br><div class=cbody><div class=tc>Comentários do autor</div>")
	Prt "<div style=padding:5px><p>" & GetComment (request("item")) & "</p></div></div><br>"
	if cAllowUserEnterComments then Prt "<div class=cbody><div class=tc>Visitor Comments</div><div style=padding:5px>"
	if cAllowUserEnterComments then Call UserCommentsEngine()
	if cAllowUserEnterComments then Prt ("</div></div>")
	Prt ("</td></tr></table>")
	Prt("</body>")
  case else
	CreateFramesBody
End select
Set fs=nothing
%>
</html>[/codebox]

O resultado pode ser conferido em http://www.mosqueiros.com.br/album/main.asp

Grande abraço!

[.Andreia.]

Olha eu não cheguei a olhar teu codigo mas você poderia fazer é colocar na TAG IMG um tamanho fixo, exemplo:

<img src="<%= tab("sua_imagem.gif") %>" width="200" height="100">

[bareta]

ou use em ASP

http://scriptbrasil.com.br/forum/index.php?showtopic=62702