ASP.NET Zone

Die ASP.NET Community. Alle Antworten rund um Microsoft® Webtechnologien
Willkommen bei ASP.NET Zone. Anmelden | Registrieren | Hilfe | Impressum | ASP.NET Zone Suchplugin

in
Home Blogs Foren FAQ Communities Fotos Downloads

Classic ASP-Seite umwandeln

Letzter Beitrag 10-08-2015, 19:53 von Giov125. 0 Antworten.
Beiträge sortieren: Zurück Weiter
  •  10-08-2015, 19:53 225950

    Classic ASP-Seite umwandeln

    Hallo,
    ich habe eine ASP Website in ASP (vor vielen Jahren selbst erstellt) und als Upload-Komponente Persits aspupload und Persits aspjpeg benutzt. Nun habe ich das Problem, keinen (funktionierenden) Webserver mit diesen Komponenten mehr zu finden. Da ich selbst keine Ahnung von ASP.Net habe hier die Frage an die Spezialisten:
    Läßt sich der nachfolgende Code  einigermassen in aspx realisieren bzw. wäre jemand bereit, gegen Bezahlung dies zu übernehmen.
    Im Grundsatz soll eine Bilddatei in den upload, heruntergerechnet und gespeichert werden. Eine Beschriftung wie im Original ist nicht notwendig.

    Danke
    Johann


    Hier ein Teil des asp-Codes:

    'On error resume next
    kennung=request.querystring("kennung")
    Code=request.querystring("Code")
    pfad = server.mappath("kundenbilder") & "\"

    Set Upload = Server.CreateObject("Persits.Upload")
    Upload.SetMaxSize 1200000, True

    count=Upload.SaveToMemory

    ' 8 is the number of "File too large" exception
    If Err.Number = 8 Then
               Response.Write "Die Datei ist zu groß"
               Else
               If Err <> 0 Then
                  Response.Write "Ein Fehler ist aufgetreten: " & Err.Description
              
                 
               End If



        'Set File = Upload.Files("FILE1")
            'If File.ImageType <> "UNKNOWN" Then
           
    '##########################neue Größe und speichern
    Set jpeg = server.createObject("Persits.Jpeg")

       For Each File in Upload.Files
       'response.write file.imagetype 
      
       If File.ImageType <> "UNKNOWN" Then
      
       ' Open uploaded file from memory
        jpeg.OpenBinary(File.Binary)
        'neue Breite und Höhe
       
            if Jpeg.OriginalWidth > 800 then
                L = 800
                Jpeg.Width = L
                Jpeg.Height = Jpeg.OriginalHeight * L / Jpeg.OriginalWidth
            end if
        'zuviel des guten
        'Jpeg.Sharpen 1,120
         
         'Schrift einfügen
         'rot, weißer Hintergrund ###########
            'Jpeg.Canvas.Font.Color = &HFF0000 ' Red
            'Jpeg.Canvas.Font.Family = "Courier New"
            'Jpeg.Canvas.Font.Bold = True
            'Jpeg.Canvas.Font.Quality = 4 ' Antialiased
            'Jpeg.Canvas.Font.BkMode = "Opaque" ' to make antialiasing work
            'Jpeg.Canvas.Print 5, 5, "www.imker-boerse.de"
            '################################
           
             Jpeg.Canvas.Font.Color = &HFF0000
             Jpeg.Canvas.Font.Family = "Courier New"
            'Jpeg.Canvas.Font.Bold = True
            ' size in Pixel angeben!
            Jpeg.Canvas.Font.Size = 15  

            Jpeg.Canvas.Font.Quality = 4 ' Antialiased
            Jpeg.Canvas.Font.BkMode = "Opaque" ' to make antialiasing work

       
            beschriftung = "www.xxxx / " & kennung
            Jpeg.Canvas.Print 5, 5, beschriftung

       
    'speichern   
        bildname = pfad & kennung & "." & file.imagetype
       
        Jpeg.Save bildname
       
    '########################Ende resize und speichern
           

            'File.SaveAs pfad & kennung & "." & file.imagetype
            'Response.Write "Datei erfolgreich übertragen:" & "<br>"
            Bild=kennung & "." & file.imagetype
            'Response.Write Bild & "<BR>"
           
            bOk = "true"
           
            else Response.Write "Dies ist keine Bilddatei"
           
            End If
        next
       
    End If
    set Upload = nothing
    set jpeg = nothing

    %>

Als RSS Feed in XML ansehen
Powered by Community Server (Commercial Edition)