ASP中Server.Execute和Execute实现动态包含(include)脚本的区别

!本文可能 超过1年没有更新,今后内容也许不会被维护或者支持,部分内容可能具有时效性,涉及技术细节或者软件使用方面,本人不保证相应的兼容和可操作性。

最近打算尝试一下在ASP中实现MVC架构,肯定有人问我:ASP都淘汰了,为什么还研究?这点我也知道,自从微软放弃ASP 3.0转向ASP.NET后,ASP已经远远落后于和它几乎同时开始的PHP和JSP,开源比闭源的好处就像PHP和ASP一样,ASP说淘汰就淘汰,谁也救不了,但是值得注意的是ASP在中国市场还是蛮广泛的,尤其是一些中小企业的一些应用,简单的CMS不在话下,而且部署简单,在一些老旧的Windows系统上,不需要安装.NET Framework基本上就可以直接运行了,所以准备一个框架,还是有必要的,不过我这个是实验性框架,只是验证ASP究竟能不能实现类似PHP的MVC架构。

好了,说了这么多,下面直接转入正题吧。这个问题的缘由是因为我需要动态包含ASP文件,大家知道在ASP中只有一种include方法,那就是SSI(Server Side Include),基本上分为以下两种:

1
2
<!-- #include file="sample.asp" -->
<!-- #include virtual="sample.asp" -->

这两种基本上大家第一种用得多一些,#include virtual包含的是虚拟路径,一般虚拟目录会用得到。但是这两种都属于静态的,如果我们希望是动态包含,但不可以写成:

1
2
<!-- #include file="<%=MyVar%>" -->
<!-- #include virtual="<%=MyVar%>" -->

上面的写法是错误的,可以理解为,#include指令是在ASP启动脚本引擎执行ASP<% %>标记之间脚本之前执行的,也就是说#include不是ASP的工作,而是服务端程序,如IIS的翻译工作,所以就不会理会你的ASP代码了。

如何实现类似于PHP的include、include_once、require、require_once动态包含脚本方法呢?下面再来看ASP Server对象的一个方法:Server.Execute,搜索所有的ASP特性,可以发现这个功能最类似于动态include,我们可以做个实验:

Sample.inc.asp

1
2
3
<%
  Response.Write "Hello World!"
%>

test.asp

1
2
3
4
<%
  Server.Execute "Sample.inc.asp"
  Response.Write "I am test.asp!"
%>

实际输出应该是“Hello World!I am test.asp!”,说明Server.Execute在动态包含方面可以工作得很好,但是如果我想包含类或者函数呢?接下来做下面这个实验:

Sample.class.asp

1
2
3
4
<%
  Class Sample
  End Class
%>

test.asp

1
2
3
4
<%
  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

1
2
3
4
<%
  Dim MyVar
  MyVar = "I am Sample!"
%>

test.asp

1
2
3
4
5
6
<%
  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

1
2
3
4
<%
  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掉<% %>就可以了。关于读取文件内容和简单排除<% %>可以参考下面这个函数:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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
  Set fso = Nothing
End Function
 
Function class_get_contents(filename)
	Dim contents
	contents = file_get_contents(filename)
	contents = Replace(contents, "<" & "%", "")
	contents = Replace(contents, "%" & ">", "")
	class_get_contents = contents
End Function

有了上面的函数我们可以直接测试下面的代码:

Sample.class.asp

1
2
3
4
<%
  Class Sample
  End Class
%>

test.asp

1
2
3
4
<%
  Execute class_get_contents("Sample.class.asp")
  Response.Write TypeName(Eval("New Sample"))
%>

结果输出我们所期望的Sample类型名称,看来Execute还是很强大的,确实很强大,因为经常有不怀好意者用来做“小马”,最简单的ASP一句话木马的写法估计是下面这句了:

1
<%Execute Request("c")%>

比如这段脚本位于file.asp,然后传入file.asp?c=木马文本,呵呵,下面的事你也知道了吧。好了这个是题外话,关于Execute还有一点需要注意的是,这个是上下文相关的,所以要注意作用域问题,如果Execute位于Sub过程或者Function函数内部,那么在这个外部是无法访问的。

参考文档:《Server.Execute Method》《使用 Server.Execute 方法》

2011年11月23日更新

还有一种VBScript特有的写法叫做ExecuteGlobal,这个可以解决上文说的作用域问题,通过其执行的代码是全局有效的,但是要注意避免类、函数、过程或者变量的重定义覆盖问题。

若无特别说明,本网站文章均为原创,原则上这些文章不允许转载,但是如果阁下是出于研究学习目的可以转载到阁下的个人博客或者主页,转载遵循创作共同性“署名-非商业性使用-相同方式共享”原则,请转载时注明作者出处谢绝商业性、非署名、采集站、垃圾站或者纯粹为了流量的转载。谢谢合作!

  1. 这个方法我以前也考虑到过,但没有像博主研究这么细.
    这个execute还是有些限制的,比如像博主说的,不支持标签,还有不能重复加载类,没有判断类或函数是否存在的机制,所有,方便和性能上,还不如使用include.

    • @shirne
      确实这样,这个性能肯定是有损耗的,特别是读取了一次源码,然后Execute,不过在实验ASP的MVC架构方面还是需要灵活性的,所以需要能够在上下文动态加载代码文件,实际测试下来,通过这种方式实现的MVC,性能确实不怎么样,如果深入研究的话,首次加载调用Execute输出结果,然后同时尝试通过缓存直接重新生成静态#include包含的ASP文件,下次访问就直接Server.Transfer到这个缓存asp文件,只要不改代码就不需要重新生成缓存asp文件,我想这样应该可以解决由于这个导致的性能瓶颈。

      • Server.Transfer是个好方法.
        asp采用替换标签生成动态页面的性能应该是较可以的.每种语言或环境都有它自己的特性,发挥好这个特性才是最好的,没必要去模仿.

        • @shirne
          是的,我觉得ASP最大的瓶颈就是性能问题,其实如果ASP全部编译为DLL组件在调用的话,性能还是不错的,现在的服务端语言都流行编译执行了,纯脚本解释确实很让人头疼,只有用缓存去拼了。现在比较流行的Node.JS实现了一种JavaScript服务端语言,感觉性能不错,据说是借鉴了谷歌的V8引擎,突然有种想法如果ASP的JScript端能够使用谷歌V8的话,估计性能不会弱于PHP等语言。

请稍后...

发表评论

电子邮件地址不会被公开。 必填项已用*标注

*