经常有这样的要求,根据不同的需求要求include不同的文件如各个人的不同设置,所以要求能动态include文件受<! #include file="filename.asp" --> 宏限制
必须存在该文件并且会预先编译(不管前面是否加以条件)
经常有这样的要求,根据不同的需求要求include不同的文件
如各个人的不同设置,所以要求能动态include文件。
代码如下:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 | Functioninclude(filename) Dimre,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 EndFunction |
使用范例:
include("youinc.asp")
1 2 3 4 5 6 7 | <% "得到用户所在的省份 DimProvince Province = Request.form("Province") "下面显示这个省份相关的信息 %> <!--#include virtual="/ Province/<%= Province%>"--> |
你觉得上面的代码可以工作吗?不!简单地使用ASP来达到动态包含,你不能达到你想要的效果。为什么?因为:Include命令先于ASP代码而得到执行,所以,上面的代码并没有按照作者的意愿,先得到用户所在的省份,再包含这个省份的信息!
如果你确实需要动态包含,你可以这样做:
1 2 3 4 5 6 7 8 9 | <% SelectCaseProvince Case1: %> <!--#include file="1.asp" <%Case2: %> <!--#include file="2.asp" <%Case3: %> <!--#include file="3.asp" <%EndSelect%> |
应该说,这段代码可以得到你想要的结果。但是,由于你的用户可能来自于33个省,你难道包含33个文件?特别要说明的是,SSInc.dll是不知道你究竟需要哪个包含文件的(事实上,这时候Province还没有值),所以,她把所有的文件都包含进来了!你可以想象,这时候的文件有多大!然后,ASP.DLL会去扫描这个文件中的ASP代码,然后执行!
所以,每当这样的时候,你应该考虑其他的思路,比如数据库,或者采用FileSystemObject。
解答
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:
1 2 3 4 5 6 7 8 9 10 11 | <% 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作为条件。你还可以把时间、日期、浏览器版本等作为条件。但是,条件越复杂,这种方法的效率越差。下面提供了另外一种思路:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | <% 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调用。代码如下:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 | <% FunctiongetFileContents(strIncludeFile)"函数:读取包含文件内容 DimobjFSO,objText,strPage SetobjFSO = Server.CreateObject("Scripting.FileSystemObject")"调用FSO对象 SetobjText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile)) getFileContents = objText.ReadAll objText.Close SetobjText =Nothing SetobjFSO =Nothing EndFunction 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...
此方法适用于要包含的文件数量不多的情况下,也是懒人+笨人的方法,呵呵。代码如下:
1 2 3 4 5 6 7 | <%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
方法和第二种差不多,稍微好点。代码如下:
1
声明:本页内容由湖南景煌网络通过网络收集编辑所得,所有资料仅供用户参考;本站不拥有所有权,也不承认相关法律责任。如您认为本网页中有涉嫌抄写的内容,请及时与我们联系进行举报,并提供相关证据,工作人员会在5个工作日内联系您,一经查实,本站将立刻删除涉嫌侵权内容。如果您对网站优化核心技术文章感兴趣,请点击查看网站建设和网站推广的相关文章,请关注湖南景煌网络官网(www.0731jianzhan.com)
相关资讯
Releva ntnews
服务推荐
Hot sale ltem
Copyright © 2014-2023 湖南景煌网络科技有限公司 湘ICP备19019417号-1 All Rights Reserved
|