分享學(xué)習(xí)asp動(dòng)態(tài)include文件

這篇文章分享給大家學(xué)習(xí)的是使用ASP動(dòng)態(tài)include文件，學(xué)習(xí)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")

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

可以動(dòng)態(tài)Include文件嗎？
什么是動(dòng)態(tài)Include?

解答

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

如果你確實(shí)需要?jiǎng)討B(tài)包含，你可以這樣做：
<%
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 %>

應(yīng)該說，這段代碼可以得到你想要的結(jié)果。但是，由于你的用戶可能來自于33個(gè)省，你難道包含33個(gè)文件？特別要說明的是，SSInc.dll是不知道你究竟需要哪個(gè)包含文件的（事實(shí)上，這時(shí)候Province還沒有值），所以，她把所有的文件都包含進(jìn)來了！你可以想象，這時(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文件。由于＃i nclude 在ASP代碼執(zhí)行之前處理，所以，看起來，動(dòng)if/else的腦筋是不可能的。
真是這樣嗎？
根據(jù)你使用Include的目的，以及你將Include的文件數(shù)目，使用if/else也許可以解決問題。但這絕對(duì)不是任何時(shí)候可以奏效的，而且也不是一種有效的解決辦法，因?yàn)槟阈枰�做許多的手工工作。
假設(shè)有兩個(gè)樣本HTM文件，1.htm和2.htm，為簡(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)在我們來試試動(dòng)態(tài)Include：
<%
if request.querystring(‘param‘)=‘2‘ then
%>
<!--＃i nclude file=‘2.htm‘-->
<%
else
%>
<!--＃i nclude file=‘1.htm‘-->
<%
end if
%>
請(qǐng)注意：上面的兩個(gè)＃i nclude 實(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中，有兩種新的方法來支持“動(dòng)態(tài)包含”：
<%
server.transfer filename
server.execute filename
%>
如果正好使用的是IIS5.0和ASP3.0，那么Ok! 但是IIS5.0需要運(yùn)行在Windows 2000上。