..:: MX Studio Fóruns ::..: Web Explorer - ..:: MX Studio Fóruns ::..

Jump to content

Publicidade

Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Web Explorer

#1 User is online   xanburzum 

  • Group: Administrador
  • Posts: 2383
  • Joined: 04-November 08

Posted 27 December 2009 - 04:41 PM

Web Explorer ,gerenciamento de arquivos , navegar através de seus servidores web. Todos os arquivos de seu sistema de arquivos, documentos, arquivos e pastas, aplicações, etc, são exibidos em uma janela com o tamanho do arquivo, a data da última modificação, a unidade de nomes, etc, o principal destaque do programa é sua interface

CÓDIGO
<html>
<head>
<title>Directory</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" Background="Sandston.gif">

<%

Dim oFSO
Dim oFileItem
Dim oFolder
Dim oSubFolder
Dim oDrive
Dim CurrentPath

Set oFSO = CreateObject("Scripting.FileSystemObject")

CurrentPath = Request("Path")

If CurrentPath = "" Then CurrentPath = "C:\"

Set oFolder = oFSO.GetFolder(CurrentPath)
Set oFolderContents = oFolder.Files
%>

<FORM ACTION="default.asp" METHOD="Get">

<CENTER>
<TABLE  cellpadding=1 border=3>
    <TR>

        <TD align="Center" colspan="2">
            <Font Face="Verdana" SIZE ="5"><B>
                <IMG Name=Logo src="AniFloppy.gif">
                Caminho atual: <%= CurrentPath%></B>
                <IMG Name=Logo src="AniFloppy.gif">
            </FONT>
        </TD>
    </TR>

    <TR>
        <TD valign=top>
            <TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF">
                <TR align=Center BorderColor="#808080" BGColor="D3D3D3">
                    <TH colspan=2 align=Center>Drives</TH>
                </TR>
                <%
                For each oDrive in oFSO.Drives
                %>
                <TR BorderColor="#FFFFFF">
                    <TD align=right>

                        <%Select Case oDrive.DriveType %>

                        <%Case 1    'Removable %>
                            <IMG Name=<%=oDrive.DriveLetter%> src="RemovableDrive.gif">
                        <%Case 2    'HardDrive %>
                            <IMG Name=<%=oDrive.DriveLetter%> src="HardDrive.gif">
                        <%Case 3    'Newtork %>
                            <IMG Name=<%=oDrive.DriveLetter%> src="NetworkDrive.gif">
                        <%Case 4    'CD %>
                            <IMG Name=<%=oDrive.DriveLetter%> src="CDDrive.gif">
                        <%End Select %>

                    </TD>

                    <TD align=left>
                        <Font Face="Verdana" SIZE ="2"><B>
                            <A HREF=default.asp?Path=<%=oDrive.DriveLetter & ":\" %>&Drive=<%=oDrive.DriveLetter & ":\"%>>
                            <%= "(" & oDrive.DriveLetter & ":)"%></A></B>
                        </FONT>
                    </TD>

                    <%
                    Next
                    %>
                </TR>
            </TABLE>
        </TD>
        <TD valign=top>
            <TABLE cellpadding=2 Border=2 BorderColor="#FFFFFF">
                <TR align=center BorderColor="#808080" BGColor="D3D3D3">

                    <TH align=left colspan=2 border=1>Nome</TH>
                    <TH align=left border=1>Tipo</TH>
                    <TH border=1><span id="result_box2"><span title="File Size">Tamanho do Arquivo</span></span></TH>
                    <TH border=1><span id="result_box"><span title="Last Modified">&Uacute;ltima modifica&ccedil;&atilde;o</span></span></TH>
              </TR>
                <%
                If Not oFolder.IsRootFolder Then
                %>
                    <TD align=right>
                        <IMG Name="Arrow" src="Arrow.gif">
                    </TD>
                    <TD align=left>

                        <FONT Face="Verdana" SIZE ="2" Color="Blue"><B>
                            <A HREF=default.asp?Path=<%= Replace(oFolder.ParentFolder.Path," ","+") %>>
                            ...</A></B>
                        </FONT>
                    </TD>
                <%
                End If


                For Each oSubFolder in oFolder.SubFolders
                %>
                <TR BorderColor="#FFFFFF" >
                    <TD align=right>
                        <IMG Name="Folder" src="Folder.gif">
                    </TD>
                    <TD align=left>

                        <FONT Face="Verdana" SIZE ="2" Color="Blue"><B>
                            <A HREF=default.asp?Path=<%= Replace(oSubFolder.Path," ","+") %>>
                            <%= oSubFolder.Name %></A></B>
                        </FONT>
                    </TD>
                    <TD align=left>
                        <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen">File Folder</FONT>
                    </TD>
                    <TD>
                    </TD>
                    <TD align=left>
                        <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oSubFolder.DateLastModified %></FONT>
                    </TD>
                </TR>
                <%
                Next

                For Each oFileItem in oFolder.Files
                %>
                <TR BorderColor="#FFFFFF">
                    <TD align=right>
                        <IMG Name="File" src="Files.gif">
                    </TD>
                    <TD align=left>
                        <FONT Face="Verdana" SIZE ="2" COLOR="Blue"><%= oFileItem.Name %></FONT>
                    </TD>
                    <TD align=left>
                        <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Type%></FONT>
                    </TD>
                    <TD align=right>
                        <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.Size %></FONT>
                    </TD>
                    <TD align=left>
                        <FONT Face="Tahoma" SIZE ="2" COLOR="DarkGreen"><%= oFileItem.DateLastModified %></FONT>
                    </TD>
                </TR>
            <%
            Next
            %>
            </TABLE>
        </TD>

    </TR>
</TABLE>
</CENTER>
</FORM>
</body>
</html>

0

Share this topic:


Page 1 of 1
  • You cannot start a new topic
  • You cannot reply to this topic

Similar Topics Collapse

  Topic Forum Started By Stats Last Post Info
New Replies Anunciar, a boa e velha estratégia ainda vale
materia web insider 		Publicidade e Propaganda Tygra 
  • 0 Replies
  • 538 Views
New Replies WEB DESIGN E WEB DESIGNER DESIGN em GERAL Tygra 
  • 1 Reply
  • 691 Views
New Replies Anúncio de Vagas (Fortaleza/CE)
Dev. Server/Client Side & WebWriter 		Mercado / Vagas Thony Conde 
  • 0 Replies
  • 524 Views
New Replies McCain corteja hispânicos e lança website em espanhol Notícias Notícias 
  • 0 Replies
  • 410 Views
New Replies Estudo: sites e TV na web substituem telefone e televisão Notícias Notícias 
  • 0 Replies
  • 366 Views
New Replies Web TV
tenha sua propria TV ONLINE 		Mercado / Vagas Kurtdragon 
  • 0 Replies
  • 3144 Views
New Replies Novo artigo
Termos na web 		Usabilidade danieldpaola 
  • 0 Replies
  • 2482 Views
New Replies Ícone da web no Japão pega 30 meses de cadeia Notícias Notícias 
  • 0 Replies
  • 425 Views

Publicidade

2 User(s) are reading this topic
0 membro(s), 2 visitante(s) e 0 membros anônimo(s)