<% 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
