Non so se ho capito.
Nella pagina ho una immagine:
codice:
<asp:image id="Image1" runat="server" Width="50" Height="50" ImageUrl="r.jpg"></asp:image>
che inizialmente punta all'immagine r.jpg
permetto all'utente di fare l'upload di una sua immagine e la memorizzo nel server sempre con lo stesso nome, r.jpg (per lo stesso utente si intende). Al ritorno la pagina deve mostrare la nuova immagine.
codice:
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Inserire qui il codice utente necessario per inizializzare la pagina
If Trim(Request.QueryString("img")).Length > 0 Then
Me.immagine()
End If
End Sub
Private Sub btUpload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btUpload.Click
Dim Messaggio$ = ""
If Me.mioFile.PostedFile Is Nothing Then Exit Sub
Try
'ricavo la dimensione del file
Dim dimensione% = Me.mioFile.PostedFile.ContentLength
Messaggio &= "dimensione file: " & dimensione & "
"
'ricavo il nome del file con percorso
Dim strFile$ = Me.mioFile.PostedFile.FileName
Messaggio &= "nome del file con percorso: " & strFile & "
"
'ricavo il nome del file senza percorso
Dim strNomeFile$ = Path.GetFileName(strFile)
'se il nome è sempre lo stesso
strNomeFile = "r.jpg"
Messaggio &= "nome del file senza percorso: " & strNomeFile & "
"
Dim strPercorsoFileUpload$ = Server.MapPath("./")
Messaggio &= "percorso upload: " & strPercorsoFileUpload & "
"
Dim strPercorsoFileUploadFile$ = strPercorsoFileUpload & "" & strNomeFile
Messaggio &= "nome del file trasferito con percorso: " & strPercorsoFileUploadFile & "
"
Dim strMessaggioFinale$ = ""
Me.mioFile.PostedFile.SaveAs(strPercorsoFileUploadFile)
Me.lbEsito.Text = "Upload avvenuto correttamente
" & Messaggio & "</p>"
Me.Image1.ImageUrl = Request.Url.AbsolutePath & "?img=xyz"
Catch er As Exception
Me.lbEsito.Text = er.ToString & "
" & Messaggio & "</p>"
End Try
End Sub
Private Sub immagine()
'Inserire qui il codice utente necessario per inizializzare la pagina
Response.Expires = -1
' scarico un file di nome file.zip
Dim strPath As String = Server.MapPath("r.jpg")
Dim file As FileInfo = New FileInfo(strPath)
' verifica esistenza
If file.Exists Then
' imposta le headers
Response.Clear()
Response.AddHeader("Content-Disposition", "attachment; filename=" & file.Name)
Response.AddHeader("Content-Length", file.Length.ToString())
Response.ContentType = "application/octet-stream"
' leggo dal file e scrivo nello stream di risposta
Response.WriteFile(strPath)
Response.End()
Else
Response.Write("Impossibile scaricare il file.")
End If
End Sub
a me funziona