Upload af billeder

Hvis det er ASPsmart upload..

så kig her..

http://www.aspsmart.com/aspSmartUpload/

der står hvordan du kan checke på kryds og tværs

1) Det kan du kontrolere v.h.a. FSO. <% If File.Exists ... %>
Men der er vist også en overwrite-egenskab, du kan sætte til True eller False.

Alternativt kan du også benytte ASPsmartupload. Det har jeg kun gode erfaringer med. Og der er en god dokumentation på www.aspsmart.com

Du kunne vel ikke finde den relevante kode til mig?

for at finde størrelsen på billedet skal du bruge:


If File.ImageWidth >= 80 And File.ImageWidth <= 90 Then
  If File.ImageHeight >= 80 And File.ImageHeight <= 90 Then
    response.write "dette billede har de rigitge størrelser"
  Else
    response.write "dette billede har IKKE de rigitge størrelser"
  End If
Else
  response.write "dette billede har IKKE de rigitge størrelser"
End If

-- xs

Jo...

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("billede.jpg")
Set File = fso.OpenTextFile(filespec,1)
If File.Exists Then
  'Blablabla
Else
  'Blablabla
End If

Set File = Nothing
Set fso = Nothing

Tak for jeres 2 kode-eksempler.

Jeg har lige fundet ud af, at min kode bare uploader filen, hvorefter den check om filen faktisk er af typen "gif" eller "jpg". Ikke så smart - vel.

Så derfor må I også meget gerne hjælpe mig til at ombygge min kode (med de 2 ovenstående kode-eksempler) således, at koden før upload checker om:

1) Filen faktisk er af typen "gif" eller "jpg".
2) Om filen allerede eksisterer på serveren.
3) Om filen (billedet) er mellem 80 x 80 pixels og 90 x 90 pixels.

Her er min kode - jeg giver 15 points ekstra, hvis I kan ombygge den. (I har helt frie hænder til at udbygge koden, hvis I kan skrive noget, som er smartere end min kode.)

    strImageDir="/grafik/2002/"
      Set Upload = Server.CreateObject("Persits.Upload.1")
      Count = Upload.Save(Server.MapPath(strImageDir))
      Response.Write Count & " fil modtaget.<BR>"

    'Jamen, jeg skal kun uploade en fil
    For Each File in Upload.Files
        strNAVN = strImageDir & File.ExtractFileName
        Response.Write strNAVN
    Next

    strTestNAVN=lcase(right(strNAVN,3))

    strOK=""
    if strTestNAVN="jpg" THEN strOK="OK"
    if strTestNAVN="gif" THEN strOK="OK"

    if strOK="OK" THEN
   
        DIM strIMAGE

        strFileName = Server.MapPath(strNAVN)   
        Set objImg=Server.CreateObject("ImgSize.Check")
        objImg.FileName=strFileName
        varWidth=objImg.Width
        varHeight=objImg.Height

        strIMAGE = "<IMG SRC="
        strIMAGE = strIMAGE & strNAVN
        strIMAGE = strIMAGE & " BORDER=0 ALIGN=LEFT VALIGN=TOP"
        strIMAGE = strIMAGE & " HEIGHT="
        strIMAGE = strIMAGE & varHeight
        strIMAGE = strIMAGE & " WIDTH="
        strIMAGE = strIMAGE & varWIDTH
        strIMAGE = strIMAGE & ">"
        'strIMAGE skal bruges senere
        Set objImg=nothing
       
    ELSE
        response.write "<FONT COLOR=RED>Filen er ikke accepteret...<BR>"
        response.write "Kun filtyperne JPG og GIF kan uploades...</FONT><BR>"
        response.write "Den valgte fil var: " & strNAVN & "</FONT><BR>"
    END IF

>oasen: Du mangler at trykke svar, hvis altså du vil have en bid af lagkagen, når nu vi kommer til målet.

Jamen, så gør jeg da det :)

Ok, så svær er den vel heller ikke (selv om jeg ikke er særlig god til ASP). Jeg forhøjer den til 60 points.

Nej, det er ikke svært - jeg er bare på arbejde.

Ok, men så vil jeg lukke (acceptere) indlægget, hvis ikke der er nogle, som sidder og arbejder på løsningen?

Takker og lukker :-)

2 sec

Det trykkede jeg vidst for hurtigt, men jeg kan da bare oprette et nyt indlæg, hvis du sidder med svaret.

det gør jeg ikke endnu..
hvad er det her? : Set objImg=Server.CreateObject("ImgSize.Check")
har ikke set det før..

det er AspUPLOAD du bruger ikke? fordi du kan få fat i filestørrelse og checke billedetype derfra

>det er AspUPLOAD du bruger ikke?
Jeg ved det ikke.

manualen kan du finde her: http://www.wannafind.dk/support/kompletdokumentation/documentation/manual.html

jeg synes ikke den er skide god.  jeg er selv ved at strikke en upload script sammen.  jeg har brugt rigtig mange timer på det nu og er stadig ikke færdig

jeg synes det er nogle dårlige eksempler de har, så det tog mig lid tid at finde ud af hvordan det hele skulle virke

jeg har lavet 5 - 6 IF sætninger der checker om filen er som den skal være.  jeg har lavet på den måde at den gemmer filen først, hvis den ikke var OK, så er jeg nødt til at slette de igen

Ok, jeg prøver lige om jeg selv kan klare den, og hvis ikke, så vender jeg tilbage, for så kan det godt være, at jeg er interesseret i dit script.

Tak for hjælpen.

fik du styr på det?