分享一個好東東,動態Include文件 (Dynamic File Includes)
2024-05-04 11:00:48
供稿：網友
早在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
