Nu har jeg ikke rettet fejl osv, men benyt koden her:
<%
'Filen upload.asp
'Benytter AspSmartUpload of AspImage
On Error Resume Next
If request("upload")="ja" then
'(her skal så koden være :-)
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
'savedir can be changed
intCount = mySmartUpload.Save("/Upload")
For each file In mySmartUpload.Files
If not file.IsMissing Then
file.SaveAs("/Upload/" & file.FileName)
strFilnavn = file.FileName
End If
Next
Set MyImage = Server.CreateObject("AspImage.Image")
strOrigImg = "/Upload/" & strFilnavn
strThumbName = "small_" & strFilnavn
strBigName = "big_" & strFilnavn
strOrigImgFullPath = Server.Mappath("\upload\")
strOriginal = strOrigImgFullPath & strOrigImg
strBig = strThumbFullPath & strBigName
strThumb = strThumbFullPath & strThumbName
'MAKE BIG
'load original image
MyImage.LoadImage strOriginal
'Resize factor
ResizedX = 400
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY
Image.FileName = strBig
Image.SaveImage
'MAKE THUMB
'load original image
MyImage.LoadImage strOriginal
'Resize factor
ResizedX = 100
MyImage.GetImageFileSize strOriginal, X, Y
MyImage.MaxX = X
MyImage.MaxY = Y
ResizedY = (ResizedX / MyImage.MaxX) * MyImage.MaxY
MyImage.ResizeR ResizedX, ResizedY
Image.FileName = strThumb
Image.SaveImage
Else
'denne form bør laves ved Response.Write.
Response.Write "<form method=""POST"" enctype=""multipart/form-data"""
Response.Write " name=""upload"" action=""upload.asp?upload=ja"">"
Response.Write " <p><input type=""file"" name=""image"" size=""20""></p>"
Response.Write " <p><input type=""submit"" value=""Send"" name=""send"">"
Response.Write " <input type=""reset"" value=""Nulstil"" name=""nulstil""></p>"
Response.Write "</form>"
End If
' Trap errors
' ***********
If Err Then
Response.Write("<b>Wrong selection : </b>" & Err.description)
Else
' Display the number of files uploaded
' ************************************
Response.Write(intCount & " file(s) uploaded.")
%>
