I forum Ricerca FAQ
Fai una domanda
Ultimo messaggio 1 2 3 4 5
Fausto77
Fausto77
il 25 febbraio 2012 alle 12:58
33 messaggi dal 13 gennaio 2012
Ciao.

Ho visto le due soluzioni che mi hai proposto e mi sono orientato sulla seconda.

Essendo alle prime armi ho compreso come funziona il codice ma non riesco a collegare la parte dell'Upload

<!--#include file="upload.asp"-->
<%
dim id
strID = trim(request.QueryString("ID"))
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = False
oUpload.Overwrite = true
oUpload.SetPath ("/Foto_Record/" & strID)
oUpload.Upload
oUpload.SaveAs "01.jpg"
set oupload = Nothing
%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="">
Foto : <INPUT TYPE="file" NAME="Campo1"><BR>
<INPUT TYPE="submit" NAME="Enter">
</FORM>

con la parte del resize

<%
Dim strImageName, strThumbName, objXML
strImageName = "mypicture.jpg"
strThumbName = "mypicture_thumb.jpg"
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", "http://localhost/ImageResizer.aspx?image=" & Server.MapPath(strImageName) & "&thumb=" & Server.MapPath(strThumbName) & "&width=500&height=-1", True
objXML.Send
Set objXML=Nothing
Response.Write("original: <img src=""" & strImageName & """ /><br />")
Response.Write("thumbnail: <img src=""" & strThumbName & """ /><br />")
%>

Io vorrei tramite il codice prendere il file 01.jpg che ho appena caricato sul server e ridimensionarlo nel file 02.jpg.

Puoi aiutarmi a collegare le due fasi ?

Grazie.

Fausto.
RispondiQuoting
BrightSoul
BrightSoul
il 26 febbraio 2012 alle 10:51
11.886 messaggi dal 09 febbraio 2002
Contributi
Ciao,
incolla la parte del resize subito dopo l'ultima istruzione set oupload = Nothing della parte dell'upload.

Poi cambia assegna alle variabili strImageName e strThumbName i percorsi delle due immagini 01.jpg e 02.jpg.

Dovrebbe uscire una cosa del genere:
<!--#include file="upload.asp"-->
<%
dim id
strID = trim(request.QueryString("ID"))
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = False
oUpload.Overwrite = true
oUpload.SetPath ("/Foto_Record/" & strID)
oUpload.Upload
oUpload.SaveAs "01.jpg"
set oupload = Nothing

Dim strImageName, strThumbName, objXML
strImageName = "/Foto_Record/" & strID & "/01.jpg"
strThumbName = "/Foto_Record/" & strID & "/02.jpg"
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", "http://localhost/ImageResizer.aspx?image=" & Server.MapPath(strImageName) & "&thumb=" & Server.MapPath(strThumbName) & "&width=500&height=-1", True
objXML.Send
Set objXML=Nothing
%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="">
Foto : <INPUT TYPE="file" NAME="Campo1"><BR>
<INPUT TYPE="submit" NAME="Enter">
</FORM>

<%
Response.Write("original: <img src=""" & strImageName & """ /><br />")
Response.Write("thumbnail: <img src=""" & strThumbName & """ /><br />")
%>

Le due istruzioni Response.Write finali le puoi anche togliere, servono solo a mostrare le due immagini, così da verificare che siano state effettivamente create.

ciao
Enjoy learning and just keep making
RispondiQuoting
Fausto77
Fausto77
il 26 febbraio 2012 alle 14:23
33 messaggi dal 13 gennaio 2012
Ciao.

Ho sistemato il codice come mi hai suggerito, però non mi crea la thumbnail, ma non mi da nessun errore.

Io sono sul server di Aruba, devo x caso installare qualche componente ?
Magari Aruba non supporta AspNet ?

Grazie.

Fausto.
RispondiQuoting
BrightSoul
BrightSoul
il 26 febbraio 2012 alle 14:33
11.886 messaggi dal 09 febbraio 2002
Contributi
ciao, sì lo supporta.
Ho dimenticato di dire che devi aggiornare anche questa riga:
objXML.Open "GET", "http://localhost/ImageResizer.aspx?image=" & Server.MapPath(strImageName) & "&thumb=" & Server.MapPath(strThumbName) & "&width=500&height=-1", True


Se hai pubblicato la pagina ImageResizer.aspx nella cartella principale del tuo sito www.dominio.it, allora dovrai cambiare quella riga così:
objXML.Open "GET", "http://www.dominio.it/ImageResizer.aspx?image=" & Server.MapPath(strImageName) & "&thumb=" & Server.MapPath(strThumbName) & "&width=500&height=-1", True


Se ancora non dovesse funzionare, allora può darsi che si stiano verificando errori nella pagina aspx. Per scoprire qual è questo errore, dalla pagina ASP fai un Response.Write di questa stringa:
Response.Write "http://localhost/ImageResizer.aspx?image=" & Server.MapPath(strImageName) & "&thumb=" & Server.MapPath(strThumbName) & "&width=500&height=-1"
Quello che vedrai a video è un URL che devi copiare e incollare nella barra dei indirizzi del browser. Così, visitando direttamente la pagina ImageResizer.aspx puoi renderti conto di quale sia l'errore.

ciao
Modificato da BrightSoul il 26 febbraio 2012 14.34 -
Enjoy learning and just keep making
RispondiQuoting
Fausto77
Fausto77
il 28 febbraio 2012 alle 07:14
33 messaggi dal 13 gennaio 2012
Ciao.

Questo è il codice che sto usando :


<!--#include file="upload.asp"-->
<%
dim id
strID = trim(request.QueryString("ID"))
Dim oUpload
Set oUpload = new cUpload
oUpload.AutoRename = False
oUpload.Overwrite = true
oUpload.SetPath ("/Foto_Record/" & strID)
oUpload.Upload
oUpload.SaveAs "01.jpg"
set oupload = Nothing

Dim strImageName, strThumbName, objXML
strImageName = "/Foto_Record/" & strID & "/01.jpg"
strThumbName = "/Foto_Record/" & strID & "/02.jpg"
Set objXML = Server.CreateObject("Microsoft.XMLHTTP")
objXML.Open "GET", "http://www.adottaunmaremmano.it/ImageResizer.aspx?image=" & Server.MapPath(strImageName) & "&thumb=" & Server.MapPath(strThumbName) & "&width=120&height=-1", True
objXML.Send
Set objXML=Nothing
%>
<FORM METHOD="Post" enctype="multipart/form-data" ACTION="">
Foto : <INPUT TYPE="file" NAME="Campo1"><BR>
<INPUT TYPE="submit" NAME="Enter">
</FORM>

<%
Response.Write("original: <img src=""" & strImageName & """ /><br />")
Response.Write("thumbnail: <img src=""" & strThumbName & """ /><br />")
Response.Write "http://www.adottaunmaremmano.it/ImageResizer.aspx?image=" & Server.MapPath(strImageName) & "&thumb=" & Server.MapPath(strThumbName) & "&width=120&height=-1"
%>

mi sembra che sia corretto, però mi succede una cosa strana, se seguo questo sistema non mi crea la thumb, quando incollo il link in una pagina come mi hai suggerito per vedere qual è l'errore allora mi esce il messaggio ok e funziona alla perfezione.

Da cosa può dipendere secondo te ?

Grazie.

Fausto.
RispondiQuoting
BrightSoul
BrightSoul
il 28 febbraio 2012 alle 21:12
11.886 messaggi dal 09 febbraio 2002
Contributi
Fausto77 ha scritto:

quando incollo il link in una pagina come mi hai suggerito per vedere qual è l'errore allora mi esce il messaggio ok e funziona alla perfezione.

bene, questo è un passo avanti, così sappiamo che la pagina aspx sta funzionando correttamente.
A questo punto può darsi che l'oggetto Microsoft.XMLHTTP non stia effettuando la richiesta alla pagina. Prova a cambiarlo con MSXML2.ServerXMLHTTP che è più indicato per le richieste che partono dal server. Cioè, aggiorna così questa riga:

Set objXML = Server.CreateObject("MSXML2.ServerXMLHTTP")


Se non funziona ancora, per caso vedi errori nella pagina? Sia usando Microsoft.XMLHTTP che MSXML2.ServerXMLHTTP?

ciao
Enjoy learning and just keep making
RispondiQuoting
Fausto77
Fausto77
il 28 febbraio 2012 alle 23:17
33 messaggi dal 13 gennaio 2012
Ciao.

Anche cambiando quel parametro continua a non funzionare.

Errori nella pagina non ne vedo, dovrei forse fare un link diretto alla pagina ?
RispondiQuoting
BrightSoul
BrightSoul
il 28 febbraio 2012 alle 23:41
11.886 messaggi dal 09 febbraio 2002
Contributi
Fausto77 ha scritto:
un link diretto alla pagina ?


ciao, non esattamente un link ma un redirect alla pagina aspx.
Prova così:
Dim strImageName, strThumbName
strImageName = "/Foto_Record/" & strID & "/01.jpg"
strThumbName = "/Foto_Record/" & strID & "/02.jpg"
Response.Redirect "/ImageResizer.aspx?image=" & Server.MapPath(strImageName) & "&thumb=" & Server.MapPath(strThumbName) & "&width=120&height=-1"
L'esecuzione si sposterà sulla pagina ImageResizer.aspx. Da qui dovrai effettuare un'altro Response.Redirect per tornare alla pagina asp.
In particolare, vai all riga 117 del file ImageResizer.aspx. Dovrebbe essere questa:
Response.Write("OK");

Sostituiscila con un redirect alla pagina che preferisci:
Response.Redirect("tuapagina.asp");


ciao
Enjoy learning and just keep making
RispondiQuoting
1 2 3 4 5

Torna al forum | Feed RSS

ASPItalia.com non è responsabile per il contenuto dei messaggi presenti su questo servizio, non avendo nessun controllo sui messaggi postati nei propri forum, che rappresentano l'espressione del pensiero degli autori.