经常有这样的要求,根据不同的需求要求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\") \'下面显示这个省份相关的信息 %>
你觉得上面的代码可以工作吗?不!简单地使用ASP来达到动态包含,你不能达到你想要的效果。为什么?因为:Include命令先于ASP代码而得到执行,所以,上面的代码并没有按照作者的意愿,先得到用户所在的省份,再包含这个省份的信息!
如果你确实需要动态包含,你可以这样做:
<% Select Case Province Case 1: %> <% 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包含文件里调用动态的文件。如其中的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程序在执行脚本命令之前就已经包含文件。因此,不能使用脚本命令来建立被包含的文件名。举例来说,因为 ASP 试图在将文件名指派给变量 name 之前执行“#include”命令,所以下面的脚本无法打开文件 Header1.inc。
<% name= header1.inc %>
\” –>
脚本命令和过程必须完全包含在脚本分隔符 <% 和 %> 内,即 HTML 标签 ,或 HTML 标签 内部。也就是说,不能在包含 .asp 文件中打开脚本分隔符,并在被包含的文件中关闭分隔符;脚本或脚本命令必须是一个完整的单元。例如,下面的脚本将不起作用:
<%
For i = 1 To n
主文件中的语句
Next
%>
但下面的脚本会起作用:
<%
For i = 1 to n
主文件中的语句
%>
<% Next %>
如果 ASP 脚本包含的文件中存在包含脚本不需要的大量函数和变量,则这些无用的结构反而会影响性能,并最终降低 Web 应用程序的伸缩性。因此,通常将包含文件分成多个小文件,并且只包含那些服务器端脚本必需的文件,而不是包含那些带有冗余信息的一个或多个大型包含文件。
上一篇:晓哥自留代码 特殊用途 看懂的用