Avatar billede sesam Nybegynder
07. februar 2002 - 00:57 Der er 6 kommentarer og
1 løsning

ASPImage

Jeg har en form der kalder dette her script:
------------kode---------------
<%

set conn = Server.CreateObject("ADODB.Connection")

   
    Set Upload = Server.CreateObject("Persits.Upload.1")
    Upload.OverwriteFiles = false
      Upload.SetMaxSize 300000, True
      Upload.SaveVirtual ("../images")
      set persistfil_billede = upload.files("file1")   

if persistfil_billede is nothing then

conn.open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lt.mdb")

    conn.Execute("insert into TblPolyrattan(Beskrivelse, Navn, VareNr) " &_
            "values('" & upload.form("Beskrivelse") & "', '" & upload.form("Navn") & "', '" & upload.form("vareNr") & "')")
    if Err <> 0 Then
          Response.Write headerfont & "<br>Der er sket en fejl! : " & Err.Description
    Else
          Response.Write headerfont & "<br><a href=upload.asp>Tilføjet...Tilbage</a></strong></font>"
    End If
    conn.Close
    set conn = nothing
   
else

MyConn = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/lt.mdb")   

    For Each File in Upload.Files
   
        File.ToDatabase MyConn, "insert into TblPolyrattan(Images, Beskrivelse, Navn, VareNr) " &_
        "values('" & File.ExtractFileName & "', '" & upload.form("Beskrivelse") & "', '" & upload.form("Navn") & "', '" & upload.form("VareNr") & "')"
        if Err <> 0 Then
          Response.Write headerfont & "<br>Der er sket en fejl! : " & Err.Description
    Else
          Response.Write headerfont & "<br><a href=upload.asp>Tilføjet...Tilbage</a></strong></font>"
    End If
    Next
   
end if

%>
Tjekker om der et billede osv. smider data ind i db.
Nu vil jeg bare gerne ha at ASPImage resizer billedet og laver en thumb.
Er der en der har styr på det?
Avatar billede webbe Nybegynder
07. februar 2002 - 09:12 #1
Her bruges ASPImage på jpg-billeder:

<%
                    Set Image = Server.CreateObject("AspImage.Image")
                               
                    Image.PadSize = 0
                   
                    ImgFullPath = (Server.MapPath("./../images/billeder/"&tab(i,4)&""))
                       
                    Image.LoadImage ImgFullPath
               
                    Image.GetImageFileSize ImgFullPath, X, Y
                    Image.MaxX = X
                    Image.MaxY = Y
               
                    If X > Y OR X > 100 Then
                        ResizedX = 100
                        ResizedY = 100
                    End if
               
                    Image.Resize ResizedX, ResizedY
                   
                    Image.ImageFormat = 1
                    Image.JPEGQuality = 100
                    Image.FileName = Server.MapPath("./../images/billeder_tmp/"&tab(i,4)&"")
                    Image.SaveImage
               
                    If tab(i,4) <> "" Then
                        Response.Write "<a href=""java script:window.openPopUp('vis_pics.asp?id="&tab(i,1)&"',"&X&","&Y&")""><img src=""../images/billeder_tmp/"&tab(i,4)&""" border=""0""></a><br>"&tab(i,3)&""
                    Else
                        Response.Write("")
                    End if
                    %>
Avatar billede sesam Nybegynder
07. februar 2002 - 11:48 #2
Kunne ikke rigtig bruge det....
Avatar billede webbe Nybegynder
07. februar 2002 - 11:49 #3
sesam:

Må jeg få at vide hvorfor????
Avatar billede sesam Nybegynder
07. februar 2002 - 12:11 #4
Hvor passer det ind i min anden kode?
Avatar billede webbe Nybegynder
07. februar 2002 - 12:21 #5
Det kommer jo an på hvor du vil have lavet din thumbnail!

Du skrev jo ikke noget om at det skulle være i den kode du postede her! ;0)

Iøvrigt skal det være et sted efter du har gemt i din DB, da du jo skal bruge DB-info til at generere dine thumbnails!
Avatar billede webbe Nybegynder
07. februar 2002 - 12:21 #6
For at påstå at koden ikke danner thumbnails vil være en direkte løgn - du skal bare tilpasse det til dit script!
Avatar billede sesam Nybegynder
07. februar 2002 - 12:24 #7
Nej jeg påstår heller ikke at det ikke virker, jeg kan bare ikke få det til at virke...
Men det kunne jo være at du ville hjælpe?
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester