asp 動態 include 頁面

Function include(filename)
  if filename = "" then
   exit function
  end if
  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 

調用：<%include("page.asp")%>