受<!#includefile="filename.asp"-->宏限制,必須存在該文件並且會預先編譯（不管前面是否加以條件）
經常有這樣的要求，根據不同的需求要求include不同的文件,如各個人的不同設置，所以要求能動態include文件。
代碼如下：
複製代碼代碼如下:
Functioninclude(filename)
Dimre,content,fso,f,aspStart,aspEnd
setfso=CreateObject("Scripting.FileSystemObject")
setf=fso.OpenTextFile(server.mappath(filename))
content=f.ReadAll
f.close
setf=nothing
setfso=nothing
setre=newRegExp
re.pattern="^/s*="
aspEnd=1
aspStart=inStr(aspEnd,content,"<%")+2
dowhileaspStart>aspEnd+1
Response.writeMid(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.writeMid(content,aspEnd)
setre=nothing
EndFunction
使用範例：
複製代碼代碼如下:
include("youinc.asp")