日期:2013-06-21 浏览次数:20496 次
<% 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
免责声明: 本文仅代表作者个人观点,与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实,对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
|