ASP动态include文件（ASP动态网页制作基础教程）这都可以？

随心笔谈2年前发布编辑

174 0

🌐 经济型：买域名、轻量云服务器、用途：游戏网站等《腾讯云》特点：特价机便宜适合初学者用点我优惠购买

🚀 拓展型：买域名、轻量云服务器、用途：游戏网站等《阿里云》特点：中档服务器便宜域名备案事多点我优惠购买

🛡️ 稳定型：买域名、轻量云服务器、用途：游戏网站等《西部数码》特点：比上两家略贵但是稳定性超好事也少点我优惠购买

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

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

经常有这样的要求，根据不同的需求要求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”)

<%
‘得到用户所在的省份
Dim Province
Province=Request.form(“Province”)
‘下面显示这个省份相关的信息
%>
<!–#include virtual=”/ Province/<%=Province%>”–>

你觉得上面的代码可以工作吗？不！简单地使用ASP来达到动态包含，你不能达到你想要的效果。为什么？因为：Include命令先于ASP代码而得到执行，所以，上面的代码并没有按照作者的意愿，先得到用户所在的省份，再包含这个省份的信息！

如果你确实需要动态包含，你可以这样做：

<%
Select Case Province
Case 1: %>
<!–#include file=”1.asp”
<% Case 2: %>
<!–#include file=”2.asp”
<% Case 3: %>
<!–#include file=”3.asp”
<% End Select %>

应该说，这段代码可以得到你想要的结果。但是，由于你的用户可能来自于33个省，你难道包含33个文件？特别要说明的是，SSInc.dll是不知道你究竟需要哪个包含文件的（事实上，这时候Province还没有值），所以，她把所有的文件都包含进来了！你可以想象，这时候的文件有多大！然后，ASP.DLL会去扫描这个文件中的ASP代码，然后执行！

所以，每当这样的时候，你应该考虑其他的思路，比如数据库，或者采用FileSystemObject。

解答

ASP程序员经常面临的最大挑战之一是动态Include文件。由于#include 在ASP代码执行之前处理，所以，看起来，动if/else的脑筋是不可能的。

真是这样吗？

根据你使用Include的目的，以及你将Include的文件数目，使用if/else也许可以解决问题。但这绝对不是任何时候可以奏效的，而且也不是一种有效的解决办法，因为你需要做许多的手工工作。

假设有两个样本HTM文件，1.htm和2.htm，为简化起见，假设文件的内容如下：

This is 1.htm

现在我们来试试动态Include：

<%
if request.querystring(‘param’)=’2′ then
%>
<!–#include file=’2.htm’–>
<%
else
%>
<!–#include file=’1.htm’–>
<%
end if
%>

请注意：上面的两个#include 实际上都得到了处理。你可以实际运行一下，看看效果：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上。

很多时候，由于程序设计需要，要求在asp的include包含文件里调用动态的文件。如<!–#include file=”map1.asp”–>其中的1是个动态参数，需要request获取。但可惜的是，include语句里并不能含有变量，否则将提示找不到文件错误。本文将提供3种方法解决该问题。

首先，我们需要了解，包含文件的提示和警告信息：被包含的文件可以包含其他文件。只要“#include”命令不导致循环，.asp 文件也可以多次包含同一文件。例如，如果文件 First.asp 包含文件 Second.inc，则 Second.inc 不能反过来包含 First.asp。文件也不能包含其自身。ASP 检测这样的循环或嵌套错误，生成错误消息，并停止处理请求的 .asp 文件。

解决方法一：FSO调用方法

ASP语言是强大易用的语言，我们不要把自己的思维局限固定在一个角落里，“条条大道通罗马”，一个思路不通，换个思路吧。

本方法采用变通的方法实现同样的包含功能。即FSO调用。代码如下：

<%
Function getFileContents(strIncludeFile) ‘函数：读取包含文件内容
Dim objFSO,objText,strPage
Set objFSO=Server.CreateObject(“Scripting.FileSystemObject”) ‘调用FSO对象
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函数读取包含文件的内容，然后用response.write把包含文件的内容输出，即实现和include命令同样的功能了，轻松实现自由输出诸如 map1.asp，map2.asp… 等文件内容了。

解决方法二：if…elseif…

此方法适用于要包含的文件数量不多的情况下，也是懒人+笨人的方法，呵呵。代码如下：

<%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

方法和第二种差不多，稍微好点。代码如下：

<%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%>

如果你有其他更好的方法，欢迎与我们交流。您可以把你您的想法留在博客评论里，我们期待与您的探讨。

ASP程序在执行脚本命令之前就已经包含文件。因此，不能使用脚本命令来建立被包含的文件名。举例来说，因为 ASP 试图在将文件名指派给变量 name 之前执行“#include”命令，所以下面的脚本无法打开文件 Header1.inc。

<% name=header1.inc %>

<!– #include file=”<%=name %>” –>

脚本命令和过程必须完全包含在脚本分隔符 <% 和 %> 内，即 HTML 标签 <SCRIPT> 和 </SCRIPT>，或 HTML 标签 <OBJECT> 和 </OBJECT> 内部。也就是说，不能在包含 .asp 文件中打开脚本分隔符，并在被包含的文件中关闭分隔符；脚本或脚本命令必须是一个完整的单元。例如，下面的脚本将不起作用：

For i=1 To n

主文件中的语句

但下面的脚本会起作用：

For i=1 to n

主文件中的语句

<% Next %>

如果 ASP 脚本包含的文件中存在包含脚本不需要的大量函数和变量，则这些无用的结构反而会影响性能，并最终降低 Web 应用程序的伸缩性。因此，通常将包含文件分成多个小文件，并且只包含那些服务器端脚本必需的文件，而不是包含那些带有冗余信息的一个或多个大型包含文件。

您可能感兴趣的文章:ASP中Server.Execute和Execute实现动态包含(include)脚本的区别分享一个好东东,动态Include文件 (Dynamic File Includes)asp动态include文件，方便多模板的实现