Den samler alle filer sætter dem op på række og laver et link til dem... godt nok?
<%
\'********************************************************
\'* *
\'* LOCALHOST UNDERMAPPESCRIPT *
\'* -------------------------- *
\'* *
\'* Jakob Lund Kr@rup.dk - 4. juni 2000 *
\'* *
\'********************************************************
\'* *
\'* ANVENDELSE: *
\'* Letter processen med at komme fra localhost *
\'* mappen til sine projektmapper. *
\'* *
\'********************************************************
\'* *
\'* FUNKTION: *
\'* Finder alle undermapper i localhost mappen *
\'* og præsenterer dem som links i en HTML side. *
\'* *
\'********************************************************
\'Vi opretter et FileSystemObject med navnet \"fso\"
Set fso = CreateObject(\"Scripting.FileSystemObject\")
\'Vi finder stien til det nuværende bibliotek
\'og gemmer det i variablen \"sti\"
sti=Server.mappath(\".\")
\'Vi anvender FileSystemObjectet \"fso\"
\'til at lægge biblioteket i objektet \"folder\"
Set folder = fso.GetFolder(sti)
\'Vi gemmer alle underbibliotekerne i objektet \"foldercollection\"
Set foldercollection = folder.SubFolders%>
<HTML>
<HEAD>
<TITLE><%=sti%></TITLE>
<STYLE TYPE=\"TEXT/CSS\">
BODY{ font-family:verdana,arial,sans-serif;
font-size:12px;
color:black}
A { color:green;
font-size:12px;
font-weight:bold;
text-decoration:none}
A:hover { color:darkorange;
text-decoration:underline}
TABLE { font-size:12px}
H1 { font-size:20px;
font-weight:bold}
</STYLE>
<SCRIPT LANGUAGE=\"JAVASCRIPT\">
function highlight (){
/* denne funktion finder ud af hvem der kaldte den
derefter laver den baggrundsfarven på rækken om */
// Vi lægger det element der har kaldt funktionen i variablen \"kalder\"
kalder = window.event.srcElement;
//og sætter elementets styles baggrund til grå
kalder.style.background = \"#F0F0F0\";
}
function normalize(){
/* denne funktion finder ud af hvem der kaldte den
derefter laver den baggrundsfarven på rækken tilbage til normal */
// Vi lægger det element der har kaldt funktionen i variablen \"kalder\"
kalder = window.event.srcElement;
//og sætter elementets styles baggrund til hvid
kalder.style.background =\"#FFFFFF\";
}
</SCRIPT>
</HEAD>
<BODY>
<CENTER><H1><%=Sti%></H1></CENTER>
<TABLE BORDER=\"0\" ALIGN=\"CENTER\" CELPADDING=\"2\" CELLSPACING=\"1\" width=\"500\"><%
\'For alle mapper i denne mappe
For Each foldername in foldercollection
\'Så viser vi alle de mappenavne der ikke begynder med underscore \"_\"
\'(for at fjerne alle systemmapperne fra oversigten)
if left(foldername.name, 1) <> \"_\" then
Response.Write(\"<TR><TD OnMouseOver=\'java script:highlight()\' OnMouseOut=\'java script:normalize()\' ALIGN=\'CENTER\'><A HREF=\'\" + foldername.name + \"\'>\" + foldername.name + \"/</A></TD></TR>\"+chr(13))
end if
Next
\'Vi sletter de tre objekter igen
set fso = nothing
set folder = nothing
Set foldercollection = nothing
%>
</TABLE>
</BODY>
</HTML>
Ny bruger
Nybegynder
Opret
Preview
