Discussion :

[ronald]

Bonjour,

J'ai un gros problème avec l'include .... Dans le fichier brol.inc j'ai une fonction en vbscript qui est entourée des balises <% et %>.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Code asp ...
 
%>
	<!-- #include file="brol.inc" -->
<%
 
Code asp faisant appel à une fonction qui se trouve dans brol.inc...

Quand je fais appel à cette fonction j'ai un message d'erreur et si je retire l'appel à cette fonction, j'ai le contenu du fichier brol.inc qui s'affiche dans ma page et sans les balises <% et %>

J'ai déjà lu les faqs et les messages à ce sujet et il me semble que tout est correct !!! Please help me !!!

Merci d'avance,
Ronald

[lexav]

met l'extension ".asp"

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<!--#include file="monfichier.asp" -->

[ronald]

j'ai déjà essayé et j'ai ça comme erreur

HTTP 500 - Erreur interne de serveur

[grafikm_fr]

Tu es sur que ton ficheir include est bien dans le bon repertoire???

[ronald]

oui,

Mais est-il possible d'exécuter une fonction qui se trouve dans un autre fichier tout ça dans le code asp ???

Quand je regarde le code source de ma page affichée, j'ai tout le contenu du fichier brol.inc mais sans les balises <% et %> . Faut-il paramétrer quelque chose sur le serveur web pour que ça fonctionne ???

[BrYs]

Soit plus clair sur le problème, montre ton code de base.inc

[ronald]

Voici le contenu du fichier.inc

Quand je tape ce code dans ma page apellante, il n'y a aucun problème !!!

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
<%
'-------------------------------------------------------------------------
'@Nom méthode   : getControlString()
'@Arguments     : 
'@Date création : 06.11.2003
'@Modification  :
'@Author        : 
'@Comment       : 
'@Retour        : string
'-------------------------------------------------------------------------
Function getControlString(numInt, idKey)
    '-------- Variables
    '---- Tableaux
 
    '---- Compteurs
	dim cpt
 
    '---- Chaîne de caractères
	dim strOut
	dim strCtrl
	dim strChar
	dim strLast
    '---- Nombre, Longueur et position
	dim cfr1			' numInt modulo idKey
	dim cfr2			' numInt \ idKey
	dim number
    '---- Nom de fichier, directory
 
    '---- Boolean
 
    '---- Objets
 
    '-------- Codes
    '---- Initialisation
	' + variable de sortie
	strOut = ""
	' + variable de controle
    cfr1 = numInt mod idKey
    cfr2 = numInt \ idKey
    strCtrl = cstr(idKey) & cstr(cfr1) &  cstr(numInt) & cstr(cfr2)
 
    '---- Logique
      ... code vbscript ...
    '---- Tue les objets
 
    '-------- Renvoi de la fonction
	getControlString = strOut
 
End Function
%>

[BrYs]

essai de faire betement un fichier composer juste d'un response.write et regarde si l'include marche .

[lexav]

Mais est-il possible d'exécuter une fonction qui se trouve dans un autre fichier tout ça dans le code asp ???

oui
as-tu précisé au début de tes fichiers .asp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<%@LANGUAGE="VBSCRIPT"%>

[ronald]

Mais est-il possible d'exécuter une fonction qui se trouve dans un autre fichier tout ça dans le code asp ???

oui
as-tu précisé au début de tes fichiers .asp :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

<%@LANGUAGE="VBSCRIPT"%>

Ben oui

J'ai fait le test avec un fichier où il n'y a qu'un response.write et là ça marche !!! Donc mon include fonctionne...mais pas quand je fais appel à une fonction !!!

[BrYs]

essai avec un fonction simple ... est ce que ça marche, es tu sur que ta fonction marche ?
mets la directement dans ton doc et verifie qu'elle marche.

[ronald]

En fait il faut exécuter le code dans la page asp pour qu'il puisse reconnaire les fonctions et variables -->

On lit le contenu du fichier.inc --> Execute Contenu_fichier

Voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
	' ##################### Ajout des fonctions d'un autre fichier ############
	' ---------- Object
	dim fso
	dim f
	dim objContenu
	' ---------- Chaîne de caractères
	dim code
 
	' ---------- Codes
	' + création du système de fichier
	Set fso = Server.CreateObject("Scripting.FileSystemObject")
 
	' + obtention du ficher
	Set f = fso.GetFile(left(Server.mapPath("/"),3) & "Epaves\Function\crypt.inc")
 
	' + ouverture du fichier en lecture (1) et affectation du contenu à la variable objet contenu
	Set objContenu = f.OpenAsTextStream(1)
 
	' + lecture totale du contenu
	code = objContenu.ReadAll
 
	' + suppression des balises asp
	code = Replace(code, "<"&"%", "")
	code = Replace(code, "%"&">", "")
 
	' + exécution du code
	Execute code
 
	' ---------- Tue les objets
	set fso = nothing
	set f = nothing
	set objContenu = nothing

Un tout grand merci à tous,

Ronald