Søg
Avatar billede mortency Nybegynder
26. november 2002 - 16:30 Der er 2 kommentarer og
1 løsning

Upload problem....

<!--#include file ="include/dbconn.asp"-->
<%
    '--------------------------------------------------------------------
    'UPLOAD IMAGE START
    '--------------------------------------------------------------------
    Set Upload = Server.CreateObject("Persits.Upload")
   
    '--------------------------------------------------------------------
    ' This is needed to enable the progress indicator
    '--------------------------------------------------------------------
    Upload.ProgressID = Request.QueryString("PID")

    '--------------------------------------------------------------------
    ' We use memory uploads, so we must limit file size
    '--------------------------------------------------------------------
    Upload.SetMaxSize 1000000000, True

    '--------------------------------------------------------------------
    ' Capture uploaded file. Save returns the number of files uploaded
    '--------------------------------------------------------------------
    Count = Upload.Save("C:\upload")

    '--------------------------------------------------------------------
    ' Obtain file object
    '--------------------------------------------------------------------
    Set File = Upload.Files(1)
   
    '--------------------------------------------------------------------
    'Create day.month.year-hour.miunte.second.fileExt
    '--------------------------------------------------------------------
    Dim fileNavn
    FilNavn = now() & File.ext
   
    '--------------------------------------------------------------------
    'Create instance of AspJpeg object
    '--------------------------------------------------------------------
    Set jpeg = Server.CreateObject("Persits.Jpeg")
   
    '--------------------------------------------------------------------       
    'Open uploaded file
    '--------------------------------------------------------------------
    jpeg.Open( File.Path )

    '--------------------------------------------------------------------
    'CREATE THUMBNAIL START
    '--------------------------------------------------------------------
    'Resize thumbnail
    jpeg.Width = "150"

    'Set new height, preserve original width/height ratio on thumbnail.
    jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
    '--------------------------------------------------------------------
    'CREATE THUMBNAIL END
    '--------------------------------------------------------------------
   
    '--------------------------------------------------------------------
    'CREATE WATERMARK START
    '--------------------------------------------------------------------
    'Resize thumbnail
    jpeg.Width = "500"

    'Set new height, preserve original width/height ratio on thumbnail.
    jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth   
   
    Jpeg.Canvas.Font.Color = &HFF0000 ' red
    Jpeg.Canvas.Font.Family = "Verdana"
    Jpeg.Canvas.Font.Size = "20"
    Jpeg.Canvas.Font.Bold = True
    Jpeg.Canvas.Print Jpeg.Width / 2, Jpeg.Height / 2, "Fotos © 2002"
    '--------------------------------------------------------------------
    'CREATE WATERMARK END
    '--------------------------------------------------------------------
   
    '--------------------------------------------------------------------
    ' Use ADO Recordset object
    '--------------------------------------------------------------------
    Set oRS = Server.CreateObject("adodb.recordset")
   
    '--------------------------------------------------------------------
    ' Optional: check whether this file already exists using MD5 hash
    '--------------------------------------------------------------------
    Hash = File.MD5Hash
    oRS.Open "SELECT * from tblBilder WHERE BHash='" & Hash & "'", oConn, 2, 3
    If Not oRS.EOF Then
        '--------------------------------------------------------------------
        'If Orginalimage exists then an error message!
        '--------------------------------------------------------------------
        strMSG = "Orginalbilde finnes i databasen."
    End If
    oRS.Close

    '--------------------------------------------------------------------
    ' Reopen recordset to insert files
    '--------------------------------------------------------------------
    oRS.Open "tblBilder", oConn, 2, 3

    oRS.AddNew
    'Upload orginal image to database.
    oRS("Image_orginal") = File.Binary
    'Upload watermark to database.
    oRS("Image_Vannmerke") = File.Binary
    'Upload thumbnail to database.
    Set ThumbFile = Upload.OpenFile(file.Path)
    oRS("Image_Thumbnail").Value = ThumbFile.Binary
    oRS("BfilNavn") = FilNavn'Filename.
    oRS("BFilSize") = File.Size'Orginal image filsize.
    oRS("Bhash") = Hash
    oRS.Update
   
    '--------------------------------------------------------------------   
    'Close recordset
    '--------------------------------------------------------------------
    oRS.close
   
    '--------------------------------------------------------------------
    'Delete the file
    '--------------------------------------------------------------------
    File.Delete
   
    '--------------------------------------------------------------------
    'Release recordset memory.
    '--------------------------------------------------------------------
    Set oRS = Nothing
   
    '--------------------------------------------------------------------
    'Close connection object.
    '--------------------------------------------------------------------
    oConn.Close

    '--------------------------------------------------------------------
    'Release connetion memory
    '--------------------------------------------------------------------
    Set oConn = Nothing

%>

Hvordan får jeg dette scriptet til å laste opp thumbnail og watermark ferdig formatert til databasen. Eneste som blir lastet opp er orginal bilde.

- Thumbnail liten størelse
- watermark skal ha text på seg.

mvh
Morten
Avatar billede coltau Juniormester
27. november 2002 - 00:18 #1
Denne linie skal måske ændres:

'Upload watermark to database.
    oRS("Image_Vannmerke") = File.Binary
   
til:

'Upload watermark to database.
    oRS("Image_Vannmerke") = JPeg ' watermark (eller JPeg.Binary)
Avatar billede mortency Nybegynder
02. december 2002 - 13:37 #2
//COLTAU
Nå laster den alle 3 bildene til harddisken og de er formatert som de skal. Men scriptet laster ikke opp thumbnail og watermark til databasen. - Kun orginal bilde.

Morten

<%
    ' Create an instance of AspUpload object
    Set Upload = Server.CreateObject("Persits.Upload")

    ' Capture uploaded file. Save returns the number of files uploaded
    Count = Upload.Save("C:\upload")

    If Count = 0 Then
        Response.Write "No images selected. <A HREF=""form2.asp"">Try again</A>."
        Response.End
    Else

        ' Obtain File object representing uploaded file
        Set File = Upload.Files(1)

        ' Is this a valid image file?
        If File.ImageType <> "UNKNOWN" Then

            ' create instance of AspJpeg object
            Set jpeg = Server.CreateObject("Persits.Jpeg")
           
            '--------------------------------------------------------------------
            'CREATE THUMBNAIL START
            '--------------------------------------------------------------------
            ' open uploaded file
            jpeg.Open( File.Path )

            'Resize thumbnail
            jpeg.Width = "150"

            'Set new height, preserve original width/height ratio on thumbnail.
            jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
           
            'Set the quality.
            jpeg.Quality = 40

            SavePathThumbNail = "c:\upload\thumbnail_" & File.ExtractFileName

            ' AspJpeg always generates JPEG thumbnails regardless of original format.
            ' If the original file was not a JPEG, append .JPG extension.
            If UCase(Right(SavePathThumbNail, 3)) <> "JPG" Then
                SavePathThumbNail = SavePathThumbNail & ".jpg"
            End If       

            jpeg.Save SavePathThumbNail
            '--------------------------------------------------------------------
            'CREATE THUMBNAIL END
            '--------------------------------------------------------------------
           
            '--------------------------------------------------------------------
            'CREATE WATERMARK START
            '--------------------------------------------------------------------
            ' open uploaded file
            jpeg.Open( File.Path )

            'Resize watermark
            jpeg.Width = "300"

            'Set new height, preserve original width/height ratio on thumbnail.
            jpeg.Height = jpeg.OriginalHeight * jpeg.Width / jpeg.OriginalWidth
           
            'Set the quality.
            jpeg.Quality = 60

            SavePathWaterMark = "c:\upload\watermark_" & File.ExtractFileName

            ' AspJpeg always generates JPEG thumbnails regardless of original format.
            ' If the original file was not a JPEG, append .JPG extension.
            If UCase(Right(SavePathWaterMark, 3)) <> "JPG" Then
                SavePathWaterMark = SavePathWaterMark & ".jpg"
            End If
           
            'Draw text
            Jpeg.Canvas.Font.Color = &HFF0000 ' red
            Jpeg.Canvas.Font.Family = "Verdana"
            Jpeg.Canvas.Font.Size = "20"
            Jpeg.Canvas.Font.Bold = True
            Jpeg.Canvas.Print Jpeg.Width / 2, Jpeg.Height / 2, "Fotos © 2002"   

            jpeg.Save SavePathWaterMark
            '--------------------------------------------------------------------
            'CREATE WATERMARK END
            '--------------------------------------------------------------------

            ' Using ADO, save tree images in the database along with description.
            strConnect = "Data Source=" & Server.Mappath("db\aspjpeg.mdb")& ";Provider=Microsoft.Jet.OLEDB.4.0;"

            Set rs = Server.CreateObject("adodb.recordset")
            rs.Open "images", strConnect, 1, 3
            rs.AddNew
           
            ' Upload description
            rs("description") = Upload.Form("Description")
           
            ' Use File.Binary to access binary data of uploaded file.
            ' Saves the orginal image
            rs("orginal_image").Value = File.Binary

            ' Saves the thumbnail
            Set ThumbFile = Upload.OpenFile(file.Path)
            rs("thumbnail").Value = ThumbFile.Binary'Hva skal skrives her?
           
            ' Saves the watermark image
            rs("watermark").Value = File.Binary'Hva skal skrives her?

            rs.Update
            rs.Close
            Set rs = Nothing

            Response.Write "Success! The original file, Watermark file and its thumbnail are saved in the database.<P>"
            Response.Write "Copies can be found at <B>C:\upload\" & File.ExtractFileName & "</B> , <B>" & SavePathWaterMark & "</B>" & "</B> and <B>" & SavePathThumbNail & "</B><P>"
            Response.Write "<a href=view_all_images.asp>view images</a>"
        Else           
            Response.Write "This is not a valid image. <A HREF=""form.asp"">Try again</A>."
            Response.End
        End If
    End If
%>
Avatar billede mortency Nybegynder
02. december 2002 - 14:48 #3
' Saves the watermark image
            Set Watermark = Upload.OpenFile(SavePathWaterMark)
            rs("watermark").Value = Watermark.Binary
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
Programmeringssprog kurser
Kurser inden for grundlæggende programmering
Se alle Programmeringssprog kurser

Flere spørgsmål fra ASP kategorien

Titel Indlæg Oprettet Seneste aktivitet
Persits.Upload Af bsn i ASP 9 17/09/202611:37 21/09/202615:15
Jeg bakser med noget Database og If Then med ASP - hvad gør jeg galt? Af Peer i ASP 10 25/06/202622:20 04/09/202602:30
Tjek alle checkbox i form Af bsn i ASP 4 18/05/202601:57 19/05/202613:33
Lost focus Af bsn i ASP 1 07/11/202415:34 01/01/202514:58
ASP classic Af bsn i ASP 8 28/10/202423:11 30/10/202422:51
Se alle spørgsmål i kategorien Opret spørgsmål

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.

Opret Log ind

Du kan også logge ind via nedenstående tjenester

Alle kategorier på Eksperten
Seneste spørgsmål Seneste aktivitet
I dag 18:04 Findes der et "Papir-kurv" symbol, man kan sætte på Firefox og Google Chrome ? (For oven) Af Ikke-ekspert i Browsere
I går 12:14 Ang udskrift Canon mb5050 Af made18 i Printere
02/1021:29 Vedr. Windows 11 version 26H2 Af ErikHg i Fri debat
02/1018:16 Tømme gammel PC for indhold, kan ikke tændes Af Mai i Andet software
01/1017:41 NVIDIA Geforce GTX 1060 6 GB som "snakker" Af dcedata1977 i Andet hardware
White papers
Flere white papers »