Avatar billede funstuff.dk Nybegynder
24. juni 2001 - 00:04 Der er 7 kommentarer og
1 løsning

billede brede og højde?

Hej
kan man ik lave sådan at hvis et billede er stører end 300 i breden så viser den billede med breden 300 og hvis de´t er mindre viser den det bare i normal størelde...
Kan man dette?
Avatar billede madd Nybegynder
24. juni 2001 - 01:40 #1
ja man kan :-)
Avatar billede zoidberg Nybegynder
24. juni 2001 - 01:53 #2
Du skal have en komponent der kan finde højde og bredde på billedet, så kan du lave en if sætning:

if bredde > 300 then
response.write \"<img src=\'billede.gif\' width=\'300\'>\"

else

response.write \"<img src=\'billede.gif\' width=\'\" & bredde & \"\'>\"

end if
Avatar billede zoidberg Nybegynder
24. juni 2001 - 02:19 #3
Her er en gratis komponent der kan finde billede højde og bredde:

http://www.serverobjects.com/comp/imgsize.zip

Har du ikke adgang til serveren kan du evt. kigge på denne side:

http://www.4guysfromrolla.com/webtech/050300-1.shtml
Avatar billede funstuff.dk Nybegynder
24. juni 2001 - 11:58 #4
ok, har ik adgang til serveren..
men hvorsdan rettet man i denn her kode så den kun viser en fil.. fx billede.jpg, i stedet for at vise alle filer í mappen c:

Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
  Set objF = objFSO.GetFolder(\"c:\\\")
  Set objFC = objF.Files



  For Each f1 in objFC
    if instr(ucase(f1.Name), \".JPG\")then

if gfxSpex(f1.Path, w, h, c, strType) = true then
Avatar billede zoidberg Nybegynder
24. juni 2001 - 14:50 #5
Hmm... prøv dette:

  Set objFSO = CreateObject(\"Scripting.FileSystemObject\")
  Set objF = objFSO.GetFile(\"c:\\fil.gif\")

  response.write \"<table border=\"\"0\"\" cellpadding=\"\"5\"\">\"

    if instr(ucase(objF.Name), \".GIF\") then
      response.write \"<tr><td>\" & objF.name & \"</td><td>\" & objF.DateCreated & \"</td><td>\" & f1.Size & \"</td><td>\"

      if gfxSpex(objF.Path, w, h, c, strType) = true then
          response.write w & \" x \" & h & \" \" & c & \" colors\"
      else
          response.write \"&nbsp;\"
      end if

      response.write \"</td></tr>\"

    end if

  response.write \"</table>\"

  set objF = nothing
  set objFSO = nothing
Avatar billede funstuff.dk Nybegynder
24. juni 2001 - 15:22 #6
takker, hvordan laver man så hvis billæede ik findes så skriver den filen findes ikke?
Avatar billede zoidberg Nybegynder
24. juni 2001 - 17:16 #7
  If (objFSO.FileExists(\"c:\\fil.gif\")) Then
      response.write \"Filen findes\"
  Else
      response.write \"Filen findes ikke\"
  End If
Avatar billede funstuff.dk Nybegynder
24. juni 2001 - 17:28 #8
ok, mange tak for hjælpen...
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