There are often such requirements. Different files include, such as different settings of each individual according to different needs, so there are often such requirements for dynamic include files. Different files include, such as different settings of each individual according to different needs. Therefore, the requirement that the dynamic include file is subject to the <! #include file=filename.asp --> macro restrictions
The file must exist and will be precompiled (regardless of whether the conditions were preceded)
There are often such requirements, including different files according to different requirements
If the settings of each individual are different, it is required 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 |
Example of usage:
include(youinc.asp) |