這篇文章分享給大家學習的是使用ASP動態include文件，學習ASP的朋友可要看好了。

受宏限制必須存在該文件并且會預先編譯（不管前面是否加以條件）

經常有這樣的要求，根據不同的需求要求include不同的文件如各個人的不同設置，所以要求能動態include文件。

代碼如下：

Function include(filename)
 Dim re,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,"<%")+2
 do while aspStart>aspEnd+1
  Response.write Mid(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.write Mid(content,aspEnd) 
 set re=nothing
End Function

使用范例：

include("youinc.asp")

**************************************************************

可以動態Include文件嗎？
什么是動態Include?

解答

我們從一個案例談起：
<%
'得到用戶所在的省份
Dim Province
Province = Request.form("Province")
'下面顯示這個省份相關的信息
%>
<!--＃i nclude virtual="/ Province/<%= Province%>"-->
你覺得上面的代碼可以工作嗎？不！簡單地使用ASP來達到動態包含，你不能達到你想要的效果。為什么？因為：Include命令先于ASP代碼而得到執行，所以，上面的代碼并沒有按照作者的意愿，先得到用戶所在的省份，再包含這個省份的信息！

如果你確實需要動態包含，你可以這樣做：
<%
Select Case Province
Case 1: %>
<!--＃i nclude file="1.asp"à
<% Case 2: %>
<!--＃i nclude file="2.asp"à
<% Case 3: %>
<!--＃i nclude file="3.asp"à
<% End Select %>

應該說，這段代碼可以得到你想要的結果。但是，由于你的用戶可能來自于33個省，你難道包含33個文件？特別要說明的是，SSInc.dll是不知道你究竟需要哪個包含文件的（事實上，這時候Province還沒有值），所以，她把所有的文件都包含進來了！你可以想象，這時候的文件有多大！然后，ASP.DLL會去掃描這個文件中的ASP代碼，然后執行！
所以，每當這樣的時候，你應該考慮其他的思路，比如數據庫，或者采用FileSystemObject。

怎樣動態Include文件？

解答
ASP程序員經常面臨的最大挑戰之一是動態Include文件。由于＃i nclude 在ASP代碼執行之前處理，所以，看起來，動if/else的腦筋是不可能的。
真是這樣嗎？
根據你使用Include的目的，以及你將Include的文件數目，使用if/else也許可以解決問題。但這絕對不是任何時候可以奏效的，而且也不是一種有效的解決辦法，因為你需要做許多的手工工作。
假設有兩個樣本HTM文件，1.htm和2.htm，為簡化起見，假設文件的內容如下：
<!-- 1.HTM: -->
<font color=#ff0000>This is 1.htm</font>
<!-- 2.HTM: -->
<font color=#0000ff>This is 2.htm</font>
現在我們來試試動態Include：
<%
if request.querystring(‘param‘)=‘2‘ then
%>
<!--＃i nclude file=‘2.htm‘-->
<%
else
%>
<!--＃i nclude file=‘1.htm‘-->
<%
end if
%>
請注意：上面的兩個＃i nclude 實際上都得到了處理。你可以實際運行一下，看看效果：http://localhost/Test.asp?param=1
http://localhost/Test.asp?param=2
http://localhost/Test.asp
上面我們是把一個querystring作為條件。你還可以把時間、日期、瀏覽器版本等作為條件。但是，條件越復雜，這種方法的效率越差。下面提供了另外一種思路：
<%
if request(‘param‘)=‘2‘ then
filespec = ‘2.htm‘
else
filespec = ‘1.htm‘
end if
filespec = server.mapPath(filespec)
scr = ‘scripting.fileSystemObject‘
set fs = server.createobject(scr)
set f = fs.openTextFile(filespec)
content = f.readall
set f = nothing
set fs = nothing
response.write(content)
%>
在IIS5.0/ASP3.0中，有兩種新的方法來支持“動態包含”：
<%
server.transfer filename
server.execute filename
%>
如果正好使用的是IIS5.0和ASP3.0，那么Ok! 但是IIS5.0需要運行在Windows 2000上。