ASPupload sletter eller resizer forkerte billeder
Jeg bruger ASPupload som så resizer et billlede og samtidig laver en thumbnail i et endet bib /thum, men når man oploader nogle billeder, laver den alle de tidlige billeder om til enten en ukendelig type eller også resizer dem til width 30 som det kun er thumbnailene som slal være?????????? håber der er nogle der kan se fejlen forneden - da jeg efterhånden har mistet ret mange billeder!-----------------------------------------------------
'--- start --
ImageDir = "../../billeder/referencer/"
ImageIn=server.mappath(ImageDir) &"\"
ImageOut=server.mappath(ImageDir&"thum") &"\"
Set objFS = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFS.GetFolder(Server.MapPath(ImageDir))
Set objFiles = objFolder.Files
For Each Image In objFiles
img = Image.Name
Set Image = Server.CreateObject("AspImage.Image")
Image.AutoSize = false
Image.LoadImage(ImageIn& img )
X = Image.MaxX
Y = Image.MaxY
If X > 30 Then
ResizedX = 30
ResizedY = (ResizedX * Y/X)
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.FileName = (ImageOut & img )
Image.SaveImage
' ********* resize original billed start
Image.LoadImage(ImageIn& img )
X = Image.MaxX
Y = Image.MaxY
If X > 250 Then
ResizedX = 250
ResizedY = (ResizedX * Y/X)
End if
Image.Resize ResizedX, ResizedY
Image.ImageFormat = 1
Image.JPEGQuality = 100
Image.FileName = (ImageIn & img )
Image.SaveImage
' ********* resize original billed slut
Set Image = nothing
Next
Set objFS = Nothing
'--- slut ---
%>
