Ya en 2003, vi artículos en incluir en azul ideal. Pensé que era muy poderoso en ese momento, pero después de aplicarlo, fue inconveniente y el efecto de incluir no fue bueno.
Más tarde vi una versión mejorada en un sitio web, pero no fue muy útil ~~~
Por desgracia, realmente sentí que quería renunciar a ASP en ese momento, pero dado que la compañía todavía usaba ASP para desarrollarse, no tenía otra opción ...
Hoy, debo recordar hoy ~~~ ¡En realidad, encontré algo tan bueno en un sitio web extranjero, lo cual es genial ~~~ GreatWorks!
Algunos códigos dinámicos de incluido que probé antes no pueden incluir una clase, o incluso funciones ~~~ o la inclusión en el archivo de inclusión no se puede incluir ...
Ahora la clase escrita por este tipo fantasma (dselkirk) puede hacer esto por nosotros ~~~
La copia del código es la siguiente:
<%
Publicinclude, include_vars
setinclude = newcls_include
Classescls_include
privatesubclass_initialize ()
setinclude_vars = server.createObject ("scripting.dictionary")
Endsub
privatesubclass_deactivate ()
arr_variables.removeall
setinclude_vars = nada
setinclude = nada
Endsub
PublicDefaultFunctionInclude (byvalstr_path)
dimstr_source
ifstr_path <> "" entonces
str_source = readfile (str_path)
ifstr_source <> "" entonces
ProcessInCludestr_source
Convert2Codestr_Source
formatcodestr_source
ifstr_source <> "" entonces
ifrequest.querystring ("debug") = 1Then
Respuesta.WriteStr_source
respuesta.
demás
ejecututeglobalstr_source
include_vars.removealll