ASP动态include文件的教程

Functioninclude(filename)

 Dimre,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,"<% do="" while="" response.write="" 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

EndFunction