欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

ASP动态include文件

程序员文章站 2022-07-02 18:23:17
 经常有这样的要求,根据不同的需求要求include不同的文件如各个人的不同设置,所以要求能动态include文件受

 经常有这样的要求,根据不同的需求要求include不同的文件如各个人的不同设置,所以要求能动态include文件受<! #include file="filename.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")

asp可以动态include文件

<% 
'得到用户所在的省份 
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。

怎样动态include文件?

解答
asp程序员经常面临的最大挑战之一是动态include文件。由于#include 在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 
%> 
<!--#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动态包含方法(含变量)

很多时候,由于程序设计需要,要求在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的include包含命令,需要注意以下方面。

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

<!-- 该脚本将失败 -->
<% name= header1.inc %>
<!-- #include file="<%= name %>" -->

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

<!-- 该脚本将失败 -->
<%
for i = 1 to n
主文件中的语句
<!-- #include file="header1.inc" -->
next
%>
但下面的脚本会起作用:
<%
for i = 1 to n
主文件中的语句
%>
<!-- #include file="header1.inc" -->
<% next %>

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

相关标签: 动态 include