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

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

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

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