Foler system script HJÆLP!
Jeg har i tidernes morgen bakset et folder system sammen til alt mit skrammel (se: www.bergsorensen.dk/stuff)Mit store problem er at scriptet/systemet/dimsen ikke lister mapper og filer efter navn, men efter hvornår de er blevet oprettet på serveren (tror jeg da i hvertfald).
Nogen der kan fixe det så det lister efter navn/name?
Scriptet/inkluderet hele html filen:
<html>
<head>
<title>BERGSORENSEN ™ | stuff</title>
</head>
<body>
<style type="text/css">
<!--
body, td
{
background-image: url(http://www.bergsorensen.dk/billeder/tmp/bg.gif);
margin-left: 80px;
margin-top: 80px;
margin-right: 0px;
margin-bottom: 0px;
font-family: Arial, Helvetica, sans-serif;
font-size: 11px;
color: #AC7848;
font-weight: strong;
text-decoration: none;
}
td
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11px;
color: #AC7848;
font-weight: strong;
text-decoration: none;
}
a:visited
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11px;
color: #AC7848;
font-weight: strong;
text-decoration: none;
}
a:link
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11px;
color: #AC7848;
font-weight: strong;
text-decoration: none;
}
a:hover
{
font-family: Arial, Helvetica, sans-serif;
font-size: 11px;
color: #3C230F;
font-weight: strong;
text-decoration: none;
}
-->
</style>
<img src="../stuff_images/logo.gif" border="0"><br>
<%
path = replace(request.querystring("folder"),"../","")
if path = "" then
path = "./"
end if
set fs=Server.CreateObject("Scripting.FileSystemObject")
if request.querystring("folder") <> "" then
parent = split(request.querystring("folder"),"/")
for a=0 to ubound(parent)
parentcount=parentcount+1
next
Nparentcount=0
Nparent = split(request.querystring("folder"),"/")
for b=0 to ubound(Nparent)
Nparentcount=Nparentcount+1
if NOT Nparentcount=parentcount then
parentlink = parentlink & "/" & Nparent(b)
end if
next
if left(parentlink,1) = "/" then
parentlink = right(parentlink,len(parentlink)-1)
end if
%>
<strong><a href="<%=request.servervariables("script_name")%>?folder=<%=parentlink%>">
< Tilbage
</a></strong>
<br><br>
<%
end if
set f=fs.GetFolder(server.mappath(path))
for each folder in f.subfolders
foldername = folder.name
foldercount=foldercount+1
if request.querystring("folder") = "" then
%>
<strong><img src="http://www.bergsorensen.dk/billeder/tmp/folder.gif"><a href="<%=request.servervariables("script_name")%>?folder=<%=request.querystring("folder") & foldername%>">
<%=foldername%>
</a></strong>
<br><img src="http://www.bergsorensen.dk/billeder/tmp/spacer.gif" width="4" heigth="4"><br>
<%
else
%>
<strong><img src="http://www.bergsorensen.dk/billeder/tmp/folder.gif"><a href="<%=request.servervariables("script_name")%>?folder=<%=request.querystring("folder") & "/" & foldername%>">
<%=foldername%>
</a></strong>
<br><img src="http://www.bergsorensen.dk/billeder/tmp/spacer.gif" width="4" heigth="4"><br>
<%
end if
next
if foldercount <> "" then
%>
<!- break kan indsættes her -!>
<%else%>
<!- break kan indsættes her -!>
<%
end if
for each file in f.files
filename = file.name
filecount=filecount+1
if request.querystring("folder") = "" then
if NOT request.servervariables("path_translated") = server.mappath(path & filename) then
%>
<a href="<%=path & filename%>">
<%=filename%>
</a>
<br>
<%
end if
else
%>
<a href="<%=path & "/" & filename%>">
<%=filename%>
</a>
<br>
<%
end if
next
set f=nothing
set fs=nothing
if filecount <> "" then
%>
<%else%>
<br>Der er ingen filer i denne mappe!<br>
<%end if%>
<br><br>
Folder: <i>(<%=path%>)</i>
</body>
</html>
