Brug af ASP Upload og ASPImage
Jeg skal uploade en fil til min server, og samtidig sikre mig at den fårde rigtige dimensioner, hvordan gøres det nmmest??indtil nu har jeg dette, men den ændre ikke noget
Hvad gør jeg galt
håber i kan hjælpe!!
<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.Save
' Limit file size to 50000 bytes, throw an exception if file is larger
For Each File in Upload.Files
File.SaveAs ("D:\www\log\avatar\" & Session("ID") & "" & file.Ext)
Next
Upload.SetMaxSize 20000, True
' Undgå samme filnavn på to billeder
Upload.OverwriteFiles = True
If Err then
' 8 is the number of "File too large" exception
If Err.Number = 8 Then
Response.Write "Billedet er over 20kb. <br><br> <a href=""uploadavatar.asp"">Prøv et andet billede.</a>"
Else
If Err <> 0 Then
Response.Write "Der opstod en fejl " & Err.Description
Response.Write "<br><br> <a href=""uploadpic.asp"">Prøv igen.</a>"
end if
end if
size = 70
Set objImg = Server.CreateObject("AspImage.Image")
objImg.LoadImage "D:\www\morsside.dk\www\log\avatar\" & Session("ID") & "" & file.Ext
ImageHeight = objImg.MaxY
ImageWidth = objImg.MaxX
NewHeight = Cint(ImageHeight*size/ImageWidth)
NewWidth = size
Set objImg = Nothing
Set Image = Server.CreateObject("AspImage.Image")
Image.LoadImage "D:\www\log\avatar\" & Session("ID") & "" & file.Ext
Image.FileName = "D:\www\log\avatar\" & Session("ID") & "" & file.Ext
Image.ImageFormat = 1
ProgressiveJPEGEncoding = true
Image.JPEGQuality = 80
Image.ResizeR NewWidth,NewHeight
Image.SaveImage
Set Image = Nothing
else
Set myConn = Server.CreateObject("ADODB.Connection")
myConn.open = ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& Server.MapPath("/../db/forum.mdb"))
' Billedestien indsættes i PersonTabel
for each file in Upload.Files
strSQL = "Update FORUM_MEMBERS SET M_AVATAR_URL = '..\log\avatar\" & File.ExtractFileName & "' WHERE MEMBER_ID LIKE '" & Session("ID") & "'"
myConn.Execute(strSQL)
next
response.redirect("avatarkomplet.asp")
end if
%>
Hvad gør jeg galt??
