How ASP dynamically include files

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  
%>