Restringido por <!#IncludeFile = "FileName.asp"-> Macro
El archivo debe existir y será precompilado (independientemente de si las condiciones estaban precedidas)
A menudo hay tales requisitos, incluidos diferentes archivos de acuerdo con los diferentes requisitos.
Si la configuración de cada individuo es diferente, se requiere incluir dinámicamente archivos.
El código es el siguiente:
FunctionInClude (nombre de archivo)
Dimre, Content, FSO, F, AspStart, Aspend
setfso = createObject ("scripting.filesystemObject")
setf = fso.opentextfile (server.mappath (nombre de archivo))
contenido = f.Readall
f.clar
setf = nada
setfso = nada
setre = newregexp
re.pattern = "^/s*="
Aspend = 1
aspstart = instr (aspend, contenido, "<%")+2
DowhileASpStart> Aspend+1
Response.WriteMID (Content, Aspend, AspStart-Aspend-2)
aspend = instr (aspstart, content, "%/>")+2
Ejecutar (re.replace (Mid (content, AspStart, Aspend-Asstart-2), "Response.write"))
aspstart = instr (aspend, contenido, "<%")+2
bucle
Response.WriteMID (Content, Aspend)
setre = nada
Función final
Ejemplo de uso:
incluir ("youinc.asp")