Fotoalbum med thumbnails

Bru aspimage den kan resize

Problemet er bare at jeg ikke er en haj til ASP...

Så jeg har lidt svært ved, at bygge det op fra bunden....

www.hotscripts.com <- kan du altid finde noget

Jeg vil væde med du kan finde det rette et eller andet sted her i bunken:

http://www.eksperten.dk/kat/3?searchtype=txt&words=fotoalbum&method=and&sort=score&catid=3

//>Rune

Jeg har ikke rigtigt fundet noget endnu bortset fra det her, hvilket lyder ret fedt! -og lige hvad jeg skal bruge...

http://www.hotscripts.com/Detailed/19528.html

Det kan bare ikke downloades....

Så har jeg fået det.... -Tester lige!

Det er ikke lige det bedste....

Variables
'  *********
  Dim mySmartUpload
  Dim file
  Dim intCount
  intCount=0
  Dim godkendt(2,4)
  i = 0
  mappe = request("mappe")
'  Object creation
'  ***************
  Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
    Set fsoSystem = Server.CreateObject("Scripting.FileSystemObject")
'  Upload
'  ******
  mySmartUpload.Upload

'  Select each file
'  ****************
  For each file In mySmartUpload.Files
  '  Only if the file exist
  '  **********************
      If not file.IsMissing Then
      '  Save the files with his original names in a virtual path of the web server
      '  ****************************************************************************
          'intStart = InStr(str,"<div class=""stext"">")
        godkendt(0,i) = file.FileName & "<br>"
          if file.FileExt = "jpg" or file.FileExt = "jpeg" or file.FileExt = "bmp" then
            file.SaveAs("upload/" & mappe & "/" & file.FileName)
            ' sample with a physical path
            ' file.SaveAs("c:\temp\" & file.FileName)
   
                        Response.ContentType = "image/jpeg"
               
               
                Set Image = Server.CreateObject("AspImage.Image")
               
                Image.LoadImage Server.MapPath("upload/" & mappe & "/"  & file.FileName)
               
                intRatio = ((75 * 100) / Image.MaxX)
                intNewY = CInt(Image.MaxY * (intRatio / 100))
                Image.Resize 75, intNewY
                Image.ImageFormat = 1
                Image.FileName = Server.MapPath("upload/" & mappe & "/thumbnails/" & file.FileName)
               
                Image.SaveImage
               
                Set Image = nothing
               
                Response.ContentType = "image/jpeg"
               
               
                Set Image = Server.CreateObject("AspImage.Image")
               
                Image.LoadImage Server.MapPath("upload/" & mappe & "/"  & file.FileName)
               
                intRatio = ((200 * 100) / Image.MaxX)
                intNewY = CInt(Image.MaxY * (intRatio / 100))
                Image.Resize 200, intNewY
                Image.ImageFormat = 1
                Image.FileName = Server.MapPath("upload/" & mappe & "/images/" & file.FileName)
               
                Image.SaveImage
               
                Set Image = nothing
               
                Response.ContentType = "image/jpeg"
               
               
                Set Image = Server.CreateObject("AspImage.Image")
               
                Image.LoadImage Server.MapPath("upload/" & mappe & "/"  & file.FileName)
               
                Image.ImageFormat = 1
                Image.FileName = Server.MapPath("upload/" & mappe & "/original/" & file.FileName)
               
                Image.SaveImage
               
                Set Image = nothing
               
                    fsoSystem.Deletefile(Server.MapPath("upload/" & mappe & "/" & file.FileName))
               
                godkendt(1,i) = 1
            else
                godkendt(1,i) = 0
            End If
      End If
      i = i+1
  Next
      Set fso = Nothing
  response.write "Følgende filer blev uploaded:<br>"
For t= LBound(godkendt,2) to UBound(godkendt,2)
    if godkendt(1,t) = 1 then
        response.write godkendt(0,t)
    end if
next

  response.write "Følgende filer blev ikke uploaded:<br>"
For t= LBound(godkendt,2) to UBound(godkendt,2)
    if godkendt(1,t) = 0 then
        response.write godkendt(0,t)
    end if
next

%>

<br>
<br>
<a href="vismapper.asp">Upload flere billeder</a>
<br>
<br>
<a href="oversigt.asp">Se billeder</a>
<br>
<br>
<a href="default.asp">Tilbage til billede forsiden</a>       
</BODY>
</HTML>

Den bruger aspimage og aspsmartupload

PNR -> hvordan fungerer den med undermapper?

Det var kun delen til at uploade og resize billeder, Skal du også have siden der viser billeder?

PNR -> Det ser lidt sjovt ud!! Er du sikker på du fik pastet det hele ind?

Jo tak! Stik mig det hele!!!  ;-)

<!--#INCLUDE FILE="protectbilleder.inc" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
    <title>Billede Oversigt</title>
        <style type="text/css">
        body{font-family:arial;}
    .ingen{text-decoration:none;}
    .lav{vertical-align:middle;}
    </style>
    <script src="orphanbilleder.js" type="text/javascript"></script>
</head>
<body text="black"  link="black" vlink="black" alink="black">
<div align="center"><font face="Arial, Helvetica, sans-serif">
  <table width="75%" border="0">
    <tr>
      <td height="50">
        <div align="center">
          <p><font size="+2">Velkommen <%= session("fuldenavn")%></font></p>
          <p>Klik p&aring; linket til de billeder <font face="Arial, Helvetica, sans-serif">du
            &oslash;nsker at se</font></p>
          <p>&nbsp;</p>
        </div></td>
    </tr>
  </table>
  <div align="left">
  <%
      session("billeder") = ""
    Set FSO = CreateObject("Scripting.FileSystemObject")
    Set Folder = FSO.GetFolder("d:\hussyndanmark\lukket\billeder\upload")

    Set FolderCollection = Folder.subfolders
   
    For Each File In FolderCollection
        Response.Write("<a class='ingen' href=billederVis.asp?mappe="& file.name & "><img src='old_T.gif' alt='' width='15' height='17' border='0' class='lav'>&nbsp;" & file.Name & "</a><BR><BR>")    
    next
%>
</div>
  </font> </div>
<br>
<br>
<a href="default.asp">Tilbage til billede forsiden</a>   
</body>
</html>

Den her viser en oversigt over de mappe der ligger forskellige kategorier af billeder i

<!--#INCLUDE FILE="protectbilleder.inc" -->
<script src="orphanbilleder.js" type="text/javascript"></script>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">


<script>
function send(valg){
    document.parameter.valg.value = valg
    document.parameter.submit();
}   
</script>
<script language"javascript">
var hovedebillede_link;
function hovedebillede_show(){
window.open('original.asp?ny=' + hovedebillede_link, toolbar='no', scrollbars='no', locationbar='no');
}
</script>
<html>
<head>
    <title>Billeder</title>
    <link rel="stylesheet" type="text/css" href="../../style.css">
</head>
<DIV align="center">
<body link="black" vlink="black" alink="black">
<%   
    ' mapper er navnnet på den mappe hvor de valgte billeder ligger,
    ' den bliver valgt i oversig.asp.
    mappe = request("mappe")
    if mappe = "" then
        mappe = Session("mappe")
    else
        Session("mappe") = mappe
    end if
   
    ' Her finder vi ud af om der er dannet et array af billeder, hvis det er tilfældet bruges det,
    ' ellers laves der et array af billederne i den valgte mappe.
    if isarray(Session("billeder")) then
          if ubound (Session("billeder")) > 0 then
            billeder = session("billeder")   
        end if
    else
        Set FSO = CreateObject("Scripting.FileSystemObject")
        Set Folder = FSO.GetFolder("d:\hussyndanmark\lukket\billeder\upload\" & mappe & "\thumbnails\")

        Set FolderFiles = Folder.Files
               
        dim filListe
        i = 0
        For Each File In FolderFiles
            If inStr(LCase(File),".jpg") or inStr(LCase(File),".gif") or inStr(LCase(File),".bmp") or inStr(LCase(File),".png") Then
                filListe = filListe & "," & file.name
                i = i + 1
            end if
        next
       
        filListe = right(filListe,len(filListe)-1)
        billeder = split(filListe,",")
       
        session("billeder") = billeder
        session("antalfiler") = ubound(billeder)+1
    end if
       
    intfile = session("antalfiler")   
    ' Her kontrolleres om der er valgt et side skift, enten frem eller tilbage
    select case Request("valg")
   
    case  "frem"
        intpage = Request("frem")
       
    case "tilbage"
        intpage = Request("tilbage")
       
    case else
        intPage = 1
    end select

    ' Her initialiseres værdierne for et evt side skift.
    tilbage = 0
    frem = 0
    if intpage = 1 then 
        tilbage = round((intfile/4)+0.4)
    else 
        tilbage = intpage - 1
    end if
   
    if intpage*4 => intfile then
        frem = 1
    else
        frem = intpage + 1
    end if       
%>   
<table width="75%" height="322" border="0">
    <tr>
        <td height="20" colspan="4"><div align="left"><a href="oversigt.asp">Tilbage til oversigten</a>&nbsp;&nbsp;<a href="default.asp">Tilbage til billede forsiden</a>    </div></td>
        <td height="20" colspan="2"><div align="right"><font color="black" face="Arial, Helvetica, sans-serif">side <%=intpage %> af <%= round((intfile/4)+0.4) %> </font></div></td> 
    </tr>
    <tr>
    <td height="20" colspan="6">&nbsp;</td>
    </tr>
    <tr>       
        <td height="201" colspan="6" align="center" valign="middle"><img  Name="hovedebillede" style="cursor:hand;" alt="" onClick="hovedebillede_show();" border="0" align="middle" valign="center"></td>
      </tr>
      <tr>        
        <td height="101"><img src="Komponenter/TilbagePil.gif" alt="" name="Tilbage" width="57" height="99" border="0" usemap="#TilbageMap" onMouseOver="this.src = 'Komponenter/TilbagePilPeg.gif'" onMouseOut="this.src = 'Komponenter/TilbagePil.gif'"></td>
<%
' Billeder sættes på siden
forste = 0
pegepind = (intpage -1) * 4
sidste = pegepind + 4
do while pegepind < sidste and pegepind < intfile
    Response.Write("<TD><img src=""upload/" & mappe & "/thumbnails/" & billeder(pegepind) & """ OnMouseOver=""document.images['hovedebillede'].src = 'upload/" & mappe & "/images/"&  billeder(pegepind) &"';hovedebillede_link='" & mappe & "/original/" & billeder(pegepind) & "';""""></TD>")
    if forste = 0 then
        Response.write "<script>document.images['hovedebillede'].src = 'upload/" & mappe & "/images/"&  billeder(pegepind) &"'</script>"
        forste = forste + 1   
    end if
    pegepind = pegepind + 1
loop
%>
      <td> <img src="Komponenter/NaestePil.gif" alt="" name="naeste" width="57" height="99" border="0" usemap="#naesteMap" onMouseOver="this.src = 'Komponenter/naestePilPeg.gif'" onMouseOut="this.src = 'Komponenter/naestePil.gif'"></td>   
  </tr>
</table>
<div align="center">Klik på det store billede for at se originalen i et nyt vindue</div>
<form action="Billedervis.asp" name="parameter">
    <input type="hidden" name="frem" value="<%= frem%>">
    <input type="hidden" name="tilbage" value="<%= tilbage%>">
    <input type="hidden" name="valg" value="">
</form>
<map name="naesteMap">
  <area shape="poly" coords="9,20,47,45,47,50,14,76,9,71" href="java script:onclick=send('frem')" alt="klik for at se de n&aelig;ste 4 billeder"">
</map>
<map name="TilbageMap">
  <area shape="poly" coords="45,22,43,72,8,51,11,45" href="java script:onclick=send('tilbage')"  alt="klik for at se de forrige 4 billeder">
</map>
</body>
</html>

Og her vises billederne

Koden er lagt fra optimal lavet, jeg er igang med at lave en ny version. MEN DET VIRKER

Skal de hedde noget bestemt filerne?

-> pnr -Jeg kan ikke få det til at virke...

Du får lige side hvor man uploader

<!--#INCLUDE FILE="protectbilleder.inc" -->
<script src="orphanbilleder.js" type="text/javascript"></script>
<link rel="stylesheet" type="text/css" href="../../style.css">
<HTML>
<BODY BGCOLOR="white">
<br>
<br>
<div align="center"><strong>Vælg de billeder du vil uploade (jpg, jpeg, bmp)</strong>
<FORM METHOD="POST" ACTION="Sample2_2.asp?mappe=<%=request("mappe")%>" ENCTYPE="multipart/form-data">
  <INPUT TYPE="FILE" NAME="FILE1" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE2" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE3" SIZE="50"><BR>
  <INPUT TYPE="FILE" NAME="FILE4" SIZE="50"><BR>
  <INPUT TYPE="SUBMIT" VALUE="Upload">&nbsp;&nbsp;&nbsp;<input type="reset" value="Ryd alle felter">
</FORM>
</div>
</BODY>
</HTML>

Jeg skal vel også bruge orphanbilleder.js ik?

Du kan også sende filerne til tp@cbc.dk

Den første jeg postede hed sample2_2.asp
Den næste oversigt.asp
der efter billederVis.asp
og til sidst sample2_1.asp

Der mangler lidt mere til det færdige system, men var det ikke bare ide'en du skulle bruge. Eller er det et færdigt program?  For der skal laves tilrettelser i den ovenstående kode før det virker.

Det var faktisk det færdige program, for som sagt er jeg ikke god til ASP...

Men den der hedder billedVis, kan den ikke bruges sepperat? -Henter den ikke billederne fra en folder, og laver thumbnails?

Jo billedvis kan godt bruges forsig selv

Skal du kun bruge en side til at vise billeder?

Jep! -De skal bare hentes dynamisk fra en folder, og selv lave thumbnails...

Hvorfor laver du ikke en action i photoshop til de thumbnails?

Det er fordi, at det skal være simpelt at vedligeholde... For det er ikke til mig

Kan du få billedervis.asp til at virke?

nope...

Skal man installere aspimage på serveren?

ja hvis du vil have ovenstående til at virke

Ok -Men kan billedervis.asp de ting som jeg skal bruge? Laver den thumbnails?

Nej den viser bare billederne, men sample2_2.asp laver en thumbnail, et lidt større billede samt gemmer orginalen

Kan det komme til at virke til det jeg skal bruge det til?

Det er lavet til at man uploader billederne via internettet, og i den proces bliver der lavet thumbnails

kan man lige få den der java fil ?