覃健祥 | chin at blogchina

查到最多的asp动态include文件代码

                                      

受宏限制
必须存在该文件并且会预先编译（不管前面是否加以条件）

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

代码如下：

<%
Function include(filename)
Dim 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

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(Mid(content,aspStart,aspEnd-aspStart-2))
 aspStart=inStr(aspEnd,content,"<%")+2
loop
Response.write Mid(content,aspEnd)
set re=nothing
End Function
%>

【作者: 覃健祥】【访问统计:】【2004年10月9日 星期六 09:48】【注册】【打印】