ASP dynamic include files, facilitate the implementation of multiple templates _ application techniques

by <! #include file= "filename.asp"--> macro limit, the file must exist and will be precompiled (regardless of whether the preceding conditions are preceded)

Often there are requirements to include different files according to different requirements, such as individual settings, so you can request dynamic include files.

The code is as follows:

Copy Code code 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:

Copy Code code as follows:

Include ("youinc.asp")