Save a piece of ASP dynamic code

Forgot fromProgramAnd save it first. Thank you for writing this section.CodeComrade

Function include (posturl)
Dim re, content, FSO, F, aspstart, aspend
Set FSO = Createobject ("scripting. FileSystemObject ")
Set F = FSO. opentextfile (server. mappath (posturl ))
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