2009-08-07 6 views

Répondre

0

Non pas en tant que tel, mais je me souviens vaguement vu un outil ou deux qui flottent autour qui vous donnera le rapport équivalent. Ça aurait pu être sur Code Project ou quelque part pareil ... ça faisait longtemps que je n'avais pas couru dessus.

1

Une fonction très laid pour cela:

<!--#include file="include/common.asp"-->  

<% 
Function GetIncludedFiles() 
    Dim Url 
    Dim Fso 
    Dim Fs 
    Dim Src 
    Dim Arr 
    Dim Ret 
    Dim i 

    Set Fso = Server.CreateObject("Scripting.FileSystemObject") 

    ReDim Ret(-1) 

    Url = Request.ServerVariables("URL") 
    Set Fs = Fso.OpenTextFile(Server.MapPath(Url)) 

    Src = Fs.Readall() 

    Fs.Close 
    Set Fs = Nothing 
    Set Fso = Nothing 

    Arr = Split(Src, "<" & "!--#include file=") 

    For i = 0 To UBound(Arr) 
     Arr(i) = Left(Arr(i), InStr(Arr(i), "-->")) 
     Arr(i) = Replace(Arr(i), "-", "") 
     Arr(i) = Replace(Arr(i), "'", "") 
     Arr(i) = Trim(Replace(Arr(i), """", "")) 

     If Arr(i) <> "" Then 
      ReDim Preserve Ret(UBound(Ret) + 1) 
      Ret(UBound(Ret)) = Arr(i) 
     End If 
    Next 

    GetIncludedFiles = Ret 
End Function 

Dim File 

For Each File In GetIncludedFiles() 
    Response.Write File & "<br />" 
Next 
%> 
1

La méthode simple consiste à créer un fichier principal dans un répertoire spécifique (par exemple /include/mainfile.asp) et inclure tous les autres fichiers à cette fichier. Quelque chose comme:

<!#include File="[your directory here/file1.asp]"--> 
<!#include File="[your directory here/file2.asp]"--> 
<!#include File="[your directory here/file3.asp]"--> 

Ensuite, vous pouvez inclure votre fichier principal à l'aide « virtuel » pour le reste de vos pages que vous souhaitez accéder à ces autres fichiers inclus.

<!#include Virtual="/include/mainfile.asp"-->