日期:2013-06-21  浏览次数:20458 次

相信很多ASP开发者都会抱怨ASP的Include方式太老土了,以的方式加载文件实在是太不舒服了,在实际项目中不管我是不是一开始就要用到这个文件,我总得早早的把它Include进来...这方面PHP就舒服很多...什么时候用,什么时候In...

早在03年就在蓝色理想上看到过动态Include的文章,当时已经觉得很厉害,但实际应用了一下,不方便而且Include的效果不好.

后来又在一网站上看到了改进版的,但是也不太好用~~~

哎,当时我真是觉得有点想放弃ASP了,但是由于公司还是用ASP来开发,我也是没有办法...

今天,我一定要记住今天~~~在国外的一个网站上我竟然发现了这样一个好东东,太棒了~~~Great works!!!

以前试的一些动态Include代码,都无法Include一个类,甚至函数~~~又或者Include文件中的Include无法被包含...

现在这个鬼佬(dselkirk)写的类可以为我们做到这些了~~~
复制内容到剪贴板
代码:

<% 
  public include, include_vars 
  set include = new cls_include 

  class cls_include 

    private sub class_initialize() 
      set include_vars = server.createobject("scripting.dictionary") 
    end sub 
    private sub class_deactivate() 
      arr_variables.removeall 
      set include_vars = nothing 
      set include = nothing 
    end sub 

    public default function include(byval str_path) 
      dim str_source 
      if str_path <> "" then 
        str_source = readfile(str_path) 
        if str_source <> "" then 
          processincludes str_source 
          convert2code str_source 
          formatcode str_source 
          if str_source <> "" then 
            if request.querystring("debug") = 1 then 
              response.write str_source 
              response.end 
            else 
              executeglobal str_source 
              include_vars.removeall 
            end if 
          end if 
        end if 
      end if 
    end function 

    private sub convert2code(str_source) 
      dim i, str_temp, arr_temp, int_len 
      if str_source <> "" then 
       &n