This is often the case. You need to include different files according to different requirements, such as different settings of individual users. Therefore, you need to dynamically include files <! # Include file = "filename. asp" --> macro Restriction
This file must exist and be pre-compiled (no matter whether the preceding conditions are met)
This is often the case where different files are included according to different requirements.
If you have different settings, you must dynamically include files.
CodeAs follows:
Function include (filename)
Dim re, content, FSO, F, aspstart, aspendSet 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:
