Aspupload med förminska bild

freddssiteMedlem sedan maj 2001123 inlägg

Frågan13 nov. 2005 00:15#1

Denna koden rullar igenom och jag får inga felmeddelanden. Filen finns på servern och fram till dess är allt bra! men öppnas filen har den ej förminskats! Vad har jag gjort för fel i min kod? Snälla hjälp!

<%
Set Upload = Server.CreateObject("Persits.Upload")
Upload.OverwriteFiles = False
Upload.SetMaxSize 100000, False
Count=Upload.Save(Server.MapPath("/db/filer/"))
For Each file In Upload.Files
  If File.ImageType = "UNKNOWN" Then
  
      Response.Redirect "/error.asp?msg=wrongFileType"
      File.Delete 
   End If
  Next
For Each file In Upload.Files

If file.Size = 100000 Then
        'This means the file was truncated
        Response.Redirect "/error.asp?msg=fileTooBig"
    File.Delete 
    End If
Next

Set File = Upload.Files
sender = replace(Upload.form("txtSender"),"'","''")
If NOT File Is Nothing Then
On Error Resume Next
strFileName= Upload.Files("blob").ExtractFileName  

END IF
   
Set Image = Server.CreateObject("AspImage.Image")
Image.Loadimage (Server.MapPath("/db/filer/"&strFileName))

Image.ImageFormat = 1
Image.JPEGQuality = 90
Image.Resize 150,150

Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false

Image.FileName = (Server.MapPath("/db/filer/"&strFileName))
Image.SaveImage

Set Image = Nothing

%>

J.N.Medlem sedan apr. 20031 660 inlägg

14 nov. 2005 13:59#2

HEJ!

Kan ej AspImage, men två frågor kan jag komma med:

#1:
Är denna rätt?
Image.TextOut "Http://kort.webbisen.com/vykort", 220, 230, false
Vet inte direkt vad den gör, men är domänen rätt?

#2:
Tittar du i denna mapp för att kontrollera filen?
Har du rätt rättigheter där? Behövs Delete för att radera originalfilen?
Image.FileName = (Server.MapPath("/db/filer/"&strFileName))