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

Ce site au démarrage

begin process at 2012 05 27 06:20:32

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

Code

Composants

> CREATION DE FICHIER ZIP EN ASP

CREATION DE FICHIER ZIP EN ASP

Information sur la source

Note :

5,00 / 10

Catégorie :Composants Niveau :Débutant Date de création :07/06/2002 Date de mise à jour :07/06/2002 17:48:45 Vu :21 589

Auteur : vandrayn

Ecrire un message privé

Site perso

Commentaire sur cette source (6)

Ajouter un commentaire et/ou une note

Description

ce code permet de creer des fichier zip en asp

Source

<%@ Language=VBScript %>
<%
' This ASP script is a sample provided for the Xceed Zip Compression Library.
' It is called by the frmSelect.htm web page file.
' Download the component in trial version :
' http://www.xceedsoft.com/download/ZipCompL/index.htm
' Download the application :
' http://www.xceedsoft.com/cs/results.asp?id=111
Dim xZip ' Will represent an instance of the Xceed Zip object
Dim ResultCode ' Result Code from the Zip method
Dim sFilesChosen ' HTML output string
Dim sRandom ' Random number string
Dim sFilename ' Filename of self-extracting zip file to create on server
Dim sDownloadURL ' The URL where your browser will download the zip file from
Dim Introtext ' The text for the self-extracting zip file's introduction dialog
' Change these constants below for your own sever, and make
' sure the File1.txt, File2.txt and File3.txt files are placed
' in the PATH_FOR_SOURCE_FILES folder. The xcdsfx32.bin
' self-extractor binary file should also be placed in this folder.
Const PATH_FOR_SOURCE_FILES = "D:\InetPub\testwebsite\Send\"
Const PATH_FOR_ZIP_FILE = "D:\InetPub\testwebsite\Send\Zipfiles\"
Const DOWNLOAD_URL = "http://servername/Send/Zipfiles/"
' Instanciate the Xceed Zip object (the xceedzip.dll should be
' installed on the server, of course)
Set xZip = Server.CreateObject("XceedSoftware.XceedZip.4")
' If you are using the free trial version of Xceed Zip, you'll
' need to run the Xceed Zip trial version's setup program on
' the server, otherwise it will complain it is not licensed.
' If you are a registered user, uncomment the following line
' and replace the text in quotes with your license key.
' xZip.License("your license key goes here")
' Now, we tell Xceed Zip where to create the self-extracting
' zip file. For this sample, we make the zip file name include the
' client's IP address or name in. That way, if multiple users
' are using this ASP page to create zip files at the same time,
' each user has a unique zip filename to download.
sFilename = PATH_FOR_ZIP_FILE & Request.ServerVariables("REMOTE_HOST") & ".exe"
xZip.ZipFilename = sFilename
' Now lets set Xceed Zip's options to customize the self-extracting zip file
sFilesChosen = ""
if uCase(Request("chkFile1")) = "ON" then
sFilesChosen = "File1.txt "
xZip.AddFilesToProcess (PATH_FOR_SOURCE_FILES & "File1.txt")
end if
if uCase(Request("chkFile2")) = "ON" then
sFilesChosen = sFilesChosen & "File2.txt "
xZip.AddFilesToProcess (PATH_FOR_SOURCE_FILES & "File2.txt")
end if
if uCase(Request("chkFile3")) = "ON" then
sFilesChosen = sFilesChosen & "File3.txt "
xZip.AddFilesToProcess (PATH_FOR_SOURCE_FILES & "File3.txt")
end if
xZip.UseTempFile = False ' No need for a temp file for this application
xZip.PreservePaths = False ' Do not store the paths where the source files are from
xZip.SfxBinaryModule = PATH_FOR_SOURCE_FILES & "xcdsfx32.bin"
Introtext = "This self-extracting zip file contains the file(s) you selected "
Introtext = Introtext + "to download. The files are password-protected, so you "
Introtext = Introtext + "will need to enter a password. Click 'OK' to continue."
xZip.SfxMessages(xsmIntro) = Introtext
xZip.SfxStrings(xssTitle) = "Custom zip file for " + Trim(Request("txtIntro")) ' Uses name entered on the web page
xZip.SfxDefaultUnzipToFolder = Trim(Request("txtUnzipFolder")) ' The unzip folder entered on the web page
xZip.EncryptionPassword = Trim(Request("txtPassword")) ' The password entered on the web page
' Now run the command to create the self-extracting zip file
ResultCode = xZip.Zip
If ResultCode = 0 then
sDownloadPath = DOWNLOAD_URL & Request.ServerVariables("REMOTE_HOST") & ".exe"
Response.ContentType = "application/x-gzip"
Response.Redirect (sDownloadPath)
else
%>
<HTML>
<HEAD>
<TITLE>
Custom zip file creation error.
</TITLE>
</HEAD>
<BODY>
You have selected to download the following files:
<%
Response.Write(sFilesChosen)
%>
But the following error from Xceed Zip was returned:
<%
Response.Write(xZip.GetErrorDescription(xvtError ,ResultCode))
%>
</BODY>
</HTML>
<%
end if
set xZip = Nothing
%>
</BODY>
</HTML>

<%@ Language=VBScript %>

<%
	' This ASP script is a sample provided for the Xceed Zip Compression Library.
	' It is called by the frmSelect.htm web page file. 
	' Download the component in trial version : 
	' http://www.xceedsoft.com/download/ZipCompL/index.htm
	' Download the application :
	' http://www.xceedsoft.com/cs/results.asp?id=111

	Dim xZip			' Will represent an instance of the Xceed Zip object
	Dim ResultCode		' Result Code from the Zip method
	Dim sFilesChosen	' HTML output string 
	Dim sRandom			' Random number string
	Dim sFilename		' Filename of self-extracting zip file to create on server
	Dim sDownloadURL	' The URL where your browser will download the zip file from
	Dim Introtext		' The text for the self-extracting zip file's introduction dialog

	' Change these constants below for your own sever, and make
	' sure the File1.txt, File2.txt and File3.txt files are placed
	' in the PATH_FOR_SOURCE_FILES folder. The xcdsfx32.bin
	' self-extractor binary file should also be placed in this folder.

	Const PATH_FOR_SOURCE_FILES = "D:\InetPub\testwebsite\Send\"
	Const PATH_FOR_ZIP_FILE = "D:\InetPub\testwebsite\Send\Zipfiles\"
	Const DOWNLOAD_URL = "http://servername/Send/Zipfiles/"

	' Instanciate the Xceed Zip object (the xceedzip.dll should be
	' installed on the server, of course)

	Set xZip = Server.CreateObject("XceedSoftware.XceedZip.4")
	
	' If you are using the free trial version of Xceed Zip, you'll
	' need to run the Xceed Zip trial version's setup program on
	' the server, otherwise it will complain it is not licensed.
	
	' If you are a registered user, uncomment the following line
	' and replace the text in quotes with your license key.
		
	' xZip.License("your license key goes here")
		
	' Now, we tell Xceed Zip where to create the self-extracting
	' zip file.	For this sample, we make the zip file name include the
	' client's IP address or name in. That way, if multiple users
	' are using this ASP page to create zip files at the same time,
	' each user has a unique zip filename to download. 
		
	sFilename = PATH_FOR_ZIP_FILE & Request.ServerVariables("REMOTE_HOST") & ".exe"
			
	xZip.ZipFilename = sFilename
	
	' Now lets set Xceed Zip's options to customize the self-extracting zip file
		
	sFilesChosen = ""		
		
	if uCase(Request("chkFile1")) = "ON" then
		sFilesChosen = "File1.txt<BR>"
		xZip.AddFilesToProcess (PATH_FOR_SOURCE_FILES & "File1.txt")
	end if
		
	if uCase(Request("chkFile2")) = "ON" then
		sFilesChosen = sFilesChosen & "File2.txt<BR>"
		xZip.AddFilesToProcess (PATH_FOR_SOURCE_FILES & "File2.txt")
	end if

	if uCase(Request("chkFile3")) = "ON" then
		sFilesChosen = sFilesChosen & "File3.txt<BR>"
		xZip.AddFilesToProcess (PATH_FOR_SOURCE_FILES & "File3.txt")
	end if
		
	xZip.UseTempFile = False			' No need for a temp file for this application
	xZip.PreservePaths = False			' Do not store the paths where the source files are from

	xZip.SfxBinaryModule = PATH_FOR_SOURCE_FILES & "xcdsfx32.bin"

	Introtext = "This self-extracting zip file contains the file(s) you selected "
	Introtext = Introtext + "to download. The files are password-protected, so you "
	Introtext = Introtext + "will need to enter a password. Click 'OK' to continue."

	xZip.SfxMessages(xsmIntro) = Introtext

	xZip.SfxStrings(xssTitle) = "Custom zip file for " + Trim(Request("txtIntro")) ' Uses name entered on the web page
	xZip.SfxDefaultUnzipToFolder = Trim(Request("txtUnzipFolder")) ' The unzip folder entered on the web page
	xZip.EncryptionPassword = Trim(Request("txtPassword")) ' The password entered on the web page

	' Now run the command to create the self-extracting zip file
	
	ResultCode = xZip.Zip  
		
	If ResultCode = 0 then
		sDownloadPath =  DOWNLOAD_URL & Request.ServerVariables("REMOTE_HOST") & ".exe"
		Response.ContentType = "application/x-gzip"
		Response.Redirect (sDownloadPath)
	else
	
%>

<HTML>
<HEAD>
<TITLE>
Custom zip file creation error.
</TITLE>
</HEAD>

<BODY>
<STRONG>
You have selected to download the following files:
<P>
</STRONG>
<BR>
<%
		Response.Write(sFilesChosen)
%>
But the following error from Xceed Zip was returned: <P>
<%		
		Response.Write(xZip.GetErrorDescription(xvtError ,ResultCode))
%></P> 

</BODY>
</HTML>
<%
	end if	
	
	set xZip = Nothing
%>

</BODY>

</HTML>

Sources de la même categorie

CUSTOM USER CONTROL COLLECTION par ranouf

COMPACTER DU JAVASCRIPT par jesusonline

WEBCONTROL WYSIWYG POUR ASP.NET par Yxion

ANTIBOT par ghuysmans99

INCLURE UNE LIBRAIRIE par Warwick

Toutes les sources de la catégorie Composants

Commentaires et avis

Commentaire de Imax le 08/06/2002 10:43:49

Dommage qu'il s'agisse d'un composant payant !

Commentaire de Stephman le 26/06/2002 21:11:50

Ce serrait mieux avec un composant gratuits, mais bon, cela faisait longtemps que j'en cherchais un(et je ne pense pas qu'il en existe).

Commentaire de zeb13 le 13/12/2003 19:10:00

pour info et c'est gratos :
http://www.xstandard.com/page.asp?p=C9891D8A-5390-44ED-BC60-2267ED6763A7&s=D18615A1-458B-4074-BBD5-81AB02E2E042

Commentaire de olivierdel le 14/12/2003 16:15:21

merci pour ce petit lien mais le descriptif de son utilisation est un peut succin à tu un code pour l'utiliser?
merci beaucoup! :-)

Commentaire de zeb13 le 15/12/2003 10:09:27

http://www.xstandard.com/page.asp?p=128ACD87-88F8-420D-8BF1-DD8F5976C99A tu y trouveras trois exemples.

Commentaire de Jackboy le 13/07/2004 14:29:50

Les exemples sont ici http://www.xstandard.com/page.asp?p=A4372B00-8D7F-4166-977C-64E5C4E3708E&ss=7559F3C1-DAD9-48FE-A76D-D7ECB23F0DD0

Ajouter un commentaire

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