galleri script virker ik
hejsa...jeg har fundet det her script på nettet. kan dog ikke lige finde siden igen... Men jeg synes ik rigtigt det virker her hos mig...virker det hos jer ?<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<%
'Variabler som skal redigeres.
'########################################
overskrift = "stillness | test galleri"
antalbilleder = 6
maxantalbilleder = 99999999999999
minantalbilleder = 1
antalkolonner = 3
maxantalkolonner = 99999999999999
minantalkolonner = 1
'########################################
'Beregner antal billeder pr. side.
'###############################################
reqFrm_picnum = request.form("picnum")
if reqFrm_picnum <> "" then
picnum = int(request.form("picnum"))
else
picnum = antalbilleder
end if
'###############################################
'Beregner antal kolonner.
'###############################################
reqFrm_colsnum = request.form("colsnum")
if reqFrm_colsnum <> "" then
colsnum = int(request.form("colsnum"))
else
colsnum = antalkolonner
end if
'###############################################
'Beregner sideid.
'###############################################
reqFrm_pageid = request.form("pageid")
if reqFrm_pageid <> "" then
pageid = int(request.form("pageid"))
else
pageid = 0
end if
'###############################################
'Beregner sidetal.
'###############################################
reqFrm_pagenum = request.form("pagenum")
if reqFrm_pagenum <> "" then
pagenum = int(request.form("pagenum"))
else
pagenum = 1
end if
'###############################################
'Beregner hvad der skal vises.
'###############################################
reqFrm_viewstate = request.form("viewstate")
if reqFrm_viewstate <> "" then
viewstate = request.form("viewstate")
else
viewstate = ""
end if
'###############################################
'Beregner billede der skal vises.
'###############################################
reqFrm_pic = request.form("pic")
if reqFrm_pic <> "" then
pic = request.form("pic")
else
pic = ""
end if
'###############################################
'Beregner nuværende sti.
'###############################################
reqFrm_currentpath = request.form("currentpath")
if reqFrm_currentpath <> "" then
currentpath = request.form("currentpath")
else
currentpath = ""
end if
'###############################################
'Opretter filsystemobjektet.
'###############################################
Set directory=server.createobject("scripting.filesystemobject")
Set allfiles=directory.getfolder(server.mappath("."¤tpath&""))
'###############################################
'Opretter div. variabler.
'###############################################
run = 1
thisrun = 0
x = 0
totalpages = 0
piccount = 0
basepath = directory.GetParentFolderName(server.mappath("."))
currentdir = replace(right(directory.GetFolder(server.mappath("."¤tpath&"")),(len(directory.GetFolder(server.mappath("."¤tpath&"")))-len(directory.GetParentFolderName(server.mappath("."¤tpath&""))))),"\","/")
picpath = replace(right(server.mappath("."¤tpath&""),(len(server.mappath("."¤tpath&""))-len(basepath))),"\","/")
'Billeder i kode.
'###############################################
pic_plus = "<table width=9 height=9 border=0 cellpadding=0 cellspacing=0><tr><td colspan=3 rowspan=3 height=3></td><td width=1 height=1 bgcolor=#737373></td><td width=1 bgcolor=#000000></td><td width=1 bgcolor=#737373></td><td colspan=3 rowspan=3 height=3></td></tr><tr><td rowspan=2 height=2 bgcolor=#000000></td><td height=1 bgcolor=#94E98B></td><td rowspan=2 height=2 bgcolor=#000000></td></tr><tr><td height=1 bgcolor=#94E98B></td></tr><tr><td width=1 height=1 bgcolor=#737373></td><td colspan=2 bgcolor=#000000></td><td bgcolor=#94E98B></td><td bgcolor=#94E98B></td><td bgcolor=#94E98B></td><td colspan=2 bgcolor=#000000></td><td width=1 bgcolor=#737373></td></tr><tr><td height=1 bgcolor=#000000></td><td width=1 bgcolor=#94E98B></td><td width=1 bgcolor=#94E98B></td><td bgcolor=#94E98B ></td><td bgcolor=#94E98B ></td><td bgcolor=#88E67E ></td><td width=1 bgcolor=#76E26B></td><td width=1 bgcolor=#63DC56></td><td bgcolor=#000000></td></tr><tr><td bgcolor=#737373 height=1></td><td colspan=2 bgcolor=#000000></td><td bgcolor=#88E67E></td><td bgcolor=#76E16B></td><td bgcolor=#63DC56></td><td colspan=2 bgcolor=#000000></td><td bgcolor=#737373></td></tr><tr><td colspan=3 rowspan=3 height=3></td><td rowspan=2 height=2 bgcolor=#000000></td><td height=1 bgcolor=51D743></td><td rowspan=2 height=2 bgcolor=#000000></td><td colspan=3 rowspan=3 height=3></td></tr><tr><td height=1 bgcolor=#45D436></td></tr><tr><td bgcolor=#737373></td><td height=1 bgcolor=#000000></td><td bgcolor=#737373></td></tr></table>"
pic_minus = "<table width=9 height=9 border=0 cellpadding=0 cellspacing=0><tr><td height=3 width=9 colspan=9></td></tr><tr><td width=1 height=1 bgcolor=#737373></td><td width=7 colspan=7 bgcolor=#000000></td><td width=1 bgcolor=#737373></td></tr><tr><td height=1 bgcolor=#000000></td><td width=1 bgcolor=#E79E9E></td><td width=1 bgcolor=#E79E9E></td><td width=1 bgcolor=#E78B8B ></td><td width=1 bgcolor=#E76F6F ></td><td width=1 bgcolor=#E75050 ></td><td width=1 bgcolor=#E73434></td><td width=1 bgcolor=#E72121></td><td bgcolor=#000000></td></tr><tr><td height=1 bgcolor=#737373></td><td colspan=7 bgcolor=#000000></td><td bgcolor=#737373></td></tr><tr><td height=3 width=9 colspan=9></td></tr></table>"
pic_line = "<table width=20 height=11 cellpadding=0 cellspacing=0><td height=11 width=9></td><td width=1 bgcolor=#A9A9A9><td width=9></td></tr></table>"
pic_subdir = "<table border=0 cellpadding=0 cellspacing=0><tr><td width=2 colspan=2></td><td width=4 colspan=4 bgcolor=#CC9934></td><td width=1></td><td width=9 colspan=9 rowspan=2></td></tr><tr><td width=1></td><td width=1 bgcolor=#CC9934></td><td width=4 colspan=4 bgcolor=#FFFFFF></td><td width=1 bgcolor=#CC9934></td></tr><tr><td rowspan=9 bgcolor=#CC9934></td><td width=1 bgcolor=#FFFFFF></td><td colspan=4 bgcolor=#FFFF99></td><td width=1 bgcolor=#FFFFFF></td><td colspan=6 bgcolor=#CC9934></td><td ></td><td colspan=2 rowspan=2></td></tr><tr><td colspan=6 bgcolor=#FFF48E></td><td colspan=5 bgcolor=#FFFFFF></td><td width=1bgcolor=#CC9934></td><td width=1bgcolor=#C4C4B7></td></tr><tr><td colspan=2 bgcolor=#FFEB85></td><td colspan=12 bgcolor=#CC9934></td><td ></td></tr><tr><td bgcolor=#FFE07B></td><td rowspan=6 bgcolor=#CC9934></td><td colspan=9 bgcolor=#FFFFFF></td><td ></td><td bgcolor=#FFFFFF></td><td bgcolor=#CC9934></td><td rowspan=7 bgcolor=#C4C4B7></td></tr><tr><td bgcolor=#FFD46F></td><td rowspan=5 bgcolor=#FFFF99></td><td colspan=4 bgcolor=#FFFF99></td><td colspan=7 bgcolor=#000000></td></tr><tr><td rowspan=4 bgcolor=#FFCC67></td><td colspan=4 bgcolor=#FFF48E></td><td rowspan=5 bgcolor=#000000></td><td colspan=5 bgcolor=#C8C8C8></td><td rowspan=5 bgcolor=#000000></td></tr><tr><td colspan=4 bgcolor=#FFEB85></td><td rowspan=3 bgcolor=#C8C8C8></td><td bgcolor=#C8C8C8></td><td bgcolor=#000000></td><td bgcolor=#C8C8C8></td><td rowspan=3 bgcolor=#C8C8C8></td></tr><tr><td colspan=4 bgcolor=#FFE07B></td><td colspan=3 bgcolor=#000000></td></tr><tr><td colspan=4 bgcolor=#FFD46F></td><td bgcolor=#C8C8C8></td><td bgcolor=#000000></td><td bgcolor=#C8C8C8></td></tr><tr><td ></td><td colspan=7 bgcolor=#CC9934></td><td colspan=5 bgcolor=#C8C8C8></td></tr><tr><td colspan=2 rowspan=2></td><td colspan=6 bgcolor=#C4C4B7></td><td colspan=7 bgcolor=#000000></td><td ></td></tr><tr><td height=3 colspan=14></td></tr></table>"
pic_dir = "<table width=16 height=16 cellpadding=0 cellspacing=0><tr><td colspan=2></td><td colspan=4 bgcolor=#CC9934></td><td> </td><td colspan=9 rowspan=2></td></tr><tr><td> </td><td bgcolor=#CC9934></td><td colspan=4 bgcolor=#FFFFFF></td><td bgcolor=#CC9934></td></tr><tr><td rowspan=9 bgcolor=#CC9934></td><td bgcolor=#FFFFFF></td><td colspan=4 bgcolor=#FFFF99></td><td bgcolor=#FFFFFF></td><td colspan=6 bgcolor=#CC9934></td><td> </td><td colspan=2 rowspan=2></td></tr><tr><td colspan=6 bgcolor=#FFF48E></td><td colspan=5 bgcolor=#FFFFFF></td><td bgcolor=#CC9934></td><td bgcolor=#C5C4B7></td></tr><tr><td colspan=2 bgcolor=#FFEB85></td><td colspan=12 bgcolor=#CC9934></td><td> </td></tr><tr><td bgcolor=#FFE07B></td><td rowspan=6 bgcolor=#CC9934></td><td colspan=9 bgcolor=#FFFFFF></td><td bgcolor=#FFE681></td><td bgcolor=#FFFFFF></td><td rowspan=6 bgcolor=#CC9934></td><td rowspan=7 bgcolor=#C5C4B7></td></tr><tr><td bgcolor=#FFD46F></td><td rowspan=5 bgcolor=#FFFF99></td><td colspan=8 bgcolor=#FFFF99></td><td bgcolor=#F8C560></td><td rowspan=5 bgcolor=#FFFF99></td></tr><tr><td rowspan=4 bgcolor=#FFCC67></td><td colspan=8 bgcolor=#FFF48E></td><td bgcolor=#EFBC57></td></tr><tr><td colspan=8 bgcolor=#FFEB85></td><td bgcolor=#E6B34E></td></tr><tr><td colspan=8 bgcolor=#FFE07B></td><td bgcolor=#DCA944></td></tr><tr><td colspan=8 bgcolor=#FFD46F></td><td bgcolor=#D3A03B></td></tr><tr><td> </td><td colspan=13 bgcolor=#CC9934></td><td> </td></tr><tr><td> </td><td> </td><td colspan=13 bgcolor=#C5C4B7></td><td> </td></tr><tr><td colspan=16 height=3></td></tr></table>"
'###############################################
%>
<html>
<head>
<title><%=overskrift%></title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<style>
body {
background-color:#D5D4C3;
margin: 0px;
}
td {
font-family:Verdana, Arial, Helvetica, sans-serif;
font-size:10px;
color:#000000;
}
a {color:#000000; text-decoration:none;}
a.hover {color:#333333; text-decoration:none;}
a.active {color:#000000; text-decoration:none;}
.menu {
position: absolute;
top: 0px;
width: 100%;
height: 32px;
background-color: #999999;
}
.bottom {
width: 100%;
height: 32px;
background-color: #999999;
}
.content {
width: 100%;
height: 100%;
position: absolute;
text-align: center;
top: 40px;
}
img {
border: 1px solid #999999;
}
</style>
</head>
<body>
<%
'Tjekker op på hvor mange .jpg billeder der er i mappen.
'###############################################
For each directoryfile in allfiles.files
if directory.GetExtensionName(""&directoryfile.Name&"") = "JPG" or directory.GetExtensionName(""&directoryfile.Name&"") = "jpg" then
piccount = piccount + 1
end if
next
'###############################################
'Beregner antallet sider.
'###############################################
for x = 0 to piccount-1 step picnum
totalpages = totalpages + 1
next
'###############################################
%>
<table width="100%" cellpadding="0" cellspacing="0">
<tr><td>
<%'Topbar%>
<table width="100%" cellpadding="0" cellspacing="0">
<tr><td bgcolor="#999999" height="1" colspan="2"></td></tr>
<tr>
<td bgcolor="#f1f1f1" height="29"> <%=overskrift%></td>
<td bgcolor="#f1f1f1" align="right">
<% if viewstate <> "active" then %>
<table height="29" cellpadding="0" cellspacing="0">
<tr>
<td><%=pic_line%></td>
<td><% if not pagenum = 1 then%><div onClick="document.settings.pageid.value='<%=pageid-picnum%>';document.settings.pagenum.value='<%=pagenum-1%>';document.settings.submit();" style="cursor: pointer;"><%=pic_minus%></div><%else%><%=pic_minus%><%end if%></td><td> Side <strong><%=pagenum%></strong> af <%=totalpages%> </td><td><% if not pagenum = totalpages then%><div onClick="document.settings.pageid.value='<%=pageid+picnum%>';document.settings.pagenum.value='<%=pagenum+1%>';document.settings.submit();" style="cursor: pointer;"><%=pic_plus%></div><%else%><%=pic_plus%><%end if%></td><td><%=pic_line%></td>
<td><% if not picnum = minantalbilleder then%><div onClick="document.settings.pageid.value='0';document.settings.pagenum.value='1';document.settings.picnum.value='<%=picnum-1%>';document.settings.submit();" style="cursor: pointer;"><%=pic_minus%></div><%else%><%=pic_minus%><%end if%></td><td> <strong><%=picnum%></strong> Billeder pr. side </td><td><% if not picnum = maxantalbilleder then%><div onClick="document.settings.pageid.value='0';document.settings.pagenum.value='1';document.settings.picnum.value='<%=picnum+1%>';document.settings.submit();" style="cursor: pointer;"><%=pic_plus%></div><%else%><%=pic_plus%><%end if%></td><td><%=pic_line%></td>
<td><% if not colsnum = minantalkolonner then%><div onClick="document.settings.pageid.value='0';document.settings.pagenum.value='1';document.settings.colsnum.value='<%=colsnum-1%>';document.settings.submit();" style="cursor: pointer;"><%=pic_minus%></div><%else%><%=pic_minus%><%end if%></td><td> <strong><%=colsnum%></strong> Kolonner </td><td><% if not colsnum = maxantalkolonner then%><div onClick="document.settings.pageid.value='0';document.settings.pagenum.value='1';document.settings.colsnum.value='<%=colsnum+1%>';document.settings.submit();" style="cursor: pointer;"><%=pic_plus%></div><%else%><%=pic_plus%><%end if%></td><td><%=pic_line%></td>
</tr>
</table>
<%else%>
<table height="29" cellpadding="0" cellspacing="0">
<tr><td><%=pic_line%></td><td><div style="cursor: pointer;" onClick="document.settings.viewstate.value='';document.settings.pic.value='';document.settings.submit();">Tilbage</div></td><td><%=pic_line%></td></tr>
</table>
<%end if%>
</td></tr>
<tr><td bgcolor="#999999" height="1" colspan="2"></td></tr>
<tr><td bgcolor="#EBEADC" height="1" colspan="2"></td></tr>
</table>
<%'/topbar%>
</td></tr>
<tr><td>
<%'Content%>
<table width="100%" cellpadding="0" cellspacing="0">
<tr>
<% For Each Folder in allfiles.SubFolders
subexists = true
next
if ((subexists = true) or (currentpath <> "")) then %>
<% if viewstate <> "active" then %>
<td valign="top">
<%'MENU%>
<table width="200" cellpadding="0" cellspacing="0">
<tr><td colspan="3"> </td></tr>
<tr><td colspan="3">
<%'menu%>
<table cellpadding="0" cellspacing="0">
<tr><td width="199" bgcolor="#DEDDCE">
<table width="199" cellpadding="0" cellspacing="0">
<tr><td bgcolor="#999999" height="1" colspan="3"></td></tr>
<tr><td bgcolor="#f1f1f1" height="29" colspan="3"> Mappestruktur</td></tr>
<% if not currentpath = "" then%>
<tr><td bgcolor="#999999" height="1" colspan="3"></td></tr>
<tr><td bgcolor="#EBEADC" height="1" colspan="3"></td></tr>
<tr><td height="20"></td><td colspan="2"><div style="cursor: pointer;" onClick="document.settings.currentpath.value='<% if not currentpath = "" then%><%=left(currentpath,(len(currentpath)-len(currentdir)))%><%end if%>';document.settings.submit();"><strong>Forrige mappe</strong></div></td></tr>
<%end if%>
<% For Each Folder in allfiles.SubFolders %>
<% set subdirs = directory.getfolder(server.mappath("."¤tpath&"/"&folder.name&""))
for each x in subdirs.Subfolders
subdiramount = subdiramount+1
next %>
<tr><td bgcolor="#999999" height="1" colspan="3"></td></tr>
<tr><td bgcolor="#EBEADC" height="1" colspan="3"></td></tr>
<tr><td width="5"></td><td width="20" height="20"><%if subdiramount > 0 then%><div><%=pic_subdir%></div><%else%><div><%=pic_dir%></div><%end if%></td><td width="175"><div style="cursor: pointer;" onClick="document.settings.currentpath.value='<%=currentpath%>/<%=folder.name%>';document.settings.submit();"><%=folder.name%></div></td></tr>
<% subdiramount = 0 %>
<% next %>
</table>
</td><td width="1" bgcolor="#666666" rowspan="999"></td></tr>
<tr><td bgcolor="#999999" height="1" colspan="2"></td></tr>
<tr><td bgcolor="#EBEADC" height="1" colspan="2"></td></tr>
</table>
<%'/menu%>
</td></tr>
<tr><td> </td></tr>
</table>
<%'/MENU%>
</td>
<% end if %>
<% end if %>
<td valign="top" align="center">
<%'PICS%>
<table cellpadding="1" cellspacing="5">
<% if viewstate <> "active" then
For each directoryfile in allfiles.files
thisrun = thisrun + 1
if thisrun =< pageid+picnum then 'udskriver indtil den slutter rigtigt!
if thisrun+picnum > pageid+picnum then
if directory.GetExtensionName(""&directoryfile.Name&"") = "JPG" or directory.GetExtensionName(""&directoryfile.Name&"") = "jpg" then
if ((run = 1) and (run = colsnum)) then
%><tr><td bgcolor="#EBEADC"><div style="cursor: pointer;" onClick="document.settings.viewstate.value='active';document.settings.pic.value='<%=directoryfile.Name%>';document.settings.submit();"><img width="200" src="<%=picpath%>/<%=directoryfile.Name%>" border="0"></div></td></tr><%
run = 1
elseif ((run = 1) and (run <> colsnum)) then
%><tr><td bgcolor="#EBEADC"><div style="cursor: pointer;" onClick="document.settings.viewstate.value='active';document.settings.pic.value='<%=directoryfile.Name%>';document.settings.submit();"><img width="200" src="<%=picpath%>/<%=directoryfile.Name%>" border="0"></div></td><%
run = run + 1
elseif run = colsnum then
%><td bgcolor="#EBEADC"><div style="cursor: pointer;" onClick="document.settings.viewstate.value='active';document.settings.pic.value='<%=directoryfile.Name%>';document.settings.submit();"><img width="200" src="<%=picpath%>/<%=directoryfile.Name%>" border="0"></div></td></tr><%
run = 1
else
%><td bgcolor="#EBEADC"><div style="cursor: pointer;" onClick="document.settings.viewstate.value='active';document.settings.pic.value='<%=directoryfile.Name%>';document.settings.submit();"><img width="200" src="<%=picpath%>/<%=directoryfile.Name%>" border="0"></div></td><%
run = run + 1
end if
end if
end if
end if
Next
else%>
<tr><td bgcolor="#EBEADC"><div style="cursor: pointer;" onClick="document.settings.viewstate.value='';document.settings.pic.value='';document.settings.submit();"><img src="<%=picpath%>/<%=pic%>" border="0"></div></td></tr>
<%end if%>
</table>
<%'/PICS%>
</td></tr>
</table>
</td></tr>
<tr><td>
<%'Bottom%>
<table width="100%" cellpadding="0" cellspacing="0">
<tr><td bgcolor="#999999" height="1" colspan="2"></td></tr>
<tr><td bgcolor="#f1f1f1" height="29" align="right">(c) Rasmus Klattrup </td></tr>
<tr><td bgcolor="#999999" height="1" colspan="2"></td></tr>
<tr><td bgcolor="#EBEADC" height="1" colspan="2"></td></tr>
</table>
<%'/Bottom%>
</td></tr>
</table>
<%'Formdata%>
<form action="default.asp" method="post" name="settings">
<input type="hidden" name="colsnum" value="<%=colsnum%>">
<input type="hidden" name="picnum" value="<%=picnum%>">
<input type="hidden" name="pageid" value="<%=pageid%>">
<input type="hidden" name="pagenum" value="<%=pagenum%>">
<input type="hidden" name="viewstate" value="<%=viewstate%>">
<input type="hidden" name="pic" value="<%=pic%>">
<input type="hidden" name="currentpath" value="<%=currentpath%>">
</form>
<%'/Formdata%>
</body>
</html>
