ASP dynamic include file to facilitate implementation of multiple templates

Accept <! # Include file = "filename. asp" --> macro restriction: the file must exist and be pre-compiled (no matter whether the preceding conditions are met)

This is often the case where you need to include different files according to different requirements. For example, you need to dynamically include files for different settings.

CodeAs follows:Copy codeThe Code is as follows: function include (filename)
Dim re, content, FSO, F, aspstart, aspend

Set FSO = Createobject ("scripting. FileSystemObject ")
Set F = FSO. opentextfile (server. mappath (filename ))
Content = f. readall
F. Close
Set F = nothing
Set FSO = nothing

Set Re = new Regexp
Re. pattern = "^ \ s * ="
Aspend = 1
Aspstart = instr (aspend, content, "<%") + 2
Do While aspstart> aspend + 1
Response. Write mid (content, aspend, aspStart-aspEnd-2)
Aspend = instr (aspstart, content, "% \>") + 2
Execute (Re. Replace (mid (content, aspstart, aspEnd-aspStart-2), "response. Write "))
Aspstart = instr (aspend, content, "<%") + 2
Loop
Response. Write mid (content, aspend)
Set Re = nothing
End Function

Example:Copy codeThe Code is as follows: Include ("youinc. asp ")