CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 05 27 06:38:57

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

FileSystem

> EXPLORATEUR ASP EN UN SEUL FICHIER SANS INSTALLATION

EXPLORATEUR ASP EN UN SEUL FICHIER SANS INSTALLATION

Information sur la source

Note :

9,67 / 10

Catégorie :FileSystem Classé sous :navigateur, explorateur, browse, fichier, filesystemobject Niveau :Débutant Date de création :24/01/2005 Vu :12 195

Auteur : informatika2001

Ecrire un message privé

Site perso

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

Description

Cliquez pour voir la capture en taille normale

Un explorateur super sympathique qui permet de se balader n'importe porte où sur le serveur et de visualiser le contenu des fichiers de celui-ci.

il utilise l'objet "filesystemobject" et il faut bien admettre que c terrible...

Vous avez juste à copier le code dans un fichier .asp et à l'exécuter...

Source

<html>
<head>
<title>..:: ExplorAsp ::..</title>
<meta http-equiv="Content-Language" content="fr">
<style>
a:active { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}
a:link { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}
a:visited { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}
a { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}
table { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}
html { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}
</style>
</head>
<body>
<%
if request("chemin")="" then
response.write "<form name=depart method=post><input type=hidden value='" & server.mappath("/") & "\' name=chemin></form>"
response.write "<script language=javascript>document.depart.submit();</script>"
end if
if request("chemin")<>"" then
'
set fso=server.createobject("scripting.filesystemobject")
'
ouvrirlecteurs()
'
ouvrirdossier(request("chemin"))
if request("nomfic")<>"" then
'
ouvrirfichier(request("chemin") & request("nomfic"))
end if
end if
%>
</body>
</html>
<%
function ouvrirdossier(chemin)
set foldpt=fso.getfolder(chemin)
set fc=foldpt.subfolders
avant=left(chemin,len(chemin)-1)
avant=left(avant,instrrev(avant,"\"))
response.write "<a href='?chemin=" & avant & "'></a>"
response.write "Chemin actuel: <font color=red>" & chemin & "</font>"
response.write "<table ><tr><td valign=top>"
response.write "<table bgcolor=""" & "000080" & """ cellPadding=""" & "1" & """ cellSpacing=""" & "0 width=""" & "440" & """>"
response.write "<tr><td background=bgmenu.gif align=center><font color=white>Dossiers (<font color=yellow>" & fc.count & "</font>)</font></Td></tr>"
response.write "<tr><td>"
response.write "<table border=0 bgcolor=""" & "FFFFFF" & """ cellPadding=""" & "0" & """ cellSpacing=""" & "0" & """ width=""" & "440" & """>"
for each f in fc
response.write "<tr><td bgcolor=#f0f0ff>"
response.write "<table><tr><td></td><td><a style='text-decoration: none' href=""" & "?chemin=" & chemin & f.name & "\" & """>" & f.name & "</a></Td></tr></table>"
response.write "</td></tr>"
next
response.write "</table>"
response.write "</td></tr>"
response.write "</table>"
response.write "</td><td valign=top>"
set fc=foldpt.files
response.write "<table border=0 bgcolor=""" & "000080" & """ cellPadding=""" & "1" & """ cellSpacing=""" & "0" & """ width=""" & "440" & """>"
response.write "<tr><td background=bgmenu.gif align=center><font color=white>Fichiers (<font color=yellow>" & fc.count & "</font>)</font></Td></tr>"
response.write "<tr><td>"
response.write "<table border=0 bgcolor=""" & "FFFFFF" & """ cellPadding=""" & "0" & """ cellSpacing=""" & "0" & """ width=""" & "440" & """>"
response.write "<tr bgcolor=#f0f0ff><td> </td><td> </Td><td>Type</Td><td>Taille</td></Tr>"
for each f in fc
response.write "<tr bgcolor=#f0f0ff><td >"
response.write "</td><td><a style='text-decoration: none' href=""" & "?chemin=" & chemin & "&nomfic=" & f.name & """>" & f.name & "</a></Td><td>" & f.type & "</Td><td align=right>"
if f.size>1073741824 then
response.write cint(f.size/1024/1024/1024) & " go"
elseif f.size> 1048576 then
response.write cint(f.size/1024/1024) & " mo"
elseif f.size>1024 then
response.write cint(f.size/1024) & " ko"
else
response.write f.size & " oc"
end if
if request("delete")="ok" then
f.Delete
end if
response.write "</td></tr>"
next
response.write "</table>"
response.write "</td></tr>"
response.write "</table>"
response.write "</td></tr></table>"
end function
function ouvrirfichier(chemin)
if fso.fileexists(chemin) then
set inf=fso.opentextfile(chemin,1,false)
response.write "<table border=0 bgcolor=000080 cellPadding=1 cellSpacing=0 width=440 style='position:absolute;top=<script language=javascript>document.write(window.width);</script>;left=10' id=contenu name=contenu>"
response.write "<tr ><td background=bgmenu.gif align=center><font color=white>Contenu du fichier <font color=yellow>" & request("nomfic") & "</font></font></Td></tr><tr><td>"
response.write "<table border=0 bgcolor=""" & "FFFFFF" & """ cellPadding=""" & "10" & """ cellSpacing=""" & "0" & """ width=""" & "440" & """>"
response.write "<tr><td bgcolor=#f0f0ff align=center><a href=javascript:quitter();><font color=red>Fermer le fichier</Font></a></td></tr><tr><td bgcolor=#c3c0ff ><font color=000080>"
do while not inF.atendofstream
rep=replace(replace(inf.readline,">"," >"),"<","< ") & "<br>"
response.write rep
loop
response.write "</font></td></tr></table>"
response.write "</td></tr></table>"
else
response.write "fichier non trouv"
end if
bouger "contenu",90
end function
sub bouger(nomobjet,arret)
response.write "<script language='javascript'>"
response.write "v=0;"
response.write "function " & nomobjet & "1() {"
response.write "if(v<" & arret & ") {"
response.write "v=v+10;"
response.write nomobjet & ".style.top=v;"
response.write "setTimeout('" & nomobjet & "1()',10)"
response.write "}"
response.write "}"
response.write nomobjet & "1()"
response.write "</script>"
end sub
sub ouvrirlecteurs()
set rs=fso.drives
response.write "<table width=70% border=0 bgcolor=000080 cellPadding=1 cellSpacing=0 width=440 >"
response.write "<tr><td background=bgmenu.gif align=center><font color=white>Lecteur (<font color=yellow>" & rs.count & "</font>)</font></Td></tr><tr><td>"
response.write "<table width=100% border=0 bgcolor=""" & "FFFFFF" & """ cellPadding=""" & "1" & """ cellSpacing=""" & "0" & """ width=""" & "440" & """>"
response.write "<tr bgcolor=#f0f0ff align=center bgcolor=#c3c0ff><td>Lecteur</Td><td>Type</Td><td>Etat</td><td>Total</td><td>Libre</Td><td>% d'occup</TD></tr>"
for each rep in rs
if rep.isready=true then
response.write "<tr align=center bgcolor=#f0f0ff><td align=left><a href=?chemin=" & rep & "\>" & rep.driveletter & " (" & rep.volumename & ")</A></td><td>"
else
response.write "<tr align=center bgcolor=#f0f0ff><td align=left>" & rep.driveletter & "</td><td>"
end if
select case rep.drivetype
case 1: response.write "disquette"
case 2: response.write "disque dur"
case 3: response.write "lecteur rseau"
case 4: response.write "lecteur cd"
end select
response.write "</Td><td>"
if rep.isready=true then
response.write "Disponible</Td><td>"
if rep.totalsize>1073741824 then
response.write cint(rep.totalsize/1024/1024/1024) & " go"
elseif rep.totalsize> 1048576 then
response.write cint(rep.totalsize/1024/1024) & " mo"
elseif rep.totalsize>1024 then
response.write cint(rep.totalsize/1024) & " ko"
else
response.write rep.totalsize & " o"
end if
response.write "</Td><td>"
if rep.availablespace>1073741824 then
response.write cint(rep.availablespace/1024/1024/1024) & " go"
elseif rep.availablespace> 1048576 then
response.write cint(rep.availablespace/1024/1024) & " mo"
elseif rep.availablespace>1024 then
response.write cint(rep.availablespace/1024) & " ko"
else
response.write rep.availablespace & " o"
end if
response.write "</Td><td>" & cint((1-(rep.availablespace/rep.totalsize))*100) & " %"
else
response.write "<font color=red>Indisponible</font></td><td>-</Td><td>-</Td><td>-"
end if
response.write "</td></Tr>"
next
response.write "</table></Td></tr></table>"
end sub
%>
<script language='javascript'>
function quitter()
{
v=-3000
contenu.style.left=v;
}
</script>

<html>
<head>
<title>..:: ExplorAsp ::..</title>
<meta http-equiv="Content-Language" content="fr">
<style>
a:active     { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}
a:link       { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}
a:visited	 { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}
a            { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}

table        { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}

html        { font-family: Arial; font-weight: bold; color=#000080; font-size:11px}


</style>

</head>
<body>

<%
if request("chemin")="" then
response.write "<form name=depart method=post><input type=hidden value='" & server.mappath("/") & "\' name=chemin></form>"
response.write "<script language=javascript>document.depart.submit();</script>"
end if
						
if request("chemin")<>"" then
	
	'<!--Utilisation de l objet filesystemobject-->
	set fso=server.createobject("scripting.filesystemobject")
	
	'<!--Appel de la fonction pour affichage des lecteurs-->
	ouvrirlecteurs()	
	
	'<!--Appel de la fonction pour ouverture de la partie dossier & fichier-->
	ouvrirdossier(request("chemin"))
	
	
	if request("nomfic")<>"" then
	
	'<!--Appel de la fonction pour affichage d'un fichier-->
	ouvrirfichier(request("chemin") & request("nomfic"))
	
	end if
end if

%>

</body>
</html>

<%
function ouvrirdossier(chemin)

		set foldpt=fso.getfolder(chemin)
		set fc=foldpt.subfolders
		avant=left(chemin,len(chemin)-1)
		avant=left(avant,instrrev(avant,"\"))

		
		response.write "<a href='?chemin=" & avant & "'></a>"
		response.write "Chemin actuel: <font color=red>" & chemin & "</font>"
		response.write "<table ><tr><td valign=top>"
		response.write "<table bgcolor=""" & "000080" & """ cellPadding=""" & "1" & """ cellSpacing=""" & "0 width=""" & "440" & """>"
		response.write "<tr><td background=bgmenu.gif align=center><font color=white>Dossiers (<font color=yellow>" & fc.count & "</font>)</font></Td></tr>"
		
		response.write "<tr><td>"
		
		response.write "<table border=0 bgcolor=""" & "FFFFFF" & """ cellPadding=""" & "0" & """ cellSpacing=""" & "0" & """ width=""" & "440" & """>"

		for each f in fc
			response.write "<tr><td bgcolor=#f0f0ff>"
			response.write "<table><tr><td></td><td><a style='text-decoration: none' href=""" & "?chemin=" & chemin  & f.name &  "\" &  """>" & f.name & "</a></Td></tr></table>"
			response.write "</td></tr>"
			
		next
			
		response.write "</table>"
		response.write "</td></tr>"
		response.write "</table>"
		response.write "</td><td valign=top>"
		set fc=foldpt.files
		
		response.write "<table border=0 bgcolor=""" & "000080" & """ cellPadding=""" & "1" & """ cellSpacing=""" & "0" & """ width=""" & "440" & """>"
		response.write "<tr><td background=bgmenu.gif align=center><font color=white>Fichiers (<font color=yellow>" & fc.count & "</font>)</font></Td></tr>"
		response.write "<tr><td>"
		response.write "<table border=0 bgcolor=""" & "FFFFFF" & """ cellPadding=""" & "0" & """ cellSpacing=""" & "0" & """ width=""" & "440" & """>"
			response.write "<tr bgcolor=#f0f0ff><td>&nbsp;</td><td>&nbsp;</Td><td>Type</Td><td>Taille</td></Tr>"

		for each f in fc
			response.write "<tr bgcolor=#f0f0ff><td >"
			response.write "</td><td><a style='text-decoration: none' href=""" & "?chemin=" & chemin & "&nomfic=" & f.name & """>" & f.name & "</a></Td><td>" & f.type & "</Td><td align=right>" 
			
			if f.size>1073741824 then
				response.write cint(f.size/1024/1024/1024) & " go"
			elseif f.size> 1048576 then
				response.write cint(f.size/1024/1024) & " mo"
			elseif f.size>1024 then
				response.write cint(f.size/1024) & " ko"
			else 
				response.write f.size & " oc"
			end if

			if request("delete")="ok" then
f.Delete
end if

			response.write "</td></tr>"
		next

		response.write "</table>"
		response.write "</td></tr>"
		response.write "</table>"
		response.write "</td></tr></table>"

end function

function ouvrirfichier(chemin)
if fso.fileexists(chemin) then
		set inf=fso.opentextfile(chemin,1,false)
		
		response.write "<table border=0 bgcolor=000080 cellPadding=1 cellSpacing=0 width=440 style='position:absolute;top=<script language=javascript>document.write(window.width);</script>;left=10' id=contenu name=contenu>"
		response.write "<tr ><td background=bgmenu.gif align=center><font color=white>Contenu du fichier <font color=yellow>" & request("nomfic") & "</font></font></Td></tr><tr><td>"
		response.write "<table border=0 bgcolor=""" & "FFFFFF" & """ cellPadding=""" & "10" & """ cellSpacing=""" & "0" & """ width=""" & "440" & """>"
		response.write "<tr><td bgcolor=#f0f0ff align=center><a href=javascript:quitter();><font color=red>Fermer le fichier</Font></a></td></tr><tr><td bgcolor=#c3c0ff ><font color=000080>"

		do while not inF.atendofstream
			rep=replace(replace(inf.readline,">"," >"),"<","< ") & "<br>"
			response.write rep
		loop
	
		response.write "</font></td></tr></table>"
		response.write "</td></tr></table>"
else
		response.write "fichier non trouv"
end if

		bouger "contenu",90
end function

sub bouger(nomobjet,arret)

response.write "<script language='javascript'>"
response.write "v=0;"
response.write "function " & nomobjet & "1() {"
response.write "if(v<" & arret & ") {"
response.write "v=v+10;"
response.write nomobjet & ".style.top=v;"
response.write "setTimeout('" & nomobjet & "1()',10)"
response.write "}"
response.write "}"
response.write nomobjet & "1()"
response.write "</script>"
end sub

sub ouvrirlecteurs()
	set rs=fso.drives
	response.write "<table width=70% border=0 bgcolor=000080 cellPadding=1 cellSpacing=0 width=440 >"
	response.write "<tr><td background=bgmenu.gif align=center><font color=white>Lecteur (<font color=yellow>" & rs.count & "</font>)</font></Td></tr><tr><td>"
	response.write "<table width=100% border=0 bgcolor=""" & "FFFFFF" & """ cellPadding=""" & "1" & """ cellSpacing=""" & "0" & """ width=""" & "440" & """>"
	response.write "<tr bgcolor=#f0f0ff align=center bgcolor=#c3c0ff><td>Lecteur</Td><td>Type</Td><td>Etat</td><td>Total</td><td>Libre</Td><td>% d'occup</TD></tr>"		
	
	for each rep in rs
		if rep.isready=true then
			response.write "<tr align=center bgcolor=#f0f0ff><td align=left><a href=?chemin=" & rep & "\>" & rep.driveletter & " (" & rep.volumename & ")</A></td><td>"
		else
			response.write "<tr align=center bgcolor=#f0f0ff><td align=left>" & rep.driveletter & "</td><td>"
		end if
		
		select case rep.drivetype
			case 1: response.write "disquette"
			case 2: response.write "disque dur"
			case 3: response.write "lecteur rseau"
			case 4: response.write "lecteur cd"
		end select
		
		response.write "</Td><td>"
		
		if rep.isready=true then
			response.write "Disponible</Td><td>"
			if rep.totalsize>1073741824 then
				response.write cint(rep.totalsize/1024/1024/1024) & " go"
			elseif rep.totalsize> 1048576 then
				response.write cint(rep.totalsize/1024/1024) & " mo"
			elseif rep.totalsize>1024 then
				response.write cint(rep.totalsize/1024) & " ko"
			else 
				response.write rep.totalsize & " o"
			end if
			
			response.write "</Td><td>"
			
			if rep.availablespace>1073741824 then
				response.write cint(rep.availablespace/1024/1024/1024) & " go"
			elseif rep.availablespace> 1048576 then
				response.write cint(rep.availablespace/1024/1024) & " mo"
			elseif rep.availablespace>1024 then
				response.write cint(rep.availablespace/1024) & " ko"
			else 
				response.write rep.availablespace & " o"
			end if

			response.write "</Td><td>" & cint((1-(rep.availablespace/rep.totalsize))*100) & " %"
		else
			response.write "<font color=red>Indisponible</font></td><td>-</Td><td>-</Td><td>-"
		end if
	
		response.write "</td></Tr>"
	next
	
	response.write "</table></Td></tr></table>"
	
end sub 
%>

<script language='javascript'>

function quitter()
{
	v=-3000
	contenu.style.left=v;
}



</script>

Conclusion

Enjoy-it !!!

Sources de la même categorie

LIST DIRECTORY WITH SPECIFIED EXTENSION & LINK par Syruis

LISTING ET SUPPRESSION DE FICHIER par Jackboy

DÉCOUPER UNE CHAINE DE CARACTÈRE par bambina100

ASP.NET - CHARGER TOUS LES SOUS-RÉPERTOIRES DANS UN DATATABL... par fabrice69

LISTER UN REPERTOIRE, VISUALISER UN FICHIER (MODE TXT), EFFA... par sdh

Toutes les sources de la catégorie FileSystem

Sources en rapport avec celle ci

ASP.NET - SAVOIR QUAND L'UTILISATEUR FERME LA FENETRE VIA CA... par werdDomain

[VB 8][.NET 2][ATLAS]EXPLORATEUR (WINDOWS LIKE) DE FICHIER S... par FREMYCOMPANY

UN PETIT EXPLORATEUR DE FICHIERS + SUPPRESSION DE FICHIERS par Yoyo2B

LISTING ET SUPPRESSION DE FICHIER par Jackboy

NAVIGUER DANS LES DOSSIERS par jcq

Commentaires et avis

Commentaire de roro06 le 25/01/2005 10:29:16

Pas mal pas mal ...
Par contre, juste une modif : pour la fonction quitter, il faut écrire function ( f minuscule)

Commentaire de Jackboy le 25/01/2005 15:28:33

yes sa enleve les erreurs javascript !!! ces nickel cette source... juste un petit qqchose, peut etre faire une gestion des fichiers image, afficher ceux-ci et non afficher le code derriere, du genre : "¨'% héhé

Commentaire de informatika2001 le 26/02/2005 20:51:41

Merci pour vos commentaires c sympa...
Une V2 sortira bientot avec prise en compte des "headers" pour afficher les images.

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Cookies oh! Cookies...... [ par Guillaume ] Bonjour, je suis en train d'aprendre comment ecrire des cookies en asp. (response.cookies...). Mon pb est que ce cookies n'est ni ecrit dans le fichie téléchargement pour qu'il soit enrigistré et non affiché dans le navigateur [ par ThePit ] Je veux qu le lien (fichier ) soit téléchargé au lieu de l'afficher dans le navigateur Par exemple pour un fichier gifquel code pru ton mettre dans la XMLHTTP et FileSystemObject [ par sbertrand ] Bonjour, je veux recupere le contenu d'un fichier texte sur un serveur distant et sauvegarder le texte dans un fichier. Avec le FileSystemObject je n' ouvrir fichier dans une fenetre du navigateur [ par damiendu56 ] bonjour a tous, je souhaiterai savoir si quelqu'un connaît le code pour une application web csharp permettant d'ouvrir un fichier pdf dans une FileSystemObject sous IIS WinXP.PRO [ par ranouf ] Set Fichier = server.CreateObject("Scripting.FileSystemObject")if Fichier.FileExists(strAdresse) then response.Write(strAdresse & " existe <br> Import d XML ds une Base de donnee ( SQL server) [ par dieboldfr ] Bonjour,Voila j aimerai updater une database a l'aide d'un fichier xml. Grosomodo., Un utilisateur recupere un fichier XML des data de la base de don Impossible de verrouiller le fichier [ par ErB ] j'obtiens cette erreur >>>> System.Data.OleDb.OleDbException: Impossible de verrouiller le fichierchez un clientcette application asp.net load d'un fichier XML dans une base de donnee (SQL serveur) [ par dieboldfr ] Bonjour,J aurais voulu savoir si quelqu'un avait deja travailler sur un probleme similaire. Grosomodo ce que je voudrais c'est genere un fichier XML création de comptes sur un fichier txt via page web asp [ par franck380 ] Bonjour à tous,Ma question est assez complexe mais c'est pas obligé de répondre à tout ;-), ça peut-etre seulement une partie :-D.Bon je voudrais que composant mysmartupload : err "Subscript out of range" [ par did_28 ] Bonjour et merci à l'avance de votre aideJ'ai (a priori) installé le composant mysmartupload pour télécharger des photos sur mon site en asp.net, mais

Nos sponsors

Derniers Blogs

IMAGINE CUP 2012, MAKE A SIGN EN FINALE par junarnoalg

KINECT 1.5 IS OUT ! par Vko

LES ACTUALITéS DE LA SEMAINE SUR C2I.FR (14 MAI - 20 MAI) par richardc

REACTIVE EXTENSIONS : CONSOMMER DES SERVICES AVEC RX PARTIE 3, LES PIèGES à éVITER par Groc

SHAREPOINT BLOG SITE, PROBLèME D'ARCHIVES par junarnoalg

Forum

RE : GRIDVIEW CHECKBOX par jacksparoow

GESTION DE BIBLIOTHèQUE par tdiniss

GRIDVIEW CHECKBOX par invent001

OUTIL MYSQL par nobla

AFFICHAGE D'IMAGES OU ZONE COULEUR SUR UN PLAN par yok28

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Realisation d-une version 2 d-un site e-commerce existant sous prestashop-REPUBLICATION
Budget : 5 000€
Recherche Infogerance Serveur Debian Linux
Budget : 1 800€
Creation d-un site vitrine avec MagentO
Budget : 2 000€

Logiciels

sDEVIS-FACTURES vlPRO (8.1.0.3)
SDEVIS-FACTURES VLPRO (8.1.0.3)

sDEVIS-FACTURES vlPRO a été mis au point pour les particuliers, créateurs, entrepreneurs, artisa...

Cliquez pour télécharger sDEVIS-FACTURES vlPRO
974 Application Server (12.2.4.6)
974 APPLICATION SERVER (12.2.4.6)

Développez de puissantes applications dans un environnement de 'cloud computing', clusterisé, séc...

Cliquez pour télécharger 974 Application Server
vPicture (1.4.2.1)
VPICTURE (1.4.2.1)

Avec vPicture, hébergez vos images facilement et rapidement. vPicture est un utilitaire simple, ...

Cliquez pour télécharger vPicture
Easy-Planning (2.2.1.6)
EASY-PLANNING (2.2.1.6)

Easy-Planning permet de créer des plannings sous la représentation de diagrammes et est adapté au...

Cliquez pour télécharger Easy-Planning
COM-BACKUP (2.0)
COM-BACKUP (2.0)

COM-BACKUP est un logiciel de sauvegarde qui permet de planifier les sauvegardes de vos dossiers ...

Cliquez pour télécharger COM-BACKUP