tjek bibliotek for underbiblioteker
nedenstående script tjekker et navngivet bibliotek for billed filer, og laver et lille billede som virker som link til samme fil i stort format.Kan det udbygges til først at tjekke et bibliotek for MAPPER som der så skal listes som link til liste over billeder der er i dette bibliotek, hvilke man så kan klikke på for at se disse i stort format.
kan nogen rette scriptet til så den
- tjekker biblioteket "billeder" for undermapper
- lister disse som links
- ved klip på et mappelink skal man se alle filer listet (som den gør nu)
stor opgave derfor MAX point 200 til det kloge hovede
jeg håber i forstår hvad jeg mener, her kommer scriptet :
------
<% Response.Buffer = True
'---------- Indstillinger -----------
Path = "../billeder/" ' Mappen indeholdende brugernes mapper
Foto = Request.ServerVariables("URL") ' Filnavnet på DENNE fil
ThumbWidth = 75 ' Bredden på thumbnails (pixels)
ThumbHeight = 100 ' Højden på thumbnails (pixels)
PicWidth = 400 ' Bredden på billederne (pixels)
PicHeight = 500 ' Højden på billederne (pixels)
TableMax = 5 ' Antal billeder der vises på én linie
'------------------------------------ %>
<html>
<head>
<script language="JavaScript">
<!-- // Hide from old browsers
function see(imagesrc, filename)
{
nytvindue = window.open('<%=Path%>', '_blank', 'width=<%=PicWidth%>,height=<%=PicHeight + 20%>');
nytvindue.document.clear()
nytvindue.document.open()
nytvindue.document.write("<html><head><title>" + filename + "</title></head><body topmargin='0' rightmargin='0' leftmargin='0' bottommargin='0'><img src='" + imagesrc + "' width='<%=PicWidth%>' height='<%=PicHeight%>'><br><div align='center'><a href='java script:window.rint()'>Udskriv</a></div></body></html>");
nytvindue.document.close();
}
//-->
</script>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>billeder</title>
</head>
<body topmargin="0" leftmargin="0" link="#000080" vlink="#000080">
<p> </p>
<div align="center">
<center>
<table border="3" width="90%" bordercolor="#000080" cellspacing="0" cellpadding="0" bordercolorlight="#666699" bordercolordark="#666699" style="border-collapse: collapse">
<tr>
<td width="100%" valign="top" align="center" bgcolor="#666699" height="18">
<b><font color="#FFFFFF">Indsendte Papirklip</font></b></td>
</tr>
<tr>
<td width="100%" valign="top" align="center" bgcolor="#FFFFFF">
<% Set FileObj = Server.CreateObject("Scripting.FileSystemObject")
If Request("bruger") = "" Then
Set MainFolder = FileObj.GetFolder(Server.MapPath(Path))
Set Folders = MainFolder.SubFolders
For Each Folder In Folders
Response.Write "<a href=""" & Request.ServerVariables("URL") & "?bruger=" & LCase(Folder.Name) & """>" & Folder.Name & "</a><br>"
Next
Set MainFolder = Nothing
Set Folders = Nothing
Else
TableCount = 0
Set MainFolder = FileObj.GetFolder(Server.MapPath(Path & Request("bruger")))
Set Files = MainFolder.Files
Response.Write "<table cellpadding=""3""><tr>"
For Each File In Files
Accept = False ' Gør filen uaccepteret, da den ikke er checket endnu
Select Case Right(File.Name, 3) ' Finder filtype, og checker om den er godtkendt
Case "tif": Accept = True ' Filtypen jpg er godkendt
Case "TIF": Accept = True ' Filtypen jpg er godkendt
Case "gif": Accept = True ' Filtypen gif er godkendt
Case "GIF": Accept = True ' Filtypen bmp er godkendt
Case "jpg": Accept = True ' Filtypen bmp er godkendt
Case "JPG": Accept = True ' Filtypen bmp er godkendt
Case Else: Accept = False ' Alle andre filtype er ikke godkendt
End Select
If Accept Then
TableCount = TableCount + 1 ' Skriver i variablen TableCount, hvor mange billeder der står på linien
Response.Write "<td align=""center""><a href=""java script:see('" & LCase(Path & Request("bruger") & "/" & File.Name) & "', '" & LCase(File.Name) & "')""><img src=""" & Path & Request("bruger") & "/" & File.Name & """ width=""" & ThumbWidth & """ height=""" & ThumbHeight & """ border=""0""></a><br><font face=""verdana"" size=""1"">" & LCase(File.Name) & "</font></td>"
If TableCount = TableMax Then ' Checker om der er for mange billeder på linien
TableCount = 0 ' Hvis der er for mange så skriv variablen TableCount til nul og
Response.Write "</tr><tr>" ' start en ny linie
End If
End If
Next
Response.Write "</tr></table>"
Set MainFolder = Nothing
Set Folders = Nothing
End If
Set FileObj = Nothing %><font color="#666699"> </font>
</center>
</td>
</tr>
</table>
</div>
<p align="center"><b><font color="#666699">Du kan trykke på det lille billede
for at se det i stort format og udskrive eller gemme det.</font></b></p>
<p align="center"><font color="#666699">[ </font><b>
<A HREF='' onClick='self.window.parent.close();'>
<font color="#666699" size="2"> Luk vindue</font></a></b><font color="#666699">
]</font></p>
</body>
</html>
