早在03年就在蓝色理想上看到过动态Include的文章,当时已经觉得很厉害,但实际应用了一下,不方便而且Include的效果不好.
后来又在一网站上看到了改进版的,但是也不太好用~~~
哎,当时我真是觉得有点想放弃ASP了,但是由于公司还是用ASP来开发,我也是没有办法...
今天,我一定要记住今天~~~在国外的一个网站上我竟然发现了这样一个好东东,太棒了~~~Greatworks!!!
以前试的一些动态Include代码,都无法Include一个类,甚至函数~~~又或者Include文件中的Include无法被包含...
现在这个鬼佬(dselkirk)写的类可以为我们做到这些了~~~
复制代码代码如下:
<%
publicinclude,include_vars
setinclude=newcls_include
classcls_include
privatesubclass_initialize()
setinclude_vars=server.createobject("scripting.dictionary")
endsub
privatesubclass_deactivate()
arr_variables.removeall
setinclude_vars=nothing
setinclude=nothing
endsub
publicdefaultfunctioninclude(byvalstr_path)
dimstr_source
ifstr_path<>""then
str_source=readfile(str_path)
ifstr_source<>""then
processincludesstr_source
convert2codestr_source
formatcodestr_source
ifstr_source<>""then
ifrequest.querystring("debug")=1then
response.writestr_source
response.end
else
executeglobalstr_source
include_vars.removeall