12-06-2012، 11:59 AM
ایجاد نقشه از یک وب سایت یا همان
Creating sitemap of a website
سورس کد :
Creating sitemap of a website
سورس کد :
کد:
Creating sitemap of a website<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.IO" %>
<script runat="server">
Sub Page_Load(Source as Object, E as EventArgs) getDir(Server.MapPath("."))
end subSub getDir(strDir)Dim subdirectoryEntries As String() = Directory.GetDirectories(strDir)If Directory.Exists(strDir) Then
TryDim subdirectory As String
For Each subdirectory In subdirectoryEntries
rstText.Text += subdirectory & "<br>"
listFiles(subdirectory)
getDir(subdirectory)
Next subdirectory
Catch ex As Exception
strMsg.Text = "Error : " & ex.toString()
End Try
end if
end sub
Sub listFiles(strDir)
tryDim fileEntries As String() = Directory.GetFiles(strDir)Dim fileName As String
For Each fileName In fileEntries
rstFiles.text += fileName & "<br>"Next fileName
Catch ex As Exception
strMsg.Text = "Error : " & ex.toString()
End Tryend sub
</script>
<html><head><title>Site Map</title></head><body><asp:label id="rstText" runat="server" Font-Names="Verdana" Font-Size="12px"/>
<p>
<asp:label id="rstFiles" runat="server" Font-Names="Verdana" Font-Size="12px"/>
<p>
<asp:label id="strMsg" runat="server" Font-Names="Verdana" Font-Size="12px"/> </body></html>