ASP upload - Kan godt gemme, men ikke hente?
Hej eksperter!Jeg vil gerne relatere til mit spg: http://www.eksperten.dk/spm/684037 - jeg har nu fået det til at virke "nogenlunde" - den gemmer fint på serveren, selve filen i min temp mappe, via følgende funktion.
' Gemmer billedet med id'et fra basen som navn
AktualName = session("id")
strExtension = LCase(File1.Ext)
' Gemmer billedet fysisk på serveren
File1.SaveAs SaveTemp & "\" & AktualName & strExtension
I følgende kode skal den så hente billedet igen fra stedet hvor det bliver gemt, jeg definerer "SaveTemp" , "SaveOrg" og "SaveThumb" længere oppe. Billederne skal nemlig gemmes på en anden server på netværket.
Set AspImage = Server.CreateObject("AspImage.Image")
AspImage.LoadImage (SaveTemp) & "\" & AktualName & strExtension
AspImage.FileName = SaveOrg & "\" & AktualName & strExtension
AspImage.JPEGQuality = 45
AspImage.SaveImage
response.write("Stort billede gemt<br>")
AspImage.LoadImage (SaveTemp) & "\" & AktualName & strExtension
AspImage.FileName = SaveThumb & "\" & AktualName & strExtension
AspImage.JPEGQuality = 25
AspImage.SaveImage
response.write("Lille billede gemt<br>")
