Salva immagine

**Marco7303** · 24-11-2003, 12:55

Salve...
ho questa pagina e vorrei poter dare la possibilità di salvare l'immagine senza prima aprirla, con una scritta, casomai al posto della scritta zoom, (tanto l'immagine si apre anche premendo sopra la miniatura), che fa riferimento all'immagine originale e non alla miniatura.
Secondo voi è possibile? Sapreste dirmi il modo di come poter fare?
GRAZIE ancora a tutti...

codice:

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<style type="text/css">
<!--
input {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10px;
}
a {
	font-family: Arial;
	color: #993300;
	text-decoration: none;



}
a:hover {
	font-family: Arial;
	color: #993300;
	text-decoration: underline;
}
-->
</style>
<title>.:: PhotoPix ::.</title>

<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body link="#CC3300" vlink="#CC3300" alink="#CC3300">
<%
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
dir=request("dir")
sDir = server.mappath(dir)

if Fso.FolderExists(sdir) then

Set objfolder = Fso.GetFolder(sDir)

For Each Item In objFolder.Files

ext=lcase(right(Item.Name,3))
if (ext="gif" or ext="jpg") then stringa=stringa&Item.Name&"
"

next
'Libero le risorse
Set fso = Nothing
Set objfolder = Nothing


arr=split(stringa,"
")

page=request("page")
if page="" then page=1
page=cint(page)
' numero foto trovate
num=ubound(arr)

' numero di colonne
ifin_img=4
' numero di righe
num_righe=cInt(request("rows"))

if request("rows")="" then 
num_righe=3
end if


' record per pagina
rpg=ifin_img*num_righe

' numero serie tabelle
jfin=rpg/ifin_img
' numero pagine
npage=num/rpg




if npage>int(npage) then npage=int(npage)+1

if page>npage then page=npage
if page<=0 then page=1



if jfin>int(jfin) then jfin=1+int(num/ifin_img)


k=rpg*(page-1)

%>
<table width="540" border="0" cellpadding="0" cellspacing="0">
  
  <tr> 
    <td width="115" height="20" align="left" valign="middle"> 
      <%
	response.write "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#999999"">"
	response.write "<a href=""slideshow.asp?dir="&dir&" "" >"
	response.write "Slide show"
	response.write "</a>"
	response.write "</font>"
	%>
    </td>
    <td width="425" align="right" valign="middle"> 
      <%
	response.write "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#999999"">"
	response.write "Numero di immagini per pagina:  "
	for h=3 to 8
	if h<>num_righe then 
	response.write "<a href=view.asp?page="&request("page")&"&dir="&dir&"&rows="&h&">"
	response.write "["&ifin_img*h&"]"
	response.write "</a>"
	else
	response.write "["&ifin_img*h&"]"
	end if
	response.write ""
	next
	response.write "</font>"
	%>
    </td>
  </tr>
</table>


<%
for j=1 to jfin

controllo=num-(rpg*(page-1))-ifin_img*j

if controllo<0 then
ifin=ifin_img+controllo
else
ifin=ifin_img
end if

%> 

<table width="170" border="0" cellpadding="0" cellspacing="0">
  
  <tr> 
    <%

for i=0 to ifin-1

%>
    <td width="21" height="152"></td>
    <td width="128" valign="middle"> <table width="100%" border="0" cellpadding="0" cellspacing="0">
        
        <tr> 
          <td width="128" height="128" align="center" valign="bottom"> 
            <%
		  response.write "<a href=# onclick=""MM_openBrWindow('view_img.asp?file="&dir&"*"&server.htmlencode(arr(k))&"&type=zoom','','resizable=yes,scrollbars=yes,width=625,height=480')"">"
		  response.write "[img][/img]"
		  response.write "</a>"
		  %>
          </td>
        </tr>
        <tr> 
          <td height="10" valign="top">[img]toolimg/spacer.gif[/img]</td>
        </tr>
        <tr> 
          <td height="13" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
              
              <tr> 
                <td width="62" height="12" valign="middle" bgcolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" >&amp;type=zoom','','scrollbars=yes,resizable=yes,width=625,height=480')">[img]toolimg/enlarge.gif[/img]&type=zoom','','scrollbars=yes,width=625,height=480')">Zoom</font></td>
                <td width="63" valign="middle" bgcolor="#FFFFFF"><font size="1" face="Verdana, Arial, Helvetica, sans-serif" >&amp;type=info','','scrollbars=yes,resizable=yes,width=625,height=480')">[img]toolimg/info.gif[/img]&type=info','','scrollbars=yes,width=625,height=480')">Info</font></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
    <td width="21"></td>
    <%
k=k+1
next
%>
  </tr>
  <tr>
    <td height="22"></td>
    <td></td>
    <td></td>
  </tr>
</table>
<%
next
%>
 <form method="get" action="view.asp">
  <table width="530" border="0" cellpadding="0" cellspacing="0">
    
    <tr> 
      <td width="96" height="20" align="left" valign="middle"> 
        <%
	response.write "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#999999"">"
	response.write  "Foto :  "&num
	response.write "</font>"
	%>
      </td>
      <td width="268" align="center" valign="middle"> 
        <%
	if page<>"1" then
	response.write "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"" >"
	response.write "<a href=view.asp?page="&page-1&"&dir="&dir&"&rows="&num_righe&">"
	response.write  "[img][/img]"
	response.write "</a>"
	response.write ""
	response.write "<a href=view.asp?page="&page-1&"&dir="&dir&"&rows="&num_righe&">"
	response.write "Previous"
	response.write "</a>"
    response.write ""
	response.write "</font>"
	end if
	response.write  "[img][/img]"
	response.write "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#999999"">"
	response.write  " Pagina "&page&" di "&npage
	response.write "</font>"
	response.write  "[img][/img]"
	if npage>page then 
	response.write "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"" >"
	response.write ""
	response.write "<a href=view.asp?page="&page+1&"&dir="&dir&"&rows="&num_righe&">"
	response.write "Next"
	response.write "</a>"
	response.write  ""
	response.write "<a href=view.asp?page="&page+1&"&dir="&dir&"&rows="&num_righe&">"
	response.write  "[img][/img]"
	response.write "</a>"
	response.write "</font>"
	end if
	%>
      </td>
      <td width="166" align="right" valign="middle"> 
        <%
	response.write "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#999999"">"
	response.write  "Vai alla pagina:"
	response.write "</font>"
	response.write "<input name=rows type=""hidden"" value="&num_righe&">"
	response.write "<input name=dir type=""hidden"" value="&dir&">"
	response.write "<input name=""page"" type=""text"" size=""1""> <input type=""submit"" value=""go"">"
	%>
      </td>
      </tr>
  </table>
</form>
<%
else
response.write "<font size=""1"" face=""Verdana, Arial, Helvetica, sans-serif"" color=""#999999"">"
response.write  "La directory selezionata non esiste"
response.write "</font>"

end if
%>
</body>
</html>

**br1** · 24-11-2003, 13:23

La possibilita' di eseguire il download di una immagine piuttosto che visualizzarla e' una opzione disponibile esclusivamente sul server... dato che utilizzi ASP cerca sul relativo forum il termine "forzare download".

ciao

**Marco7303** · 24-11-2003, 13:49

Grazie ho trovato lo script ma come faccio a farlo funzionare nella mia pagina? Ti prego puoi guardare la pagina che ho inviato e vedere se riesci a capire?

codice:

<!-- 
METADATA TYPE="typelib" 
UUID="00000205-0000-0010-8000-00AA006D2EA4" 
NAME="ADODB Type Library" 
--> 
<% 
' METADATA SERVE PER IMPORTARE LE COSTANTI DI ADO2.5 

Dim objStream 
Set objStream = Server.CreateObject("ADODB.Stream") 

objStream.Type = adTypeBinary 
objStream.Open 
objStream.LoadFromFile Server.MapPath("images/" & 
request.QueryString("file")) 

'Al browser 
Response.ContentType = "application/jpeg" 
Response.BinaryWrite objStream.Read 

objStream.Close 
Set objStream = Nothing 

%>

Discussione: Salva immagine

Strumenti discussione

Ricerca discussione

Visualizza

Salva immagine

GRAZIE

Permessi di invio