ASP動(dòng)態(tài)include文件

 經(jīng)常有這樣的要求，根據(jù)不同的需求要求include不同的文件如各個(gè)人的不同設(shè)置，所以要求能動(dòng)態(tài)include文件受! #include file="filename.asp" --> 宏限制
    必須存在該文件并且會(huì)預(yù)先編譯（不管前面是否加以條件）

    經(jīng)常有這樣的要求，根據(jù)不同的需求要求include不同的文件
    如各個(gè)人的不同設(shè)置，所以要求能動(dòng)態(tài)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")

ASP可以動(dòng)態(tài)Include文件

% 
'得到用戶所在的省份 
Dim Province 
Province = Request.form("Province") 
'下面顯示這個(gè)省份相關(guān)的信息 
%> 
!--#include virtual="/ Province/%= Province%>"--> 

你覺(jué)得上面的代碼可以工作嗎？不！簡(jiǎn)單地使用ASP來(lái)達(dá)到動(dòng)態(tài)包含，你不能達(dá)到你想要的效果。為什么？因?yàn)椋篒nclude命令先于ASP代碼而得到執(zhí)行，所以，上面的代碼并沒(méi)有按照作者的意愿，先得到用戶所在的省份，再包含這個(gè)省份的信息！
如果你確實(shí)需要?jiǎng)討B(tài)包含，你可以這樣做：

%
Select Case Province
Case 1: %>
!--#include file="1.asp"
% Case 2: %>
!--#include file="2.asp"
% Case 3: %>
!--#include file="3.asp"
% End Select %>

應(yīng)該說(shuō)，這段代碼可以得到你想要的結(jié)果。但是，由于你的用戶可能來(lái)自于33個(gè)省，你難道包含33個(gè)文件？特別要說(shuō)明的是，SSInc.dll是不知道你究竟需要哪個(gè)包含文件的（事實(shí)上，這時(shí)候Province還沒(méi)有值），所以，她把所有的文件都包含進(jìn)來(lái)了！你可以想象，這時(shí)候的文件有多大！然后，ASP.DLL會(huì)去掃描這個(gè)文件中的ASP代碼，然后執(zhí)行！
所以，每當(dāng)這樣的時(shí)候，你應(yīng)該考慮其他的思路，比如數(shù)據(jù)庫(kù)，或者采用FileSystemObject。

怎樣動(dòng)態(tài)Include文件？

解答
ASP程序員經(jīng)常面臨的最大挑戰(zhàn)之一是動(dòng)態(tài)Include文件。由于#include 在ASP代碼執(zhí)行之前處理，所以，看起來(lái)，動(dòng)if/else的腦筋是不可能的。

真是這樣嗎？
根據(jù)你使用Include的目的，以及你將Include的文件數(shù)目，使用if/else也許可以解決問(wèn)題。但這絕對(duì)不是任何時(shí)候可以奏效的，而且也不是一種有效的解決辦法，因?yàn)槟阈枰鲈S多的手工工作。

假設(shè)有兩個(gè)樣本HTM文件，1.htm和2.htm，為簡(jiǎn)化起見(jiàn)，假設(shè)文件的內(nèi)容如下：

!-- 1.HTM: -->
font color=#ff0000>This is 1.htm/font>
!-- 2.HTM: -->
font color=#0000ff>This is 2.htm/font>

現(xiàn)在我們來(lái)試試動(dòng)態(tài)Include：

% 
if request.querystring('param')='2' then 
%> 
!--#include file='2.htm'--> 
% 
else 
%> 
!--#include file='1.htm'--> 
% 
end if 
%>

請(qǐng)注意：上面的兩個(gè)#include 實(shí)際上都得到了處理。你可以實(shí)際運(yùn)行一下，看看效果：http://localhost/Test.asp?param=1

http://localhost/Test.asp?param=2
http://localhost/Test.asp

上面我們是把一個(gè)querystring作為條件。你還可以把時(shí)間、日期、瀏覽器版本等作為條件。但是，條件越復(fù)雜，這種方法的效率越差。下面提供了另外一種思路：

% 
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中，有兩種新的方法來(lái)支持“動(dòng)態(tài)包含”：

%
server.transfer filename
server.execute filename
%>

如果正好使用的是IIS5.0和ASP3.0，那么Ok! 但是IIS5.0需要運(yùn)行在Windows 2000上。

Asp包含文件include動(dòng)態(tài)包含方法（含變量）

很多時(shí)候，由于程序設(shè)計(jì)需要，要求在asp的include包含文件里調(diào)用動(dòng)態(tài)的文件。如!--#include file="map1.asp"-->其中的1是個(gè)動(dòng)態(tài)參數(shù)，需要request獲取。但可惜的是，include語(yǔ)句里并不能含有變量，否則將提示找不到文件錯(cuò)誤。本文將提供3種方法解決該問(wèn)題。

首先，我們需要了解，包含文件的提示和警告信息：被包含的文件可以包含其他文件。只要“#include”命令不導(dǎo)致循環(huán)，.asp 文件也可以多次包含同一文件。例如，如果文件 First.asp 包含文件 Second.inc，則 Second.inc 不能反過(guò)來(lái)包含 First.asp。文件也不能包含其自身。ASP 檢測(cè)這樣的循環(huán)或嵌套錯(cuò)誤，生成錯(cuò)誤消息，并停止處理請(qǐng)求的 .asp 文件。
解決方法一：FSO調(diào)用方法

ASP語(yǔ)言是強(qiáng)大易用的語(yǔ)言，我們不要把自己的思維局限固定在一個(gè)角落里，“條條大道通羅馬”，一個(gè)思路不通，換個(gè)思路吧。

本方法采用變通的方法實(shí)現(xiàn)同樣的包含功能。即FSO調(diào)用。代碼如下：

%
Function getFileContents(strIncludeFile) '函數(shù)：讀取包含文件內(nèi)容
Dim objFSO,objText,strPage
Set objFSO = Server.CreateObject("Scripting.FileSystemObject") '調(diào)用FSO對(duì)象
Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile))
getFileContents = objText.ReadAll
objText.Close
Set objText = Nothing
Set objFSO = Nothing
End Function
dim p
p=request("p") '2種方式：request.form ,request.querystring
response.write getFileContents("map"p".asp")
%>

這樣，利用fso函數(shù)讀取包含文件的內(nèi)容，然后用response.write把包含文件的內(nèi)容輸出，即實(shí)現(xiàn)和include命令同樣的功能了，輕松實(shí)現(xiàn)自由輸出諸如 map1.asp，map2.asp… 等文件內(nèi)容了。

解決方法二：if...elseif...

此方法適用于要包含的文件數(shù)量不多的情況下，也是懶人+笨人的方法，呵呵。代碼如下：

%if a=1 then%>
!--#include file="map1.asp"-->
%elseif a=2 then%>
!--#include file="map2.asp"-->
%elseif a=3 then%>
!--#include file="map3.asp"-->
%end if%>

解決方法三：select case

方法和第二種差不多，稍微好點(diǎn)。代碼如下：

%select case p
case 1%>
!--#include virtual='inc/****1.asp'-->
%case 2%>
!--#include virtual='inc/****2.asp'-->
%case 3%>
!--#include virtual='inc/****3.asp'-->
%case 4%>
!--#include virtual='inc/****4.asp'-->
%end select%>

如果你有其他更好的方法，歡迎與我們交流。您可以把你您的想法留在博客評(píng)論里，我們期待與您的探討。

補(bǔ)充：關(guān)于asp的include包含命令，需要注意以下方面。

ASP程序在執(zhí)行腳本命令之前就已經(jīng)包含文件。因此，不能使用腳本命令來(lái)建立被包含的文件名。舉例來(lái)說(shuō)，因?yàn)?ASP 試圖在將文件名指派給變量 name 之前執(zhí)行“#include”命令，所以下面的腳本無(wú)法打開(kāi)文件 Header1.inc。

!--　該腳本將失敗 -->
% name= header1.inc %>
!-- #include file="%= name %>" -->

腳本命令和過(guò)程必須完全包含在腳本分隔符 % 和 %> 內(nèi)，即 HTML 標(biāo)簽 SCRIPT> 和 /SCRIPT>，或 HTML 標(biāo)簽 OBJECT> 和 /OBJECT> 內(nèi)部。也就是說(shuō)，不能在包含 .asp 文件中打開(kāi)腳本分隔符，并在被包含的文件中關(guān)閉分隔符；腳本或腳本命令必須是一個(gè)完整的單元。例如，下面的腳本將不起作用：

!--　該腳本將失敗 -->
%
For i = 1 To n
主文件中的語(yǔ)句
!--　#include file="header1.inc" -->
Next
%>
但下面的腳本會(huì)起作用：
%
For i = 1 to n
主文件中的語(yǔ)句
%>
!--　#include file="header1.inc" -->
% Next %>

如果 ASP 腳本包含的文件中存在包含腳本不需要的大量函數(shù)和變量，則這些無(wú)用的結(jié)構(gòu)反而會(huì)影響性能，并最終降低 Web 應(yīng)用程序的伸縮性。因此，通常將包含文件分成多個(gè)小文件，并且只包含那些服務(wù)器端腳本必需的文件，而不是包含那些帶有冗余信息的一個(gè)或多個(gè)大型包含文件。