How does 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

%>