Si, l'idea di partenza è proprio quella, potresti aggiungere un replace:
codice:
Function Include(fileName)
Dim strText
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile(fileName)
strText = f.ReadAll()
strText = Replace(strText,"<" & "%","")
strText = Replace(strText,"%" & ">","")
f.Close
ExecuteGlobal strText
End Function
Include("Pagina.asp")
Naturalmente funziona solo con codice asp.
Dai un'occhiata alla classe che ho linkato.
Con quella puoi anche includere pagine asp e html e processa gli include interni alla pagina
E con un po' di fantasia puoi anche arrivare a creare nuove direttive, per esempio è supportato include url