skjule mappe i mappe galleri
hey jeg har et mappe gallery men desværre lister galleriet også min css-image mappe op altså den mappe med alm. billeder til siden.er der evt. nogle der har et forslag til hvordan jeg løser dette??
koden gallery.asp
<!-- Visit studio7designs.com and opensourcetemplates.org for more website templates :: This template was created by studio7designs.com for public use under the creative commons licence 2.5 -->
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "DTD/xhtml1-transitional.dtd">
<html>
<head>
<title>Nautica08</title>
<meta http-equiv="content-type" content="application/xhtml+xml; charset=UTF-8" />
<meta name="description" content="studio7designs" />
<meta name="keywords" content="#" />
<meta name="googlebot" content="index, follow" />
<meta name="language" content="en-us, english" />
<meta name="classification" content="#" />
<meta name="author" content="www.studio7designs.com" />
<meta name="copyright" content="#" />
<meta name="location" content="#" />
<meta name="zipcode" content="#" />
<link rel="stylesheet" type="text/css" href="stylesheet.css" media="screen, projection, tv " />
</head>
<body>
<!-- start top menu and blog title-->
<div id="blogtitle">
<div id="small"><a href="#">Your Blog news</a> or current info and links
::</div>
<div id="small2"> <a href="#">News</a> | <a href="#">Services</a> | <a href="#">
Projects</a> | <a href="#">Supplies</a> | <a href="#">Information</a></div>
</div>
<div id="topmenu">
<ul class="BLUE">
<li><a href="#" title="Downloads"><span>Home</span></a></li>
<li><a href="#" title="Gallery"><span>Gallery</span></a></li>
<li><a href="#" title="Links"><span>Arrangementer</span></a></li>
<li><a href="#" title="Links"><span>Profiler</span></a></li>
<li><a href="#" title="Links"><span>Regler</span></a></li>
<li><a href="#" title="Links"><span>Kontakt</span></a></li>
</ul>
</div>
<!-- end top menu and blog title-->
<!-- start left box-->
<!-- Begin FloatMail Code //-->
<script>
/* Floating Mail-This-Link Script C.2004 by CodeLifter.com */
// Insert the entire script just before the </body> tag.
// Set the following two position parameters
// Negative numbers are relative to right (hX) or bottom (vY)
// Positive numbers are relative to left (hX) or (vY) top
// Experiment with values to get positioning exact, and allow
// for the dimensions of the image & form in the positioning
var hX = 2;
var vY = -645;
</script>
<!-- Edit the HTML between the div tags to suit your design //-->
<div id="FloatMail" style="position: absolute;
width: 180px;
border-width: 0;
padding:5px">
<div id="leftcontent">
<img style="margin-top:-9px; margin-left:-12px;" src="/images/top2.jpg" alt="" />
<h3 align="left">Main Menu</h3>
<div align="left">
<ul class="BLUE">
<li><a href="#">Sample Link</a></li>
<li><a href="#">Sample Link</a></li>
<li><a href="#">Sample Link</a></li>
<li><a href="#">Sample Link</a></li>
<li><a href="#">Sample Link</a></li>
</ul>
</div>
<h3 align="left">Sub menu</h3>
<div align="left">
<ul class="BLUE">
<%
qfolder = request.querystring("f")
'if qfolder = "" then
folderspec = server.mappath(".")
Set filesys = CreateObject("Scripting.FileSystemObject")
Set demofolder = filesys.GetFolder(folderspec)
Set folcoll = demofolder.SubFolders
For Each subfol in folcoll
folsize = left((subfol.size/1000000), 3)
folist = folist & "<a href='?f=" & subfol.name & "'><strong title='view'>»</strong> " & subfol.Name & " </a><br>"
folist = folist & " "
Next
set filesys = nothing
Response.Write folist
%>
</ul>
<%
if request("f") <> "" then
%>
<p>Nullam non metus. Duis in metus vitae elit luctus convallis. Ut sagittis.
Nam tempor. Nam vehicula adipiscing augue. Vestibulum pretium lacinia erat.
Duis ut enim. In hendrerit vulputate lectus. Donec ipsum magna, tempor
ornare, fringilla sit amet, placerat</p>
</div>
<!-- You have to modify the "padding-top: when you change the content of this div to keep the footer image looking aligned -->
<img style="padding-top:2px; margin-left:-12px; margin-bottom:-4px;" src="/images/specs_bottom.jpg" alt="" />
</div>
</div>
<!-- End of editable HTML //-->
<script>
/* Floating Mail-This-Link Script C.2004 by CodeLifter.com */
/* Caution! Do not allow linebreaks other than where shown */
var good;function checkEmailAddress(field){
var goodEmail=field.value.match(/\b(^(\S+@).+((\.com)|(\.net)|(\.edu)|(\.mil)|(\.gov)|(\.org)|(\..{2,2}))$)\b/gi);
if (goodEmail){good = true}else{alert('Please enter a valid e-mail address.');
field.focus();field.select();good=false;}}
u=window.location;m="I thought this might interest you...";
function mailThisUrl(){good=false;
checkEmailAddress(document.eMailer.address);
if (good){window.location="mailto:"+document.eMailer.address.value+"?subject="+m+"&body="+document.title+" "+u;}}
var nn=(navigator.appName.indexOf("Netscape")!=-1);
var dD=document,dH=dD.html,dB=dD.body,px=dD.layers?'':'px';
function floatMail(iX,iY,id){
var L=dD.getElementById?dD.getElementById(id):dD.all?dD.all[id]:dD.layers[id];
this[id+'O']=L;if(dD.layers)L.style=L;L.nX=L.iX=iX;L.nY=L.iY=iY;
L.P=function(x,y){this.style.left=x+px;this.style.top=y+px;};L.Fm=function(){var pX, pY;
pX=(this.iX >=0)?0:nn?innerWidth:nn&&dH.clientWidth?dH.clientWidth:dB.clientWidth;
pY=nn?pageYOffset:nn&&dH.scrollTop?dH.scrollTop:dB.scrollTop;
if(this.iY<0)pY+=nn?innerHeight:nn&&dH.clientHeight?dH.clientHeight:dB.clientHeight;
this.nX+=.1*(pX+this.iX-this.nX);this.nY+=.1*(pY+this.iY-this.nY);this.P(this.nX,this.nY);
setTimeout(this.id+'O.Fm()',33);};
return L;}
floatMail(hX,vY,'FloatMail').Fm();
</script>
<!-- End FloatMail Code //-->
<!-- end left box-->
<!-- start content -->
<div id="centercontent">
<div style="position: absolute; width: 100px; height: 100px; z-index: 1; left: 251px; top: 143px" id="lag1">
<h1>Gallery</h1></div>
<h1> </h1>
<p><br /></p>
<br>
<br>
<br>
<br>
<br>
<br>
<br>
<div class="centercontentleft" style="width: 470px; height: 200px"><%
qfolder = request.querystring("f")
filepath = server.mappath(".") & "/" & qfolder
captionfile = filepath & "\captions.txt"
Set filesys = CreateObject("Scripting.FileSystemObject")
Dim SomeArray()
'caption part
If filesys.FileExists(captionfile) then
set file = filesys.GetFile(captionfile)
Set TextStream = file.OpenAsTextStream(ForReading,TristateUseDefault)
captioncount = 0
Do While Not TextStream.AtEndOfStream
Line = TextStream.readline
ReDim Preserve SomeArray(captioncount)
SomeArray(captioncount) = line
'response.write captioncount & " " & somearray(captioncount) & "<br>"
captioncount = captioncount + 1
'Response.write Line
Loop
textStream.close
end if
'folder part
Set demofolder = filesys.GetFolder(filepath)
Set filecoll = demofolder.Files
filecount = 0
For Each file in filecoll
Ext = UCase(Right(File.Path, 3))
If Ext = "JPG" OR Ext = "GIF" Then
on error resume next
data = SomeArray(filecount)
on error goto 0
hrefpath = qfolder & "/" & file.name
b = b + 1 'dette er din tæller
if b = 1 then 'når tælleren står i 1 starter den tabellen
imagepath = "<table width=""161%"" border=""1""> <tr><td align=""center"" width=""25%""><strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img src='" & hrefpath & "' width=""100"" height=""100"" border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"
filist = filist & imagepath
filist = filist & "</td><td>"
filecount = filecount + 1
data = ""
end if
if b = 2 then 'når tælleren står i 2 laver den en celle ved siden af den første
imagepath = "<td align=""center"" width=""25%""><strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img src='" & hrefpath & "' width=""100"" height=""100"" border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"
filist = filist & imagepath
filist = filist & "</td> "
filecount = filecount + 1
data = ""
end if
if b = 3 then 'når tælleren står i 2 laver den en celle ved siden af den første
imagepath = "<td align=""center"" width=""25%""><strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img src='" & hrefpath & "' width=""100"" height=""100"" border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"
filist = filist & imagepath
filist = filist & "</td> "
filecount = filecount + 1
data = ""
end if
if b = 4 then 'når tælleren står i 3 så afslutter den og sætter tæller i 0
b = 0
imagepath = "<td align=""center"" width=""25%""><strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img src='" & hrefpath & "' width=""100"" height=""100"" border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"
filist = filist & imagepath
filist = filist & "</td> </tr></table>"
filecount = filecount + 1
data = ""
end if
if b = 5 then
b = 0
imagepath = "<td align=""center"" width=""33%""><strong>" & data & "</strong><br><a href='" & hrefpath & "' title='free image gallery' border=0><img src='" & hrefpath & "' width=""100"" height=""100"" border='" & border_size & "' title=""" & data & """ style='border-color: " & border_color & ";'></a><br>"
filist = filist & imagepath
filist = filist & "</td> </tr></table>"
filecount = filecount + 1
data = ""
end if
end if
Next
set filesys = Nothing
%>
<p><%=filist%></p>
<%
end if
%>
</td>
</tr>
</table>
</div>
<p> </p>
</div>
<!-- end content -->
<!-- start right box -->
<div id="rightcontent">
<img style="margin-top:-9px; margin-left: -5px;" src="/images/top2.jpg" alt="" />
<img style="width: 153px; height: 59px; float: left; padding:9px;" src="/images/n8g.jpg" alt="Nautica08" />
<p><a href="#">Pick a location:</a><br />
sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod
tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad
minim veniam, quis nostrud exercitation ulliam corper</p>
<p> Pick a location:<br />
sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod
tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad
minim veniam, quis nostrud exercitation ulliam corper</p>
<p> Pick a location:<br />
sit amet, consectetuer adipiscing elit, sed diam nonummy nibh euismod
tincidunt ut laoreet dolore magna aliquam erat volutpat. Ut wisi enim ad
minim veniam, quis nostrud exercitation ulliam corper</p>
<img style="padding-top:5px; margin-left:-5px; margin-bottom:-4px;" src="/images/specs_bottom.jpg" alt="" />
</div>
<!-- end right box -->
<!-- start footer -->
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<p> </p>
<div id="footer" style="width: 1262px; height: 2px">
©
2006 Design by
<a href="http://www.studio7designs.com">
Møller</a>
|
</div>
</body>
</html>
