ASP dynamic include file _asp Foundation

Often there is a requirement to include different files according to different requirements, such as individual settings, so requirements can be dynamic include file by <! #include file= "filename.asp"--> macro limit
The file must exist and will be precompiled (regardless of the previous condition)

Often there is a requirement to include different files according to different requirements
If you have different settings for each individual, you need to be able to dynamically include files.

The 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

Use Example:

Include ("youinc.asp")