Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Multiupload bildgalleri, med nedladdningsfunktion

Postades av 2006-07-08 10:51:21 - Magnus Andersson, i forum asp - allmänt, Tråden har 2 Kommentarer och lästs av 1708 personer

HEJ !

Har en sajt http://racefoto.servehttp.com där klienter loggar in och hämtar hem bilder som är högupplösta (10mb/st)
Denna sajt ligger på en server som står på mitt kontor hemma.

När jag har varit ute och fotograferat under helgerna, soreterar jag bilder, redigerar och slutligen exporterar dem som högupplösta 300 dpi. Jag går in i http://racefoto.servehttp.com/admin och skapar en ny kategori och namn på det nya galleriet som skall upp. Därefter laddar jag upp bilderna , dock laddar jag upp bilderna en i taget !! Det tar väldigt lång tid med tanke på att bilderna är 10mb/st ungefär. Vi har försökt att få till ett script från JUpload.biz men får det inte at fungera. Det bästa vore om man kunde ladda upp bilderna direkt med ftp och sedan låta ngt script kolla av vilka bilder som finns i mappar..

Ngn som har en lösning för mig, och vet vad det handlar om ??

Visning av bilder sedan i galleriet måste gå fort, eller hyffsat eftersom klienten inte ska sitta och vänta för att se vad som finns .


SÅ här ser koden ut idag för edit/lägg till bilder:

<!--#include file="../inc_allow.asp"-->
<!--#include file="settings.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title><%=strHeaderName%></title>
<link rel="stylesheet" href="../../text.css" type="text/css">
<SCRIPT language=javascript>
<!--
function popup(url,width,height)
{
unik=new Date();
unik=unik.getSeconds()+"_"+unik.getMinutes()+"_"+unik.getHours();
stuff = "toolbar=no,menubar=no,scrollbars=yes,resizable=no,width= " +width + ", height = " +height
window.open(url , unik , stuff );
}

//-->
</SCRIPT>
</head>
<body topmargin="0" leftmargin="0">
<table bgcolor="#939598" width="750" cellspacing="1" cellpadding="2" border="0">

<tr>
<td colspan="2" bgcolor="#FFFFFF"><img src="../../pics/top.gif" alt="" border="0"><br>
<img src="../../pics/white_pixel.gif" width="850" height="1" alt="" border="0"><br>
</td>
</tr>
<tr>


<!-- Middle Column start -->
<td width="650" valign="top" bgcolor="#FFFFFF">

<Div align="center">
<Table width="100%" cellpadding="2" cellspacing="1">
<%
strSQL = "SELECT * FROM tbl_PrivateGallerys WHERE galleryID = "&Request.Querystring("galleryID")
RS.Open strSQL, conn, 1, 2
%>
<TR>
<TD valign="top"><strong>Editera galleriets egenskaper</strong></TD>
</TR>
<form action="edit_galleryproperties_execute.asp" method="post">
<input type="hidden" name="belongsToGalleryID" value="<%=RS("galleryID")%>">
<TR>
<TD valign="top">
<strong>Namn</strong><br>
<input type="text" name="namn" value="<%=RS("namn")%>" class="kantlinje">
</TD>
</TR>
<TR>
<TD valign="top">
<strong>Beskrivning av galleriet</strong><br>
<textarea cols="50" rows="4" name="gallerydesript" class="kantlinje" style="width:400px"><%=RS("gallerydesript")%></textarea><br>
<br>
<input type="submit" value="Skicka" class="skicka_knapp"></TD>
</form>
</TR>
<TR>
<TD valign="top"><hr></TD>
</TR>
<form action="add_gallerypics.asp" method="post" enctype="multipart/form-data">
<input type="hidden" name="belongsToGalleryID" value="<%=RS("galleryID")%>">
<input type="hidden" name="belongsToCatID" value="<%=RS("belongsTogalleryCatID")%>">
<input type="hidden" name="belongsToUCatID" value="<%=RS("belongsToUnderCatID")%>">
<input type="hidden" name="belongsToMemberID" value="<%=imemberID%>">
<TR>
<TD valign="top"><strong>Lägg till bilder i <%=RS("namn")%></strong></TD>
</TR>
<TR>
<TD valign="top">
<strong>Bilden:</strong><br>
<Input type="file" name="thefile" class="skicka_knapp"> <input type="submit" value="Ladda bilden" class="skicka_knapp">
</TD>
</TR>
</form>
</table><br>
<img src="../../pics/pixel_red.gif" width="640" height="10" alt="" border="0"><br>
<%RS.Close%>
<%
IF Request.Querystring("delete")<> "" THEN
strSQL = "SELECT * FROM tbl_privateGalleryImages WHERE gallerypicID = "&Request.Querystring("delete")
RS.Open strSQL, conn, 1, 2
set fso = Server.Createobject("Scripting.FileSystemObject")

'din fil
originalFile = RS("originalFile")
bigFile = RS("bigFile")
thumbfile = RS("thumbfile")


'deletar fil
fso.DeleteFile( Request.ServerVariables("APPL_PHYSICAL_PATH") & "uploaded_files\" & originalFile)
fso.DeleteFile( Request.ServerVariables("APPL_PHYSICAL_PATH") & "uploaded_files\" & bigFile)
fso.DeleteFile( Request.ServerVariables("APPL_PHYSICAL_PATH") & "uploaded_files\" & thumbfile)

'stänger fso
set fso = nothing
RS.Close
strSQL = "DELETE FROM tbl_galleryimages WHERE gallerypicID ="&Request.Querystring("delete")
conn.execute (strSQL)
END IF


strSQL = "SELECT * FROM tbl_privateGalleryImages WHERE belongsToGalleryID ="&Request.Querystring("galleryID")
RS.Open strSQL, conn, 1, 2
%>

<Table width="100%" cellpadding="2" cellspacing="1">
<%
if cunt >= 4 then
response.write "<tr>"
end if
do while not RS.EOF

cunt = cunt +1
%>
<TD valign="top">
" Target="_blank">
" border="0">
<br>
&galleryID=<%=Request.Querystring("galleryID")%>">
Ta bort

</TD>
<% RS.movenext
if cunt >= 4 then
cunt = 0
response.write "</tr>"
end if
loop %>
</Table><br>


</DIV>
<!-- Message board end -->
</td>
<!-- Middle Column end -->

<!-- Right Column start -->
<td width="200" valign="top" bgcolor="#f5f5f5">
<Div align="center">
<Table width="90%" cellpadding="2" cellspacing="1">
<TR>
<TD valign="top"><strong>Galleri-kategorier</strong></TD>
</TR>
<form action="add_category_execute.asp" method="post">
<TR>
<TD valign="top">Kategorinamn:<br>
<input type="text" name="catName" class="kantlinje"><br>
<br>
<input type="submit" value="Lägg till kategori" class="skicka_knapp">
</TD>
</TR>
</form>
<TR>
<TD valign="top">
<br>
<%
RS.Close
IF Request.Querystring("deleteCat")<>"" THEN
strSQL = "DELETE FROM tbl_privategalleryCategories WHERE galleryCatID ="&Request.Querystring("deleteCat")
conn.execute(strSQL)
END IF
strSQL = "SELECT * FROM tbl_privategalleryCategories"
RS.Open strSQL, conn, 1, 2
Do while not RS.EOF
strCatID = RS("galleryCatID")
%>
<img src="http://racefoto.virtuellt.com/pics/menu_bullet.gif" width="8" height="10" alt="" border="0">
<%=RS("catName")%> &nbsp;">[ Ta bort ]<br>
<strong>Underkategorier:</strong><br>
<%
Set RSucat=Server.CreateObject("ADODB.Recordset")
strSQLuCat = "SELECT * FROM tbl_PrivateUnderCategory WHERE belongsToGalleryCatID ="&strCatID
RSucat.Open strSQLuCat, conn, 1, 2
Do While not RSucat.EOF
%>
&middot; <%=RSucat("underCatName")%><br>
<%
RSucat.MoveNext
Loop
%>
- ">Lägg till underkategori<br>

<br>

<%
RS.MoveNext
Loop
RSucat.Close
%>
</TD>
</TR>
</Table>
</DIV>
</td>
<!-- Right Column end -->
</tr>
<tr>
<!-- Bottom start -->
<td colspan="3" bgcolor="#FFFFFF">
<img src="../../pics/pixel_red.gif" width="850" height="10" alt="" border="0"></td>
<!-- Bottom end -->
</tr>
</table>
</body>
<!--#include file="../conn_close.asp"-->

Och så här ser det ut när man vill lägga till nya bilder:

<!--#include file="../inc_allow.asp"-->
<!--#include file="settings.asp"-->

<%

Set theForm = Server.CreateObject("ABCUpload4.XForm")
'###########################################################################
' Slumpa

theForm.MaxUploadSize = "100.000.000"
theForm.AbsolutePath = True
Set theField = theForm.Files("thefile")
If theField.FileExists Then
theField.Save ( Request.ServerVariables("APPL_PHYSICAL_PATH") & "uploaded_files\" & theField.SafeFileName)
Response.write theField.SafeFileName
' #### Create thumbnails
' Setting paths and filenames
' Originalfilen 2000 pixlar 180 dpi
inpath = Request.ServerVariables("APPL_PHYSICAL_PATH") & "uploaded_files\" &theField.SafeFileName
Response.write "Originalfilen 2000 pixlar 180 dpi: "& inpath &"<br>"


' Visningsbilden
outpath1 = Request.ServerVariables("APPL_PHYSICAL_PATH") & "uploaded_files\" &"big_"& theField.SafeFileName
Response.write "Visningsbilden:" &outpath1& "<br>"

' tummen
outpath2 = Request.ServerVariables("APPL_PHYSICAL_PATH") & "uploaded_files\" &"thumb"& theField.SafeFileName
Response.write "tummen:" &outpath2 &"<br>"


' Creating objects
Set canvas1 = Server.CreateObject("ImageGlue5.Canvas")
Set canvas2 = Server.CreateObject("ImageGlue5.Canvas")
Set graph = Server.CreateObject("ImageGlue5.Graphic")
Set rect = Server.CreateObject("ImageGlue5.XRect")


' Hittar storleken
graph.SetFile inpath
rect.String = graph(1).Rectangle



' Skapar visningsbilden
canvas1.Width = 370
canvas1.Height = (370 * rect.Height) / rect.Width
canvas1.DrawFile inpath, "size=" & canvas1.Width & "," & canvas1.Height
canvas1.SaveAs outpath1, "Quality=high"

' Skapar tummen
canvas2.Width = 130
canvas2.Height = (130 * rect.Height) / rect.Width
canvas2.DrawCanvas canvas1.Image, "size=" & canvas2.Width & "," & canvas2.Height
canvas1.Clear
canvas2.SaveAs outpath2, ""



Else
Response.write "Ingen bild laddad"
End if

strSQL = "SELECT * FROM tbl_privateGalleryImages WHERE 1=2"
RS.Open strSQL, conn, 1, 2

RS.AddNew

RS("belongsToGalleryID") = theForm.Form("belongsToGalleryID")
RS("belongsToCatID") = theForm.Form("belongsToCatID")
RS("belongsToUCatID") = theForm.Form("belongsToUCatID")
RS("belongsToMemberID") = theForm.Form("belongsToMemberID")
RS("originalFile") = theField.SafeFileName
'RS("1024") = "1024_"& theField.SafeFileName
'RS("800") = "800_"& theField.SafeFileName
RS("bigFile") = "big_"& theField.SafeFileName
RS("thumbFile") = "thumb"& theField.SafeFileName

RS.UpDate

Response.redirect "edit_gallery.asp?galleryID="&theForm.Form("belongsToGalleryID")
%>

<!--#include file="../conn_close.asp"-->


FInns det ngn vänlig själ som skjulle hjälpa mig med en lösning för att jag skulle kunna ladda upp många bilder åt gången , istället för att sitta hela nätter och tanka upp bilder en efter en ???

magnus@racefoto.com



Server, Wíndows 2000
IIS
Image Glue
ASP


Svara

Sv: Multiupload bildgalleri, med nedladdningsfunktion

Postades av 2006-07-08 19:24:14 - Jonas Boman

använd file scripting object för att se om tumnaglen av bilden finns. Gör den inte det - så skapa en.

if fso.exist("d:\mapp\fil\bild1.jpg")=false then
'image_glue funktion som gör om till en tumnagel
end if


Svara

Sv: Multiupload bildgalleri, med nedladdningsfunktion

Postades av 2006-07-09 12:15:57 - Johan Rosengren

Jag använder http://jalbum.net/ för mitt fotoalbum, är gratis och ruskigt kompetent.
Den har även inbyggd ftp-överföring.

Du ändrar i sidmallen som du vill ha det, om du tex vill ha sidorna lösenskyddade (du måste dock själv bygga asplösningen för detta). Du ändrar enkelt design på sidan osv.
Du får thumbs automatiskt samt valfri storlek på kortet samt en länk till den högupplösta bilden om du vill det.

Kanske värt att titta på?


Svara

Nyligen

  • 09:09 Vill du köpa medicinska tester?
  • 12:47 Vem beviljar assistansen – kommune
  • 14:17 Någon med erfarenhet av hemstädnin
  • 14:14 Bör man använda sig av en båtförme
  • 14:12 Finns det någon intressant hundblo
  • 14:25 Tips på verktyg för att skapa QR-k
  • 14:23 Tips på verktyg för att skapa QR-k
  • 20:52 Fungerer innskuddsbonuser egentlig

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 569 170
27 953
271 705
640
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies