Discussion :

[vever88]

,

voila ma fonction (à titre d'information):

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
51
52
53
54
55
56
57
58
59
60
61
'_________________________________________________________________________________________________________________________
'
Private Function fncPingHtml(strAddr)
 
	Dim objAspPing
	Dim strErr
	Dim strNsLookUp
	Dim intIpIndex
	Dim intAux
	Dim strOut
 
	Const cntSeparator = ";"
	Const cntPingTimes = 3
 
	Set objAspPing = CreateObject("ASPping.ClsPing")
 
	strOut = ""
 
	strNsLookUp = objAspPing.fncNsLookUp(strAddr, strErr, cntSeparator)
 
 
 
			strOut = strOut + "<br>" + vbNewLine
 
			For intIpIndex = 0 To UBound(Split(strNsLookUp, cntSeparator))
 
				If UBound(Split(strNsLookUp, cntSeparator)) <> 0 Then
					strOut = strOut + CStr(Split(strNsLookUp, cntSeparator)(intIpIndex)) + ":" + vbNewLine
					strOut = strOut + "<br>" + vbnewline
					strOut = strOut + "<br>" + vbNewLine
				End If
 
				strOut = strOut + Replace("<table border='0' cellspacing='2' >", "'", Chr(34)) + vbnewline
 
				For intAux = 1 To cntPingTimes
					strOut = strOut + objAspPing.fncPing(_
					CStr(_
					Split(strNsLookUp, cntSeparator)(intIpIndex)), _
					Replace(_
					"<td align='left' valign='middle' class='Normal'>" + vbNewline + _
					"%STATUS%" + vbNewline + "</td>" + vbNewline + "</tr>", "'", Chr(34))) + vbNewLine
				Next
 
				strOut = strOut + "</table>" + vbnewline
 
				If UBound(Split(strNsLookUp, cntSeparator)) <> intIpIndex Then
					strOut = strOut + "<br>" + vbNewLine
				End If
			Next
 
			strOut = strOut + "<br>"
 
 
 
	Set objAspPing = nothing
 
	fncPingHtml = strOut
 
End function
'_________________________________________________________________________________________________________________________
'

Selon vous, quelle est la façon la plus simple de faire appel à cette fonction dans plusieurs pages

[Immobilis]

Salut,

Tu sauvegardes le code dans une page à part que tu nommes du nom de la fonction (c'est plus facile à retrouver ensuite). Puis dans chacune des pages où tu en a besoin tu fais:

Code :

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

1
2
 
<!--#include file="inc/nom_de_la_page.extension" -->

Il faut mettre cette directive en dehors des balises ASP <%%>.
L'extension peut être n'importe quoi. Le code à l'interieur ne sera pas executé mais juste "copié collé".

A+

[vever88]

du conseil

Juste un petit problème:
je mets donc

Code :

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

1
2
 
<!--#include file="inc/fncPingHtml.asp" -->

Mon fichier fncPingHtml.asp est bien dans le même repertoire que ma page.
J'obtiens l'erreur suivante:

Pages ASP, ASP 0126 (0x80004005)
Le fichier Include 'inc/fncPingHtml.asp' n'a pas été trouvé.

Comment cela ce fait

[agrotic]

bonjour,

si tu dis que le fichier est dans un sous-répertoire "inc" de ton répertoire courant, et qu'il n'y est pas, on te dit que le fichier n'est pas là où tu dis qu'il doit être.

ça me rappelle les cours de DOS de la grande époque

Nico.

[vever88]

c'était une petite erreur dans la syntaxe;
Voici la bonne syntaxe

Code :

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

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

Il y avait le inc/ de trop car

Mon fichier fncPingHtml.asp est bien dans le même repertoire que ma page.

++

[Immobilis]

ben oui, mais c'est bien aussi de ranger ses fichiers. Un petit dossier à part pour les "includes" et c'est tout de suite plus propre.
Enfin, chacun sa façon de faire.