HEJ ! använd file scripting object för att se om tumnaglen av bilden finns. Gör den inte det - så skapa en. Jag använder http://jalbum.net/ för mitt fotoalbum, är gratis och ruskigt kompetent.Multiupload bildgalleri, med nedladdningsfunktion
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")%> ">[ 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
%>
· <%=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
ASPSv: Multiupload bildgalleri, med nedladdningsfunktion
if fso.exist("d:\mapp\fil\bild1.jpg")=false then
'image_glue funktion som gör om till en tumnagel
end ifSv: Multiupload bildgalleri, med nedladdningsfunktion
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å?