Ir para conteúdo

POWERED BY:

Arquivado

Este tópico foi arquivado e está fechado para novas respostas.

xanburzum

[Resolvido] Web Explorer

Por , em ASP Clássico

Recommended Posts

xanburzum    169

xanburzum
Postado

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

 

<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">Última modificaçã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>

Compartilhar este post

Link para o post
Compartilhar em outros sites
Ir para a lista de tópicos ASP Clássico
×

Informação importante

Ao usar o fórum, você concorda com nossos Termos e condições.

  Aceito