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