Asp include dinámico

Include Dinámico ASP

Ha veces necesitamos incluir dinámicamente en alguna línea de nuestro código instrucciones procedentes de otros archivos cuya extensión también sea .asp, donde podemosencontrarnos con los casos en los que tengamos código ASP, HTML, CSS, javascript, etc; y solemos agotar nuestros intentos empleando bifurcaciones sin dejar de usar la instrucción include file, otra forma esabrir el documento con file system en modo lectura, omitiendo los tags de inicio, fin y haciendo un execute pero, si nos encontramos con el caso de que no sólo haya instrucciones ASP tendremosproblemas.

La solución a este problema después de tantos intentos podría ser el siguiente:
1. Abrir el documento a incluir en modo lectura.
2. Aplicar execute para los casos ASP, quitando previamentelos tags de inicio y fin.
3. En otros casos lanzar directamente con response.write

Implementación
Constantes:
o constGNZ
o tagEstado
o tagToken
Herramientas:
o class_chGNZ,utilizado para abrir un archivo en modo de lectura, y extraer cada carácter, si es el final de la línea retorna EOF, también permite el retroceso, en caso de sobrepasar la primera línea retornará BOF,esta utilidad emplea doble buffer por defecto el tamaño de un buffer esta establecido a 4096 caracteres.

'testeo de chGNZ
'-------------------------------------
dim oCh: setoCh = new class_chGNZ
oCh.init("doc1.asp")
dim bIterar,c: bIterar = true
while bIterar
c = oCh.obtenerSiguienteCaracter()
if c="EOF" then
bIterar = false
end ifresponse.Write(oCh.lineaNum & " " & c & "")
wend
oCh.retrocederUnCaracter()
oCh.retrocederUnCaracter()
c = oCh.obtenerSiguienteCaracter()
response.Write(oCh.lineaNum & "retrocediendo " & c & "")

Analizador léxico para obtener los siguientes tokens:
TAG_INICIO, TAG_FIN, OTRO

[pic]
'testeo del analizador lexico
'-------------------------------------
dim...