Debido a las restricciones de macro <
A menudo hay tales requisitos. Se requieren diferentes archivos para incluir de acuerdo con diferentes necesidades, como diferentes configuraciones de cada individuo, por lo que los requisitos deben incluir archivos dinámicamente.
El código es el siguiente:
La copia del código es la 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:
La copia del código es la siguiente:
incluir ("youinc.asp")