Accept <! # Include file = "filename. asp" --> macro restriction: the file must exist and be pre-compiled (no matter whether the preceding conditions are met)
This is often the case where you need to include different files according to different requirements. For example, you need to dynamically include files for different settings.
CodeAs follows:Copy codeThe 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:Copy codeThe Code is as follows: Include ("youinc. asp ")