ASP动态包含文件的实现

Function include(filename)<br>
Dim re,content,fso,f,aspStart,aspEnd<br>
set fso=CreateObject(&quot;Scripting.FileSystemObject&quot;)<br>
set f=fso.OpenTextFile(server.mappath(filename))<br>
content=f.ReadAll<br>
f.close<br>
set f=nothing<br>
set fso=nothing<br>
set re=new RegExp<br>
re.pattern=&quot;^\s*=&quot;<br>
aspEnd=1<br>
aspStart=inStr(aspEnd,content,&quot;&lt;%&quot;)+2<br>
do while aspStart&gt;aspEnd+1<br>
 Response.write Mid(content,aspEnd,aspStart-aspEnd-2)<br>
 aspEnd=inStr(aspStart,content,&quot;%\&gt;&quot;)+2<br>
 Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),&quot;Response.Write &quot;))<br>
 aspStart=inStr(aspEnd,content,&quot;&lt;%&quot;)+2<br>
loop<br>
Response.write Mid(content,aspEnd)<br>
set re=nothing<br>
End Function

其实是写一个动态包含的函数，这样每次调用时候代码简洁，也方便，使用方法

include("***.asp")'注意，这里的include是函数名哦，不要搞混哦。