12. juli 2004 - 09:44
Der er
15 kommentarer og 1 løsning
Billedevisning plus lidt mere
http://www.peterhougaard.com/new/ Jeg vil have at når man klikker på et link i menuen viser den automatisk billederne fra feks.
www.peterhougaard.com/photo/ og så skriver den 9 of 26 hvis der nu er 26 billeder i den mappe.
Menulinksne kommer automatisk når der ligger en ny mappe i /photo/.
Med pillene kan man hoppe back og forward.
Navnet i menuen kommer fra navnet på mappen i /photo/
Håber ikke det var for meget på en gang. :-)
Annonceindlæg fra SoftwareOne
Skriv lige hvis nogle gider at kigge på det?
hmm... Skal den kun vise 1 billede ad gangen ?? Jeg kan da godt kigge på det...!
okay... Jeg kigger på det med det samme... du har en fil der hedder default.asp i hver mappe ikke sandt..?
hmm... Laver du det..? Det er nok den nemmeste måde at gøre det på i hvert fald..! Ellers skal du have adgang til din error side..!
Skal jeg bare ligge en default.asp i /photo/.....?
Ja.., Men den skal indeholde det jeg skriver i en fil til dig om lidt...! Så bare vent med at ligge den ind..!
12. juli 2004 - 13:25
#10
Sådan... Så lykkedes det vidst.. Lig alt det her kode ind i en fil der hedder default.asp i de mapper hvor du vil vise billeder fra.. Så burde det være som det skal..! <% dim image_directory, image_height, image_width, Images_pr_Page, Images_Horizontal, path, dirarr, i path = request.servervariables("script_name") dirarr = split(path,"/") path = "/" for i = 1 to UBound(dirarr)-1 path = path & dirarr(i) & "/" next image_directory = path image_height = "" image_width = "" Images_pr_Page = "1" Images_Horizontal = "1" dim count_image, image, Image_Array Set directory=server.createobject("scripting.filesystemobject") Set allfiles=directory.getfolder(server.mappath(image_directory)) count_image = 0 For each image in allfiles.files Image_Array = Image_Array + image.Name & "," count_image = count_image +1 Next dim Current_Page, Total_Pages, Total_Images, Page_Name Page_Name = request.servervariables("script_name") Total_Images = count_image Current_Page = request.querystring("page") If Current_Page = "" or Current_Page = "0" then Current_Page = "1" end if Image_Array = split(Image_Array,",") dim Count_Image_Prints, td_width Count_Image_Prints = 0 td_width = int(100 / Images_Horizontal) %> <html> <head> <title>ph™ // Peter Hougaard</title> <style type="text/css"> #layer { position:absolute; top:62px; left:377px; width:204px; height:154px; border:none; background-color:#353535; display:none; } #layer table{ width:95%; border:0px; border-collapse:collapse; /*text-align:center;*/ } #layer td{ padding:1px; border:0px; margin:0px; font-family:verdana; color:#ffffff; font-size:10px; background-color:transparent; cursor:pointer; cursor:hand; } a.menu { color: #353535; font-size: 10px; font-family: Verdana; text-decoration: none; } a.txt { color: #FFFFFF; font-size: 10px; font-family: Verdana; text-decoration: none; } </style> <script type="text/javascript"> var over = 0; function mIn(){ over = 1; document.getElementById('layer').style.display='block'; } function mOut(){ over = 0; setTimeout('hide()',100); } function hide(){ if(over==0)document.getElementById('layer').style.display='none'; } function tdOver(td,d){ tds = document.getElementById("layer").getElementsByTagName("TD"); for(i=0;tds.length>i;i++){ tds[i].style.backgroundColor = (tds[i]!=td||d)?"transparent":"#870014"; } } </script> <meta http-equiv="imagetoolbar" content="no"> <meta name="description" content="peterhougaard.com - photography"> <meta name="keywords" content="peter, hougaard, peter hougaard, peterhougaard.com, peterhougaard, digital, imaging, advertising, editorial, copenhagen, københavn, billedarkiv, fotografi, foto, fotograf, billeder, billed, galleri, photo, picture, photography, udstillinger, exhibition, photographers, denmark, danmark"> <meta name="author" content="Peter Hougaard"> <META HTTP-EQUIV="reply to" CONTENT="mail@peterhougaard.com"> <META NAME="language" CONTENT="En"> <META NAME="copyright" CONTENT="Peter Hougaard"> <script language="JavaScript" src="nocopy.js"></script> </head> <body bgcolor="#353535"> <div onmouseover="mIn();" onmouseout="mOut();" style="position:absolute; top:38px; left:379px; cursor:default; font-family:verdana; font-size:10px; width: 119px; height: 12px;"> Menu</div> <div id="layer" onmouseover="mIn();" onmouseout="mOut();"> <table cellpadding="2" cellspacing="2"> <tr> <td onmouseover="tdOver(this,false);" onmouseout="tdOver(this,true);" onclick="location.href='show.asp?page=gallery00001'">Gallery 00001 / 00026</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onclick="location.href='show.asp?page=gallery00027'">Gallery 00027 / 00031</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onclick="location.href='show.asp?page=gallery00032'">Gallery 00032 / 00037</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onclick="location.href='show.asp?page=gallery00038'">Gallery 00038 / 00040</td> </tr> <tr> <td onmouseover="tdOver(this,true);" style="cursor:default;">-------------------------------------</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onclick="location.href='show.asp?page=about'">About</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onmouseout="tdOver(this,true);" onclick="location.href='show.asp?page=contact'">Contact</td> </tr> </table> </div> <table width="872" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="67" valign="top"><img src="images/Logo.gif" width="67" height="51"></td> <td width="805" align="center" valign="bottom"><br> <table width="204" height="12" border="0" cellpadding="1" cellspacing="0"> <tr valign="middle"> <td width="118" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"> </td> <% If NOT Cint(Current_Page) = 1 then response.write "<td width=""86"" bgcolor=""#FFFFFF""><div align=""center""><a href="""& Page_Name &"?page="& CInt(Current_Page)-1 & """><img border=""0"" src=""images/Pil01.gif"" width=""16"" height=""7""></a>" end if response.write "<A class=""menu"">" & CInt(Current_Page) & " of " & CInt(Total_images)-1 & "</a>" if not CInt(Current_Page) = CInt(Total_Images)-1 then response.write "<a href="""& Page_Name &"?page="& CInt(Current_Page)+1 & """><img border=""0"" src=""images/Pil02.gif"" width=""16"" height=""7""></a></div>" end if %> </td></tr></table> <table width="800" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="67"><img src="images/spacer.gif" width="1" height="7"></td> <td height="7" colspan="3" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="7"></td> </tr> <tr> <td> </td> <td width="15" height="7" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="15" height="1"></td> <td width="775" bgcolor="#FFFFFF"><img src="<%=image_directory &"/"& Image_Array(Current_Page)%>" width="769" height="513" class="Style"></td> <td width="15" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="15" height="1"></td> </tr> <tr> <td><img src="images/spacer.gif" width="1" height="7"></td> <td height="7" colspan="3" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="7"></td> </tr> </table> </td> </tr> </table> </body> </html>
12. juli 2004 - 13:35
#11
Menuen skal der kun ligge About og Contact. Gallery 00001 / 00026 skal kun komme hvis der ligger en mappe der hedder Gallery 00001 / 00026 her: wwwroot/photo/Gallery 00001 / 00026. Jo flere mapper jo flere menupunkter. Så det vil sige at jeg uploader mine billeder i en mappe som hedder Gallery 00001 / 00026 og så gør den automatisk det hele selv !!!
12. juli 2004 - 13:43
#12
okay.... det må give noget i stilen af: <% dim image_directory, image_height, image_width, Images_pr_Page, Images_Horizontal, path, dirarr, i path = request.servervariables("script_name") dirarr = split(path,"/") path = "/" for i = 1 to UBound(dirarr)-1 path = path & dirarr(i) & "/" next image_directory = path image_height = "" image_width = "" Images_pr_Page = "1" Images_Horizontal = "1" dim count_image, image, Image_Array Set directory=server.createobject("scripting.filesystemobject") Set allfiles=directory.getfolder(server.mappath(image_directory)) count_image = 0 For each image in allfiles.files Image_Array = Image_Array + image.Name & "," count_image = count_image +1 Next dim Current_Page, Total_Pages, Total_Images, Page_Name Page_Name = request.servervariables("script_name") Total_Images = count_image Current_Page = request.querystring("page") If Current_Page = "" or Current_Page = "0" then Current_Page = "1" end if Image_Array = split(Image_Array,",") dim Count_Image_Prints, td_width Count_Image_Prints = 0 td_width = int(100 / Images_Horizontal) %> <html> <head> <title>ph™ // Peter Hougaard</title> <style type="text/css"> #layer { position:absolute; top:62px; left:377px; width:204px; height:154px; border:none; background-color:#353535; display:none; } #layer table{ width:95%; border:0px; border-collapse:collapse; /*text-align:center;*/ } #layer td{ padding:1px; border:0px; margin:0px; font-family:verdana; color:#ffffff; font-size:10px; background-color:transparent; cursor:pointer; cursor:hand; } a.menu { color: #353535; font-size: 10px; font-family: Verdana; text-decoration: none; } a.txt { color: #FFFFFF; font-size: 10px; font-family: Verdana; text-decoration: none; } </style> <script type="text/javascript"> var over = 0; function mIn(){ over = 1; document.getElementById('layer').style.display='block'; } function mOut(){ over = 0; setTimeout('hide()',100); } function hide(){ if(over==0)document.getElementById('layer').style.display='none'; } function tdOver(td,d){ tds = document.getElementById("layer").getElementsByTagName("TD"); for(i=0;tds.length>i;i++){ tds[i].style.backgroundColor = (tds[i]!=td||d)?"transparent":"#870014"; } } </script> <meta http-equiv="imagetoolbar" content="no"> <meta name="description" content="peterhougaard.com - photography"> <meta name="keywords" content="peter, hougaard, peter hougaard, peterhougaard.com, peterhougaard, digital, imaging, advertising, editorial, copenhagen, københavn, billedarkiv, fotografi, foto, fotograf, billeder, billed, galleri, photo, picture, photography, udstillinger, exhibition, photographers, denmark, danmark"> <meta name="author" content="Peter Hougaard"> <META HTTP-EQUIV="reply to" CONTENT="mail@peterhougaard.com"> <META NAME="language" CONTENT="En"> <META NAME="copyright" CONTENT="Peter Hougaard"> <script language="JavaScript" src="nocopy.js"></script> </head> <body bgcolor="#353535"> <div onmouseover="mIn();" onmouseout="mOut();" style="position:absolute; top:38px; left:379px; cursor:default; font-family:verdana; font-size:10px; width: 119px; height: 12px;"> Menu</div> <div id="layer" onmouseover="mIn();" onmouseout="mOut();"> <table cellpadding="2" cellspacing="2"> <% Set fso=server.createobject("scripting.filesystemobject") Set allfolders=directory.getfolder(server.mappath("/photo/")) for each item im allfolders.Subfolders %> <tr> <td onmouseover="tdOver(this,false);" onmouseout="tdOver(this,true);" onclick="location.href='show.asp?page=<%=item.name%>"><%=item.name%></td> </tr> <% next %> <td onmouseover="tdOver(this,true);" style="cursor:default;">-------------------------------------</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onclick="location.href='show.asp?page=about'">About</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onmouseout="tdOver(this,true);" onclick="location.href='show.asp?page=contact'">Contact</td> </tr> </table> </div> <table width="872" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="67" valign="top"><img src="images/Logo.gif" width="67" height="51"></td> <td width="805" align="center" valign="bottom"><br> <table width="204" height="12" border="0" cellpadding="1" cellspacing="0"> <tr valign="middle"> <td width="118" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"> </td> <% If NOT Cint(Current_Page) = 1 then response.write "<td width=""86"" bgcolor=""#FFFFFF""><div align=""center""><a href="""& Page_Name &"?page="& CInt(Current_Page)-1 & """><img border=""0"" src=""images/Pil01.gif"" width=""16"" height=""7""></a>" end if response.write "<A class=""menu"">" & CInt(Current_Page) & " of " & CInt(Total_images)-1 & "</a>" if not CInt(Current_Page) = CInt(Total_Images)-1 then response.write "<a href="""& Page_Name &"?page="& CInt(Current_Page)+1 & """><img border=""0"" src=""images/Pil02.gif"" width=""16"" height=""7""></a></div>" end if %> </td></tr></table> <table width="800" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="67"><img src="images/spacer.gif" width="1" height="7"></td> <td height="7" colspan="3" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="7"></td> </tr> <tr> <td> </td> <td width="15" height="7" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="15" height="1"></td> <td width="775" bgcolor="#FFFFFF"><img src="<%=image_directory &"/"& Image_Array(Current_Page)%>" width="769" height="513" class="Style"></td> <td width="15" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="15" height="1"></td> </tr> <tr> <td><img src="images/spacer.gif" width="1" height="7"></td> <td height="7" colspan="3" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="7"></td> </tr> </table> </td> </tr> </table> </body> </html>
12. juli 2004 - 14:02
#13
hmnm... men så skal der laves lidt om i strukturen jo... Så¨skal det i stedet være..! <% dim image_directory, image_height, image_width, Images_pr_Page, Images_Horizontal, path, dirarr, i path = "/billeder/" & request.querystring("mappe") image_directory = path image_height = "" image_width = "" Images_pr_Page = "1" Images_Horizontal = "1" dim count_image, image, Image_Array Set directory=server.createobject("scripting.filesystemobject") Set allfiles=directory.getfolder(server.mappath(image_directory)) count_image = 0 For each image in allfiles.files Image_Array = Image_Array + image.Name & "," count_image = count_image +1 Next dim Current_Page, Total_Pages, Total_Images, Page_Name Page_Name = request.servervariables("script_name") & "?mappe=" & request.querystring("mappe") Total_Images = count_image Current_Page = request.querystring("page") If Current_Page = "" or Current_Page = "0" then Current_Page = "1" end if Image_Array = split(Image_Array,",") dim Count_Image_Prints, td_width Count_Image_Prints = 0 td_width = int(100 / Images_Horizontal) %> <html> <head> <title>ph™ // Peter Hougaard</title> <style type="text/css"> #layer { position:absolute; top:62px; left:377px; width:204px; height:154px; border:none; background-color:#353535; display:none; } #layer table{ width:95%; border:0px; border-collapse:collapse; /*text-align:center;*/ } #layer td{ padding:1px; border:0px; margin:0px; font-family:verdana; color:#ffffff; font-size:10px; background-color:transparent; cursor:pointer; cursor:hand; } a.menu { color: #353535; font-size: 10px; font-family: Verdana; text-decoration: none; } a.txt { color: #FFFFFF; font-size: 10px; font-family: Verdana; text-decoration: none; } </style> <script type="text/javascript"> var over = 0; function mIn(){ over = 1; document.getElementById('layer').style.display='block'; } function mOut(){ over = 0; setTimeout('hide()',100); } function hide(){ if(over==0)document.getElementById('layer').style.display='none'; } function tdOver(td,d){ tds = document.getElementById("layer").getElementsByTagName("TD"); for(i=0;tds.length>i;i++){ tds[i].style.backgroundColor = (tds[i]!=td||d)?"transparent":"#870014"; } } </script> <meta http-equiv="imagetoolbar" content="no"> <meta name="description" content="peterhougaard.com - photography"> <meta name="keywords" content="peter, hougaard, peter hougaard, peterhougaard.com, peterhougaard, digital, imaging, advertising, editorial, copenhagen, københavn, billedarkiv, fotografi, foto, fotograf, billeder, billed, galleri, photo, picture, photography, udstillinger, exhibition, photographers, denmark, danmark"> <meta name="author" content="Peter Hougaard"> <META HTTP-EQUIV="reply to" CONTENT="mail@peterhougaard.com"> <META NAME="language" CONTENT="En"> <META NAME="copyright" CONTENT="Peter Hougaard"> <script language="JavaScript" src="nocopy.js"></script> </head> <body bgcolor="#353535"> <div onmouseover="mIn();" onmouseout="mOut();" style="position:absolute; top:38px; left:379px; cursor:default; font-family:verdana; font-size:10px; width: 119px; height: 12px;"> Menu</div> <div id="layer" onmouseover="mIn();" onmouseout="mOut();"> <table cellpadding="2" cellspacing="2"> <% Set fso=server.createobject("scripting.filesystemobject") Set allfolders=directory.getfolder(server.mappath("/photo/")) for each item im allfolders.Subfolders %> <tr> <td onmouseover="tdOver(this,false);" onmouseout="tdOver(this,true);" onclick="location.href='show.asp?page=<%=item.name%>"><%=item.name%></td> </tr> <% next %> <td onmouseover="tdOver(this,true);" style="cursor:default;">-------------------------------------</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onclick="location.href='show.asp?page=about'">About</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onmouseout="tdOver(this,true);" onclick="location.href='show.asp?page=contact'">Contact</td> </tr> </table> </div> <table width="872" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="67" valign="top"><img src="images/Logo.gif" width="67" height="51"></td> <td width="805" align="center" valign="bottom"><br> <table width="204" height="12" border="0" cellpadding="1" cellspacing="0"> <tr valign="middle"> <td width="118" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"> </td> <% If NOT Cint(Current_Page) = 1 then response.write "<td width=""86"" bgcolor=""#FFFFFF""><div align=""center""><a href="""& Page_Name &"&page="& CInt(Current_Page)-1 & """><img border=""0"" src=""images/Pil01.gif"" width=""16"" height=""7""></a>" end if response.write "<A class=""menu"">" & CInt(Current_Page) & " of " & CInt(Total_images)-1 & "</a>" if not CInt(Current_Page) = CInt(Total_Images)-1 then response.write "<a href="""& Page_Name &"&page="& CInt(Current_Page)+1 & """><img border=""0"" src=""images/Pil02.gif"" width=""16"" height=""7""></a></div>" end if %> </td></tr></table> <table width="800" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="67"><img src="images/spacer.gif" width="1" height="7"></td> <td height="7" colspan="3" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="7"></td> </tr> <tr> <td> </td> <td width="15" height="7" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="15" height="1"></td> <td width="775" bgcolor="#FFFFFF"><img src="<%=image_directory &"/"& Image_Array(Current_Page)%>" width="769" height="513" class="Style"></td> <td width="15" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="15" height="1"></td> </tr> <tr> <td><img src="images/spacer.gif" width="1" height="7"></td> <td height="7" colspan="3" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="7"></td> </tr> </table> </td> </tr> </table> </body> </html>
12. juli 2004 - 14:41
#14
<% dim image_directory, image_height, image_width, Images_pr_Page, Images_Horizontal, path, dirarr, i path = "/photo/" & request.querystring("mappe") default_folder="0001/" if request.querystring("mappe") ="" then path = path & default_folder end if image_directory = path image_height = "" image_width = "" Images_pr_Page = "1" Images_Horizontal = "1" dim count_image, image, Image_Array Set directory=server.createobject("scripting.filesystemobject") Set allfiles=directory.getfolder(server.mappath(image_directory)) count_image = 0 For each image in allfiles.files Image_Array = Image_Array + image.Name & "," count_image = count_image +1 Next dim Current_Page, Total_Pages, Total_Images, Page_Name Page_Name = request.servervariables("script_name") & "?mappe=" & request.querystring("mappe") Total_Images = count_image Current_Page = request.querystring("page") If Current_Page = "" or Current_Page = "0" then Current_Page = "1" end if Image_Array = split(Image_Array,",") dim Count_Image_Prints, td_width Count_Image_Prints = 0 %> <html> <head> <title>ph™ // Peter Hougaard</title> <style type="text/css"> #layer { position:absolute; top:62px; left:377px; width:204px; height:154px; border:none; background-color:#353535; display:none; } #layer table{ width:95%; border:0px; border-collapse:collapse; /*text-align:center;*/ } #layer td{ padding:1px; border:0px; margin:0px; font-family:verdana; color:#ffffff; font-size:10px; background-color:transparent; cursor:pointer; cursor:hand; } a.menu { color: #353535; font-size: 10px; font-family: Verdana; text-decoration: none; } a.txt { color: #FFFFFF; font-size: 10px; font-family: Verdana; text-decoration: none; } </style> <script type="text/javascript"> var over = 0; function mIn(){ over = 1; document.getElementById('layer').style.display='block'; } function mOut(){ over = 0; setTimeout('hide()',100); } function hide(){ if(over==0)document.getElementById('layer').style.display='none'; } function tdOver(td,d){ tds = document.getElementById("layer").getElementsByTagName("TD"); for(i=0;tds.length>i;i++){ tds[i].style.backgroundColor = (tds[i]!=td||d)?"transparent":"#870014"; } } </script> <meta http-equiv="imagetoolbar" content="no"> <meta name="description" content="peterhougaard.com - photography"> <meta name="keywords" content="peter, hougaard, peter hougaard, peterhougaard.com, peterhougaard, digital, imaging, advertising, editorial, copenhagen, københavn, billedarkiv, fotografi, foto, fotograf, billeder, billed, galleri, photo, picture, photography, udstillinger, exhibition, photographers, denmark, danmark"> <meta name="author" content="Peter Hougaard"> <META HTTP-EQUIV="reply to" CONTENT="mail@peterhougaard.com"> <META NAME="language" CONTENT="En"> <META NAME="copyright" CONTENT="Peter Hougaard"> <script language="JavaScript" src="nocopy.js"></script> </head> <body bgcolor="#353535"> <div onmouseover="mIn();" onmouseout="mOut();" style="position:absolute; top:38px; left:379px; cursor:default; font-family:verdana; font-size:10px; width: 119px; height: 12px;"> Menu</div> <div id="layer" onmouseover="mIn();" onmouseout="mOut();"> <table cellpadding="2" cellspacing="2"><% Set fso=server.createobject("scripting.filesystemobject") Set allfolders=directory.getfolder(server.mappath("/photo/")) for each item in allfolders.Subfolders %><tr> <td onmouseover="tdOver(this,false);" onmouseout="tdOver(this,true);" onclick="location.href='show.asp?page=<%=item.name%>"><%=item.name%></td> </tr><% next %> <tr> <td onmouseover="tdOver(this,true);" style="cursor:default;">-------------------------------------</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onclick="location.href='show.asp?page=about'">About</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onmouseout="tdOver(this,true);" onclick="location.href='show.asp?page=contact'">Contact</td> </tr> </table> </div> <table width="872" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="67" valign="top"><img src="images/Logo.gif" width="67" height="51"></td> <td width="805" align="center" valign="bottom"><br> <table width="204" height="12" border="0" cellpadding="1" cellspacing="0"> <tr valign="middle"> <td width="118" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"> </td> <% If NOT Cint(Current_Page) = 1 then response.write "<td width=""86"" bgcolor=""#FFFFFF""><div align=""center""><a href="""& Page_Name &"&page="& CInt(Current_Page)-1 & """><img border=""0"" src=""images/Pil01.gif"" width=""16"" height=""7""></a>" end if response.write "<A class=""menu"">" & CInt(Current_Page) & " of " & CInt(Total_images)-1 & "</a>" if not CInt(Current_Page) = CInt(Total_Images)-1 then response.write "<a href="""& Page_Name &"&page="& CInt(Current_Page)+1 & """><img border=""0"" src=""images/Pil02.gif"" width=""16"" height=""7""></a></div>" end if %> </td></tr></table> <table width="800" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="67"><img src="images/spacer.gif" width="1" height="7"></td> <td height="7" colspan="3" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="7"></td> </tr> <tr> <td> </td> <td width="15" height="7" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="15" height="1"></td> <td width="775" bgcolor="#FFFFFF"><img src="<%=image_directory &"/"& Image_Array(Current_Page)%>" width="769" height="513" class="Style"></td> <td width="15" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="15" height="1"></td> </tr> <tr> <td><img src="images/spacer.gif" width="1" height="7"></td> <td height="7" colspan="3" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="7"></td> </tr> </table> </td> </tr> </table> </body> </html>
12. juli 2004 - 14:44
#15
<% dim image_directory, image_height, image_width, Images_pr_Page, Images_Horizontal, path, dirarr, i path = "/photo/" & request.querystring("mappe") default_folder="0001/" if request.querystring("mappe") ="" then path = path & default_folder end if image_directory = path image_height = "" image_width = "" Images_pr_Page = "1" Images_Horizontal = "1" dim count_image, image, Image_Array Set directory=server.createobject("scripting.filesystemobject") Set allfiles=directory.getfolder(server.mappath(image_directory)) count_image = 0 For each image in allfiles.files Image_Array = Image_Array + image.Name & "," count_image = count_image +1 Next dim Current_Page, Total_Pages, Total_Images, Page_Name Page_Name = request.servervariables("script_name") & "?mappe=" & request.querystring("mappe") Total_Images = count_image Current_Page = request.querystring("page") If Current_Page = "" or Current_Page = "0" then Current_Page = "1" end if Image_Array = split(Image_Array,",") dim Count_Image_Prints, td_width Count_Image_Prints = 0 %> <html> <head> <title>ph™ // Peter Hougaard</title> <style type="text/css"> #layer { position:absolute; top:62px; left:377px; width:204px; height:154px; border:none; background-color:#353535; display:none; } #layer table{ width:95%; border:0px; border-collapse:collapse; /*text-align:center;*/ } #layer td{ padding:1px; border:0px; margin:0px; font-family:verdana; color:#ffffff; font-size:10px; background-color:transparent; cursor:pointer; cursor:hand; } a.menu { color: #353535; font-size: 10px; font-family: Verdana; text-decoration: none; } a.txt { color: #FFFFFF; font-size: 10px; font-family: Verdana; text-decoration: none; } </style> <script type="text/javascript"> var over = 0; function mIn(){ over = 1; document.getElementById('layer').style.display='block'; } function mOut(){ over = 0; setTimeout('hide()',100); } function hide(){ if(over==0)document.getElementById('layer').style.display='none'; } function tdOver(td,d){ tds = document.getElementById("layer").getElementsByTagName("TD"); for(i=0;tds.length>i;i++){ tds[i].style.backgroundColor = (tds[i]!=td||d)?"transparent":"#870014"; } } </script> <meta http-equiv="imagetoolbar" content="no"> <meta name="description" content="peterhougaard.com - photography"> <meta name="keywords" content="peter, hougaard, peter hougaard, peterhougaard.com, peterhougaard, digital, imaging, advertising, editorial, copenhagen, københavn, billedarkiv, fotografi, foto, fotograf, billeder, billed, galleri, photo, picture, photography, udstillinger, exhibition, photographers, denmark, danmark"> <meta name="author" content="Peter Hougaard"> <META HTTP-EQUIV="reply to" CONTENT="mail@peterhougaard.com"> <META NAME="language" CONTENT="En"> <META NAME="copyright" CONTENT="Peter Hougaard"> <script language="JavaScript" src="nocopy.js"></script> </head> <body bgcolor="#353535"> <div onmouseover="mIn();" onmouseout="mOut();" style="position:absolute; top:38px; left:379px; cursor:default; font-family:verdana; font-size:10px; width: 119px; height: 12px;"> Menu</div> <div id="layer" onmouseover="mIn();" onmouseout="mOut();"> <table cellpadding="2" cellspacing="2"><% Set fso=server.createobject("scripting.filesystemobject") Set allfolders=directory.getfolder(server.mappath("/photo/")) for each item in allfolders.Subfolders %><tr> <td onmouseover="tdOver(this,false);" onmouseout="tdOver(this,true);" onclick="location.href='show.asp?page=<%=item.name%>'"><%=item.name%></td> </tr><% next %> <tr> <td onmouseover="tdOver(this,true);" style="cursor:default;">-------------------------------------</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onclick="location.href='show.asp?page=about'">About</td> </tr> <tr> <td onmouseover="tdOver(this,false);" onmouseout="tdOver(this,true);" onclick="location.href='show.asp?page=contact'">Contact</td> </tr> </table> </div> <table width="872" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="67" valign="top"><img src="images/Logo.gif" width="67" height="51"></td> <td width="805" align="center" valign="bottom"><br> <table width="204" height="12" border="0" cellpadding="1" cellspacing="0"> <tr valign="middle"> <td width="118" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"><img src="images/spacer.gif" width="1" height="1"> </td> <% If NOT Cint(Current_Page) = 1 then response.write "<td width=""86"" bgcolor=""#FFFFFF""><div align=""center""><a href="""& Page_Name &"&page="& CInt(Current_Page)-1 & """><img border=""0"" src=""images/Pil01.gif"" width=""16"" height=""7""></a>" end if response.write "<A class=""menu"">" & CInt(Current_Page) & " of " & CInt(Total_images)-1 & "</a>" if not CInt(Current_Page) = CInt(Total_Images)-1 then response.write "<a href="""& Page_Name &"&page="& CInt(Current_Page)+1 & """><img border=""0"" src=""images/Pil02.gif"" width=""16"" height=""7""></a></div>" end if %> </td></tr></table> <table width="800" border="0" cellpadding="0" cellspacing="0"> <tr> <td width="67"><img src="images/spacer.gif" width="1" height="7"></td> <td height="7" colspan="3" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="7"></td> </tr> <tr> <td> </td> <td width="15" height="7" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="15" height="1"></td> <td width="775" bgcolor="#FFFFFF"><img src="<%=image_directory &"/"& Image_Array(Current_Page)%>" width="769" height="513" class="Style"></td> <td width="15" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="15" height="1"></td> </tr> <tr> <td><img src="images/spacer.gif" width="1" height="7"></td> <td height="7" colspan="3" bgcolor="#FFFFFF"><img src="images/spacer.gif" width="1" height="7"></td> </tr> </table> </td> </tr> </table> </body> </html>
13. juli 2004 - 15:48
#16
Hej... Har du fået det til at virke..!?
Kurser inden for grundlæggende programmering