Cisse
Legacy Member
Voor een project dat ik moet maken moet ik een foto kunnen uploaden naar een website. Ik kan een foto reeds selecteren en deze kopieren naar een andere map "pics". Maar voor ik wil uploaden wil ik eerst de foto in het klein kunnen zien.
MAW:
ik heb een input type="file" via deze browse knop kan ik een foto selecteren. Nadien staat er bv C:\Inetpub\wwwroot\Kris\pics\a1.jpg in het tekstvakje.
Nadien klik ik op een knop foto bekijken. Dan wil ik de foto in het klein kunnen bekijken. Indien deze goed is, wil ik op de knop uploaden klikken en dan moet de foto gekopieerd worden naar een andere map.
Het kopieren van de ene map naar de andere lukt als ik de knop "Foto bekijken" weglaat. Als ik de knop Foto bekijken terug zet kan ik de details van de foto wel bekijken, maar de foto zelf niet. Nadien als ik op de knop uploaden klik lukt dit dan weer niet. Ik heb mij al zot gezocht.
Weet er iemand hier een antwoord op ??
CODE:
Sub Upload_Click(Sender as Object, e as EventArgs)
Try
MyFile.PostedFile.SaveAs
("C:\Inetpub\wwwroot\Kris\eigendompics\" + session("c2"))
Span1.InnerHtml = "Foto succesvol geupload in :
C:\Inetpub\wwwroot\Kris\eigendompics\" & session("c2")
catch Exp as exception
span1.InnerHtml = "<font color=red>Er is een fout opgetreden.
Gelieve het bestand te controleren</font>"
UploadDetails.visible = false
span2.visible=false
End Try
End Sub
Sub foto_Click(sender as object, e as eventargs)
FileName.InnerHtml = MyFile.PostedFile.FileName
FileContent.InnerHtml = MyFile.PostedFile.ContentType
FileSize.InnerHtml = MyFile.PostedFile.ContentLength
Dim strFileName as string
strFileName = MyFile.PostedFile.FileName
Dim c as string = System.IO.Path.GetFileName(strFileName)
session("c2") = c
if (FileName.InnerHtml).ToLower() = "" then
lblOutput.Visible="true"
lblOutput.Text = "<font color=red>Gelieve eerst een foto te
selecteren.</font>"
else if right(FileName.InnerHtml,4).ToLower() <> ".jpg" then
lblOutput.Visible="true"
lblOutput.Text = "<font color=red>De file niet van van het
type .jpg</font>"
Uploaddetails.visible="false"
else
lblLabel.Visible="true"
lblOutput.Visible="false"
lblFoto.Visible="true"
UploadDetails.visible = "True"
btnUploaden.Visible="true"
end if
end sub
MAW:
ik heb een input type="file" via deze browse knop kan ik een foto selecteren. Nadien staat er bv C:\Inetpub\wwwroot\Kris\pics\a1.jpg in het tekstvakje.
Nadien klik ik op een knop foto bekijken. Dan wil ik de foto in het klein kunnen bekijken. Indien deze goed is, wil ik op de knop uploaden klikken en dan moet de foto gekopieerd worden naar een andere map.
Het kopieren van de ene map naar de andere lukt als ik de knop "Foto bekijken" weglaat. Als ik de knop Foto bekijken terug zet kan ik de details van de foto wel bekijken, maar de foto zelf niet. Nadien als ik op de knop uploaden klik lukt dit dan weer niet. Ik heb mij al zot gezocht.
Weet er iemand hier een antwoord op ??
CODE:
Sub Upload_Click(Sender as Object, e as EventArgs)
Try
MyFile.PostedFile.SaveAs
("C:\Inetpub\wwwroot\Kris\eigendompics\" + session("c2"))
Span1.InnerHtml = "Foto succesvol geupload in :
C:\Inetpub\wwwroot\Kris\eigendompics\" & session("c2")
catch Exp as exception
span1.InnerHtml = "<font color=red>Er is een fout opgetreden.
Gelieve het bestand te controleren</font>"
UploadDetails.visible = false
span2.visible=false
End Try
End Sub
Sub foto_Click(sender as object, e as eventargs)
FileName.InnerHtml = MyFile.PostedFile.FileName
FileContent.InnerHtml = MyFile.PostedFile.ContentType
FileSize.InnerHtml = MyFile.PostedFile.ContentLength
Dim strFileName as string
strFileName = MyFile.PostedFile.FileName
Dim c as string = System.IO.Path.GetFileName(strFileName)
session("c2") = c
if (FileName.InnerHtml).ToLower() = "" then
lblOutput.Visible="true"
lblOutput.Text = "<font color=red>Gelieve eerst een foto te
selecteren.</font>"
else if right(FileName.InnerHtml,4).ToLower() <> ".jpg" then
lblOutput.Visible="true"
lblOutput.Text = "<font color=red>De file niet van van het
type .jpg</font>"
Uploaddetails.visible="false"
else
lblLabel.Visible="true"
lblOutput.Visible="false"
lblFoto.Visible="true"
UploadDetails.visible = "True"
btnUploaden.Visible="true"
end if
end sub
) een voorbeeldje geven...