nicht angemeldet
Hallo Leute,
kennt jemand von Euch ein ASP-Script mit dem ich die ganze Filestruktur einer Website durchsuchen kann und das mir daraus dynamisch eine Sitemap erzeugen tut?
D.h kommt ein neues Unterverzeichnis in die Filestruktur hinzu, soll dies zur Luafzeit auch angezeigt werden.Danke.
Gruss
claudio
Hallo,
unter http://localhost/iishelp/pws/misc/default.asp findest Du auch ein Beispiel für Deine Frage, vorausgesetzt, Du hast den IIS oder PWS installiert.
(Zweig: VBScript_Referenz)
Ein Beispiel nachstehend (allerdíngs noch nicht ganz ausgereift)
' ------------------------------------------------
<%
Response.Buffer = True
DIM Spacer
Spacer=""
%>
<html>
<head>
<title>ASP - Datenbankkurs (Verzeichnisliste)</title>
</head>
<body leftmargin="0" topmargin="0" bgcolor="white">
<%
PRIVATE sub intoFold(FirstPath)
' --- Folder-Objekt instanzieren
Set Folder = objFileSys.GetFolder(FirstPath)
' --- Nur weitermachen wenn kein Fehler aufgetreten ist
If Err <> 0 Then
Set Folder = Nothing
Set Folder = objFileSys.GetSpecialFolder(WindowsFolder)
End if
If Left(Folder.Name, 1) <> "_" Then
%>
<table width="100%" border="1" cellspacing="0">
<tr>
<td>
<table width="100%" cellspacing="0" border="0">
<tr>
<td bgcolor="#EEEEEE"><%=Font%><strong>Verzeichnisliste Laufwerk <%=Left(Folder, 3)%></strong></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" height="100%" border="0" cellspacing="0">
<tr>
<td valign="top" width="35%" nowrap>
<table width="100%" height="100%" border="0" cellspacing="0">
<tr>
<td valign="top" width="100%" nowrap><%=Font%>
<img align="absmiddle" src="../images/drive.gif" border="0" WIDTH="16" HEIGHT="16"> <a href="v_verwaltung_folders.asp?Folder=<%=Folder.Drive.Path%>"><%=Folder.Drive & "\ " & Folder.Drive.VolumeName%></a><br>
<%
Set Drive = objFileSys.GetFolder(Left(Folder, 3))
Set RootFolder = Drive.SubFolders
For Each RootFolderPath in RootFolder
If Len(RootFolderPath.Path) < 10 Then
CompareLength = Len(RootFolderPath.Path)
Else
CompareLength = 10
End if
If Left(RootFolderPath.Path, CompareLength) <> Left(Folder.Path, CompareLength) And Mid(RootFolderPath.Path, CompareLength + 1, 1) <> "." Then
%>
<img align="absmiddle" src="../images/clsdfold.gif" border="0" WIDTH="16" HEIGHT="16"> <a href="v_verwaltung_folders.asp?Folder=<%=RootFolderPath.Path%>"><%=RootFolderPath.Name%></a><br>
<%
Else
DIM FolderArray(10)
' Response.Write Folder.Path
If Len(Folder.Path) > 3 Then
ParentFolder = objFileSys.GetParentFolderName(Folder.Path)
Set ParentFolderPath = objFileSys.GetFolder(ParentFolder)
Else
ParentFolder = ""
End if
i = 1
Do While Len(ParentFolder) > 3
If Len(ParentFolder) > 3 Then
FolderArray(i) = "<img align=""absmiddle"" src=""../images/openfold.gif"" border=""0"" WIDTH=""16"" HEIGHT=""16""> <a href=""v_verwaltung_folders.asp?Folder=" & ParentFolder & """>" & ParentFolderPath.Name & "</a><br>"
End if
ParentFolder = objFileSys.GetParentFolderName(ParentFolder)
Set ParentFolderPath = objFileSys.GetFolder(ParentFolder)
i = i + 1
Loop
Do While i > 0
%>
<%=Spacer%><%=FolderArray(i)%>
<%
Spacer = Spacer & " "
i = i - 1
Loop
If Folder.Name <> "" Then
%>
<%=Spacer%><img align="absmiddle" src="../images/openfold.gif" border="0" WIDTH="16" HEIGHT="16"> <a href="v_verwaltung_folders.asp?Folder=<%=Folder.Path%>"><%=Folder.Name%></a><br>
<%
Spacer = Spacer & " "
End if
Set FolderCol = Folder.SubFolders
For Each SubFolder in FolderCol
If Left(SubFolder.Name, 1) <> "_" Then
%>
<%=Spacer%><img align="absmiddle" src="../images/clsdfold.gif" border="0" WIDTH="16" HEIGHT="16"> <a href="v_verwaltung_folders.asp?Folder=<%=SubFolder.Path%>"><%=SubFolder.Name%></a><br>
<%
End if
Next
End if
Next
%>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
End if
Set Folder = Nothing
End sub
Set objFileSys = CreateObject("Scripting.FileSystemObject")
If Request("Folder") = "" Then
intoFold(objFileSys.GetSpecialFolder(WindowsFolder))
Else
IntoFold(Request("Folder"))
End if
Set objFileSys = Nothing
%>
</body>
</html>
' ------------------------------------------------
Tschau, Stefan