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

Ce site au démarrage

begin process at 2012 02 08 19:45:24

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

ASP - INCLUDES DYNAMIQUES

Information sur la source

Note :

8,75 / 10

Catégorie :Divers Classé sous :includes, dynamiques, fichier, execute, html Niveau :Débutant Date de création :14/09/2000 Date de mise à jour :30/10/2003 19:12:33 Vu / téléchargé :10 459 / 313

Auteur : rcolas

Ecrire un message privé

Site perso

Commentaire sur cette source (10)

Ajouter un commentaire et/ou une note

Description

Permet d'inclure n'importe quel fichier de façon dynmique dans une page ASP. Ce qui ne peut pas être fait avec #include. Merci à Pierre de sites-internet.net de m'avoir mis sur la voie! ;-)

Source

<%
' Checks weither a file exists on the server
' receive relative path to the file + file name
' ex : existFic("images/myImage.gif")
' returns false if file does not exists
' true if file exists or is URL
function existFic(nom)
dim existFic_tmp
' if is URL then say it exists
if lcase(left(nom,7))="http://" then
existFic_tmp = true
else
if nom="" OR isNull(nom) then
existFic_tmp = false
else
dim oFile, f
set oFile = server.createObject("Scripting.FileSystemObject")
If (oFile.FileExists(server.mapPath(nom))) then
existFic_tmp = true
else
existFic_tmp = false
end i
end if
end if
existFic = existFic_tmp
end function
' include dynamique
' can include any text based page
' taking nothing but inside <BODY></BODY> if HTML page
' I take the option that you can't have
' "<HTML>,<HEAD>,</HEAD>,</HTML>" tags without the <body> tag
function incFile(filPath)
dim fichier
fichier = "page.asp"
if existFic(fichier) then
dim fso,fic,fn, contenu, debut, fin
fic=server.mappath(fichier)
set fso=server.createObject("scripting.filesystemObject")
set fn = fso.opentextfile(fic)
contenu = fn.readAll
'takes all after "<BODY>"
debut = inStr(UCase(contenu),"<BODY>")
if debut>0 then
contenu = mid(contenu , debut + 6 , len(contenu) - debut - 1 )
end if
'takes all before "</BODY>"
fin = inStr(UCase(contenu),"</BODY>")
if fin>0 then
contenu = mid(contenu , 1 , fin - 1 )
end if
fn.close
set fso=nothing
incFile = contenu
end if
end function
%>

<%
' Checks weither a file exists on the server
' receive relative path to the file + file name
' ex : existFic("images/myImage.gif")
' returns false if file does not exists
' true if file exists or is URL
function existFic(nom)
dim existFic_tmp
' if is URL then say it exists
if lcase(left(nom,7))="http://" then
    existFic_tmp = true
else
    if nom="" OR isNull(nom) then
        existFic_tmp = false
    else
        dim oFile, f
        set oFile = server.createObject("Scripting.FileSystemObject")
        If (oFile.FileExists(server.mapPath(nom))) then
            existFic_tmp = true
        else
            existFic_tmp = false
        end i
    end if
end if
existFic = existFic_tmp
end function


' include dynamique
' can include any text based page
' taking nothing but inside <BODY></BODY> if HTML page
' I take the option that you can't have
' "<HTML>,<HEAD>,</HEAD>,</HTML>" tags without the <body> tag
function incFile(filPath)
dim fichier
fichier = "page.asp"
if existFic(fichier) then
    dim fso,fic,fn, contenu, debut, fin
    fic=server.mappath(fichier)
    set fso=server.createObject("scripting.filesystemObject")
    set fn = fso.opentextfile(fic)
    contenu = fn.readAll
    'takes all after "<BODY>"
    debut = inStr(UCase(contenu),"<BODY>")
    if debut>0 then
        contenu = mid(contenu , debut + 6 , len(contenu) - debut - 1 )
    end if
    'takes all before "</BODY>"
    fin = inStr(UCase(contenu),"</BODY>")
    if fin>0 then
        contenu = mid(contenu , 1 , fin - 1 )
    end if
    fn.close
    set fso=nothing
    incFile = contenu
end if
end function
%>

Conclusion

ca vous plait?
n'hesitez pas à le dire! ;-)
r.colas@bigfoot.com

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

exemple_include.asp 2 739 octets
template.tpl907 octets

Télécharger le zip

Sources du même auteur

ASP - VOIR TABLES SUR BD ACCESS, SQL, ORACLE

CONVERTIR UNCHAMP PASSÉ EN URL EN FORMAT STRING

AJOUTE UN ZÉRO (DIT NON-SIGNIFICATIF) DEVANT UN NOMBRE &LT;1...

AJOUTER UN S À UNE CHAINE EN FCT D'UN NOMBRE

TROUVER UNE CHAINE ET LA REMPLACER

Toutes les sources de rcolas

Sources de la même categorie

OBJETS IMBRIQUÉES EN TABLEAU (EN VBSCRIPT OU ASP) par internetdev

GESTION DES SKIN par youdream

UTILISATION DE FTP.EXE DE WINDOWS EN ASP par Nicolas_kojack

FONCTION SIMPLE POUR ALTERNER LES COULEURS DES LIGNES D'UN T... par pakito_77

COMMENT PASSER UN PARAMÈTRE C# À FLASH ? par zigxag

Toutes les sources de la catégorie Divers

Sources en rapport avec celle ci

CHERCHER ET REMPLACER UN MOT DANS UN FICHIER TEXTE par roro59650

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

ENVOI (SAUVEGARDE) D'UN FICHIER BINAIRE SUR UN SITE DISTANT ... par Chrigou

RÉCUPÉRER TOUS LES CHAMPS D'UN FICHIER TEXTE OU CSV par Sardonnen

ENVOYER UN NOUVEAU FICHIER DANS UN REPERTOIRE ET SAUVEGARDER... par raoulator

Commentaires et avis

Commentaire de ttrkc le 18/06/2003 17:45:38

si le tag body contient des attributs... c'est foutu.
Il faut chercher <body, puis le > qui suit

Commentaire de rcolas le 18/06/2003 19:14:32

effectivement,  voici le code modifié :
    ...
    'takes all after "<BODY>"
    debut = InStr(UCase(contenu),"<BODY")
    debut = inStr(debut,contenu,">")
    If debut>0 Then
    ...

Commentaire de Fabio972 le 22/06/2003 17:29:52

Peut t'on inclure un fihchier qui contient du code ASP via cette fonction ?

Commentaire de rcolas le 22/06/2003 22:30:15

avec cette fonction, non.

si tu as IIS5+, tu peux passer par server.execute "page.asp?val1=123&val2=abc" par exemple

Commentaire de Fabio972 le 23/06/2003 00:40:12

AIE, c'est bien ce qu'il me semblait. C'est bien dommage.

Néanmoins, joli code qui fonctionne bien (pour peu qu'il n'y ai pas de code ;-).

Commentaire de rcolas le 23/06/2003 07:10:10

merci :-)

Commentaire de guidal le 31/07/2003 07:53:53

Ca reste une ouverture de fichier et un response.write du contenu ... Rien de bien compliqué ...

Pour les vraies inclusions dynamiques (c'est à dire inclure une page qui contient du code ASP) ASP en est incapable (du fait du mode de fonctionnement du moteur ASP) ...

C'est une des nombreuses raisons pour lesquelles PHP sera toujours mieux ...

Commentaire de SBSzazou le 04/09/2003 14:18:14

C pas Mal, mais cela reste limité : cette fonction ne peut être pratique que lorsque ton fichier ne contient que du html, donc tu ne peux pas utiliser des variables asp dedans (<%=variable%>), ça reste la seule différence.

Commentaire de cbastien le 30/09/2003 11:51:15

oui mais comment marche ce code ?
svp, merci.

Commentaire de francky60 le 30/10/2003 09:11:49

J'ai pas tout compris : besoin d'explications.
Si le fichier que je veux inclure s'appelle par exemple :"novembre.asp"
et que je veux placer cet include au beau milieu de ma page (donc entre <body> et </body>, comment est ce que j'appelle ta fonction.
merci d'avance

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

generer fichiers HTML [ par maya ] J'aimerais générer un fichier HTML à partir d'1 page asp...Jusqu'ici pas trop de gros soucis , si ce n'est que j'aimrais que ce fichier porte le nom d generer fichiers HTML [ par maya ] J'aimerais générer un fichier HTML à partir d'1 page asp...Jusqu'ici pas trop de gros soucis , si ce n'est que j'aimrais que ce fichier porte le nom d generer fichiers HTML [ par maya ] J'aimerais générer un fichier HTML à partir d'1 page asp...Jusqu'ici pas trop de gros soucis , si ce n'est que j'aimrais que ce fichier porte le nom d generer fichiers HTML [ par maya ] J'aimerais générer un fichier HTML à partir d'1 page asp...Jusqu'ici pas trop de gros soucis , si ce n'est que j'aimrais que ce fichier porte le nom d generer html avec du asp [ par soleil ] Quel est le code pour générer un fichier html à partir d'un fichier asp? pièce jointe en HTML [ par guiyome ] guiyomeBonjour,j'ai créé un formulaire où je souhaite donner la possibilité à l'utilisateur de joindre un fichier quelconque à son message texte. Pour enregistrer le code HTML dans un fichier [ par perichon_p ] Bonjour, Je voudrais enregistrer le code HTML que le serveur ASP m'a généré dans un fichier texte sur le serveur. Le but étant que les utilisateurs convertir un fichier html en pdf ou word [ par chaouki_2000 ]  salut tt le monde     je cherche un bout de code qui permet de convertir une page html en pdf ou word ceci m'est indispensable p inclure un fichier *.asp dans un fichier *.html. [ par toufik14 ] salut, j'aimerais savoir comment inclure un fichier *.asp dans un fichier *.html. attention, le fichier html n'est pas hebergé sur un serveur asp sino lien url [ par Kashiko ] Je tente de recreer un principe de SAP qui :recoit une requete HTML (soit simplement une adresse avec des parametres)et renvoit un fichier de type xml

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2012 : SYSTEM CENTER SERVICE MANAGER 2012 VUE D'ENSEMBLE par ROMELARD Fabrice

TECHDAYS PARIS 2012 : PLEINIèRE SECOND JOUR par ROMELARD Fabrice

TECHDAYS PARIS 2012 : RETOUR D'EXPéRIENCE SUR LA MISE EN PLACE D'UN CLOUD PRIVé par ROMELARD Fabrice

TECHDAYS PARIS 2012 : COMMENT SHAREPOINT A SAUVé MES TECHDAYS par ROMELARD Fabrice

PERSPECTIVE 3.0 POUR SILVERLIGHT 5.0 par odewit

Forum

RE : DECRYPTER UN MOT DE PASS par gnuxdev

FORMULAIRE DE CONTACT AVEC PIECES JOINTES EN ASP par LionDanny

SUBMIT UNE FORM GéNéRéE AU PAGE LOAD par jeffwow

RE : OU EST LOGé LE PROGRAMME D UNE CALCULETTE ? par jopop

OU EST LOGé LE PROGRAMME D UNE CALCULETTE ? par elbazdaniel

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Fonctionnalites supplementaires sous Joomla
Budget : 800€
Animation interactive pour I phone
Budget : 2 000€
Site web pour projet Haiti
Budget : 10 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011