功能受限的真正动态Include实现猜想2

1、站点根目录下的global.asa

<object id="App" progid="Scripting.Dictionary" runat="server" scope="Session"></object>

2、当前asp文件：test.asp

<%
App("a") = 100
App("b") = 3
Function add(a, b)
  add = "a + b = " & (a + b)
End Function
Set App("add") = GetRef("add")
Server.Execute "a.asp"
App.RemoveAll
%>

3、动态include的a.asp

<%
Response.Write "a = " & App("a") & "<br/>"
Response.Write "b = " & App("b") & "<br/>"
Response.Write App("add")(App("a"), App("b"))
%>