复制代码 代码如下:
<%
Server.Execute "Sample.class.asp"
Response.Write TypeName(Eval("New Sample"))
%>
直接运行，出现错误“Microsoft VBScript 运行时错误 错误 '800a01fa' 类没有被定义: 'Sample'”，结果很令人失望，为什么会出现这种情况呢？查阅了MSDN，找到这段描述：“If a file is included in the calling page by using #include, the executed .asp will not use it. For example, you may have a subroutine in a file that is included in your calling page, but the executed .asp will not recognize the subroutine name. ” 貌似和我遇到的问题有些不一样，难道Server.Execute是代码隔离的？再进行下面这个实验：
Sample.inc.asp
复制代码 代码如下:
<%
Dim MyVar
MyVar = "I am Sample!"
%>
test.asp
复制代码 代码如下:
<%
Dim MyVar
MyVar = "I am test!"
Server.Execute "Sample.inc.asp"
Response.Write MyVar
%>
结果输出的是“I am test!”，很是失望！看来Server.Execute是变量、函数、类这类代码隔离的，也就是说调用端和被调用端在代码级别上互不干扰，看来Server.Execute只能用于包含.asp模板了。
下面隆重出场的是VBScript的脚本特性Execute，传给Execute的必须是有效的VBScript脚本代码，而且Execute是上下文相关的，这点看来很接近于我们需要的动态include。
test.asp
复制代码 代码如下:
<%
Execute "Class Sample : End Class"
Response.Write TypeName(Eval("New Sample"))
%>
上面的代码成功输出我们所需要的类型名称Sample。证明Execute确实可以做到上下文相关，但是问题是利用Execute包含asp文件没有Server.Execute方便，Execute是VBScript脚本自带的，首先只能用来执行代码文本，所以需要读取一次文件内容，其次不能用来识别ASP的一些标签，比如<% %>还有一种类似于<%=MyVar %>的调用方法，所以要过滤掉<% %>，然后要转换<%=MyVar %>为Response.Write MyVar。由于我需要的是包含类文件，不会出现<%=MyVar %>，只要简单的Replace掉<% %>就可以了。关于读取文件内容和简单排除<% %>可以参考下面这个函数：
复制代码 代码如下:
Function file_get_contents(filename)
Dim fso, f
Set fso = Server.CreateObject("Scripting.FilesystemObject")
Set f = fso.OpenTextFile(Server.MapPath(filename), 1)
file_get_contents = f.ReadAll
f.Close
Set f = Nothing
内容版权声明：除非注明，否则皆为本站原创文章。