ASP-Script für dynamische Sitemap
claudio
- asp.net
0 Stefan Falz0 claudio
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 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
Hi Stefan,
vielen Dank. Vielleicht kannst Du dir folgenden Link http://www.ubs.ch/g.html anschauen und mir einen weiteren Tip geben wie ich dies realisieren könnte.
gruss
claudio
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
claudioHallo,
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><%
Set Drive = objFileSys.GetFolder(Left(Folder, 3))
Set RootFolder = Drive.SubFoldersFor 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><%
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 ifi = 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>
"
End if
ParentFolder = objFileSys.GetParentFolderName(ParentFolder)
Set ParentFolderPath = objFileSys.GetFolder(ParentFolder)
i = i + 1
LoopDo While i > 0
%>
<%=Spacer%><%=FolderArray(i)%>
<%
Spacer = Spacer & " "
i = i - 1
LoopIf 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><%
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><%
End if
Next
»» End if
Next
%>
</td>
»» </tr>
</table>
</td>
»» </tr>
</table>
<%
End ifSet Folder = Nothing
End sub
Set objFileSys = CreateObject("Scripting.FileSystemObject")
If Request("Folder") = "" Then
»» intoFold(objFileSys.GetSpecialFolder(WindowsFolder))
»» Else
IntoFold(Request("Folder"))
End ifSet objFileSys = Nothing
%>
</body>
</html>
' ------------------------------------------------Tschau, Stefan