ASP动态include文件

发布时间：2023-02-20 09:23:01 所属栏目：Asp 来源：互联网

导读：经常有这样的要求，根据不同的需求要求include不同的文件如各个人的不同设置，所以要求能动态include文件受! #include file=filename.asp -- 宏限制必须存在该文件并且会预先编译（不管前面是否加以条件）经常有这样的要求，根据不同的需求要求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")
　　'下面显示这个省份相关的信息
　　%>
　　
　　你觉得上面的代码可以工作吗？不！简单地使用ASP来达到动态包含，你不能达到你想要的效果。为什么？因为：Include命令先于ASP代码而得到执行，所以，上面的代码并没有按照作者的意愿，先得到用户所在的省份，再包含这个省份的信息！
　　如果你确实需要动态包含。
　　<%
　　Select Case Province
　　Case 1: %>
　　
　　<font color=#ff0000>This is 1.htm</font>
　　
　　<font color=#0000ff>This is 2.htm</font>

　　现在我们来试试动态Include：
　
　　<%
　　if request.querystring('param')='2' then
　　%>
　　
　　<%
　　else
　　%>
　　
　　<%
　　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包含文件里调用动态的文件。如其中的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%>
　　
　　<%elseif a=2 then%>
　　
　　<%elseif a=3 then%>
　　
　　<%end if%>
　　解决方法三：select case

　　<%select case p
　　case 1%>
　　
　　<%case 2%>
　　
　　<%case 3%>
　　
　　<%case 4%>
　　
　　<%end select%>
　　如果你有其他更好的方法，欢迎与我们交流。您可以把你您的想法留在博客评论里，我们期待与您的探讨。

　　补充：关于asp的include包含命令，需要注意以下方面。

（编辑：十堰站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!

1/2

尾页