asp动态include文件

受<! #include file="filename.asp" --> 宏限制
必须存在该文件并且会预先编译（不管前面是否加以条件）

经常有这样的要求，根据不同的需求要求include不同的文件
如各个人的不同设置，所以要求能动态include文件。

代码如下：

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

使用范例：include("youinc.asp")