Asp classic 在经典ASP中获取包含的文件？

在经典的ASP中是否有一个等价物

不，没有。

不，没有。

不是这样的，但我模糊地记得看到有一两个工具漂浮在周围，可以为您提供相同的报告。它可能是在代码项目或类似的地方。。。自从我上次遇到它已经有很长时间了。

不是这样，但我模糊地记得看到有一两个工具漂浮在周围，可以给你提供相同的报告。它可能是在代码项目或类似的地方。。。我已经很久没有遇到它了。

这是一个非常丑陋的函数：

<!--#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
%>

---

这是一个非常丑陋的函数：

<!--#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
%>

---

简单的方法是在特定目录（例如/include/mainfile.asp）中创建一个主文件，然后将所有其他文件包含到此文件中。比如：

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

然后，您可以使用“虚拟”将主文件包含到要访问其他包含文件的页面的其余部分

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

---

简单的方法是在特定目录（例如/include/mainfile.asp）中创建一个主文件，然后将所有其他文件包含到此文件中。比如：

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

然后，您可以使用“虚拟”将主文件包含到要访问其他包含文件的页面的其余部分

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