claudio: ASP-Script für dynamische Sitemap

Beitrag lesen

SELF-Forum

ASP-Script für dynamische Sitemap

claudio
– Informationen zu den Bewertungsregeln

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
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>

<%

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>

<%
  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>
"
    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>

<%
    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 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

Beitrag melden
–
Informationen zu den Bewertungsregeln