asp-classic - Asp Classic 包含一次

Question

ASP Classic 是否具有等同于 PHP 的“包含一次”功能的功能？

Answer 1

我知道这是一个古老的话题，但我想如果有人感兴趣，我会加上我的两分钱。

我编写了一个函数，它完全符合您的要求:无论调用多少次，都包含给定的文件。

class ImportFunction
    private libraries_
    private fso_

    private sub CLASS_INITIALIZE
        set libraries_ = Server.createObject("Scripting.Dictionary")
        set fso_ = Server.createObject("Scripting.FileSystemObject")
    end sub

    public default property get func (path)
        if not libraries_.exists(path) then

            on error resume next
            with fso_.openTextFile(path)
                executeGlobal .readAll
                if Err.number <> 0 then 
                    Response.write "Error importing library "
                    Response.write path & "<br>"
                    Response.write Err.source & ": " & Err.description
                end if
            end with
            on error goto 0

            libraries_.add path, null
        end if
    end property
end class
dim import: set import = new ImportFunction

笔记:

这使用了一个用默认属性模拟的人造函数。如果这困扰你，它很容易重构。

字典必须在所有包含中持久化，而持久化 fso 只是避免重建它。如果您不喜欢在导入完成后保留它们的想法，您可以修改该类以获得如下语法:

with new Importer
    .import "foo"
    .import "bar/baz"
end with