Avatar billede visual Nybegynder
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. :-)
Avatar billede visual Nybegynder
12. juli 2004 - 11:01 #1
Skriv lige hvis nogle gider at kigge på det?
Avatar billede ellebaek Nybegynder
12. juli 2004 - 12:26 #2
hmm...
Skal den kun vise 1 billede ad gangen ??
Jeg kan da godt kigge på det...!
Avatar billede visual Nybegynder
12. juli 2004 - 12:27 #3
Ja et billede af gangen.
Avatar billede ellebaek Nybegynder
12. juli 2004 - 12:35 #4
okay... Jeg kigger på det med det samme...

du har en fil der hedder default.asp i hver mappe ikke sandt..?
Avatar billede visual Nybegynder
12. juli 2004 - 12:37 #5
Nej.
Avatar billede ellebaek Nybegynder
12. juli 2004 - 12:38 #6
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..!
Avatar billede visual Nybegynder
12. juli 2004 - 12:40 #7
Skal jeg bare ligge en default.asp i /photo/.....?
Avatar billede ellebaek Nybegynder
12. juli 2004 - 12:43 #8
Ja.., Men den skal indeholde det jeg skriver i en fil til dig om lidt...!
Så bare vent med at ligge den ind..!
Avatar billede visual Nybegynder
12. juli 2004 - 12:45 #9
Okay.
Avatar billede ellebaek Nybegynder
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>&nbsp;</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>
Avatar billede visual Nybegynder
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 !!!
Avatar billede ellebaek Nybegynder
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>&nbsp;</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>
Avatar billede ellebaek Nybegynder
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>&nbsp;</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>
Avatar billede ellebaek Nybegynder
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>&nbsp;</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>
Avatar billede ellebaek Nybegynder
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>&nbsp;</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>
Avatar billede ellebaek Nybegynder
13. juli 2004 - 15:48 #16
Hej... Har du fået det til at virke..!?
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



IT-JOB