分享
 
 
 

如何实现真正的动态包含

王朝other·作者佚名  2006-12-16
窄屏简体版  字體: |||超大  

一、动态包含文件

本文假定读者已经熟悉HTML、ASP和ActiveX对象的使用。在这里,我们将使用FileSystemObject和TextStream对象实现“动态包含”功能,即实现动态的include指令。

通常我们所设想的动态包含是:用一个变量保存待包含文件的名字,然后把该变量传入include指令。相信我们之中的许多人都曾经想要在自己的ASP应用中使用动态包含的文件,但最终却发现服务器并不直接支持动态包含。

首先应该搞清楚下面的代码是无法实现动态包含的:

' 声明用来保存文件名字的变量

Dim MyFile

' 在变量中保存包含文件的名字

MyFile = Request("SomeFileName")

' 将保存有文件名字的变量传递给include指令

%

--

上面的代码之所以不能实现动态包含,是因为ASP对include指令的处理早于脚本代码。如果我们执行上述代码,系统将提示错误说找不到包含文件。

使用包含文件的动机之一是让它作为静态HTML内容的容器,然后通过include指令来引用这个文件。包含文件中的静态HTML通常不作改动,比如标准的页头和页脚。但有些时候我们却需要根据用户的输入或其他条件提供不同的内容。为了不至于为每一种可能的情形分别创建完整的页面,“动态包含”文件这一概念就出现了。然而,正如上面说明的,表面上看起来最为合理的实现方法其实是没有用的。

为了解决这个问题,我们可以用FileSystemObject对象读入目标包含文件并保存到字符串变量,然后将这个字符串变量插入到发送给客户浏览器的页面。下面这个getFileContents函数帮助实现这个处理过程,它读入参数中指定的文件,然后将其内容作为字符串返回。

' 把文件名字传递给函数

Function getFileContents(strIncludeFile)

Dim objFSO

Dim objText

Dim strPage

' 初始化FileSystemObject对象

Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

'打开文件并把它传递给TextStream对象(objText)。Server对象的

'MapPath函数用于获得文件的物理路径

Set objText = objFSO.OpenTextFile(Server.MapPath(strIncludeFile))

'读取并以字符串形式返回文件内容

getFileContents = objText.ReadAll

objText.Close

Set objText = Nothing

Set objFSO = Nothing

End Function

%

使用这个函数即可实现动态地包含文件。首先,我们读入主页面(即包含页面布局和所有静态内容的模板文件)并把它保存到字符串变量;然后再读入包含文件并保存为字符串变量;最后,把保存包含文件内容的变量插入到主页面的内容之中。

二、应用实例

首先我们来看一下模板文件。下面的代码包含了一个HTML注释“”,我们将用包含文件的内容来取代这个HTML注释。

欢迎到访!

下面再来看一下本例所用的几个包含文件。第一个包含文件是默认的包含文件。默认包含文件是一个表单,允许用户选择打开其他三个包含文件中的其中一个。注意这个表单没有指定“action”属性,这表示表单将提交给它自己(即重新打开dynamicin3.asp)。

请选择一个您希望打开的文件

文件 #1 文件 #2 文件 #3

为简单计,其他三个包含文件的内容都很简单:

文件 #1

返回默认页面

文件 #2

返回默认页面

文件 #3

返回默认页面

下面是dynamicinc3.asp页面的代码及其说明。

'-------------------------------------------------------------

'getFileContents函数放到ASP文件的最前面

'-------------------------------------------------------------

'声明存放主页面和包含文件内容的变量

Dim strMain, strInclude

'读取主页面的内容并保存到strMain变量

strMain = getFileContents("maintemplate.inc")

'检查cboFile选择框是否已经选择。如是,读取所要求的文件

'否则,读取默认的包含文件

If Request.form("cboFile") = "" Then

strInclude = getFileContents("includedefault.inc")

Else

strInclude = getFileContents(Request.form("cboFile"))

End If

'把合适的包含文件读入到变量strInclude之后

'使用Replace函数将它插入到strMain文件

strMain = replace(strMain,"",strInclude)

'将结果发送到客户端

Response.Write strMain

%

本例能够正常运行,而且从效果上看达到了动态包含文件的目的。但它没有使用include指令,而是使用了FileSystemObject来替代。

运行这个例子,右击页面并查看源文件,可以发现页面中插入的是默认的包含文件。然后,从选择列表选择一个包含文件。提交表单重新装载页面之后,再查看页面的源文件,可以发现此时插入的是刚才选择的包含文件。

当我们想要分离页面的布局和它的内容时,这种技术是很有用的。我们可以创建描述网站布局的模板,再以包含文件形式制作网站的内容,最后使用ASP就可以方便地把两者结合起来!

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
2023年上半年GDP全球前十五强
 百态   2023-10-24
美众议院议长启动对拜登的弹劾调查
 百态   2023-09-13
上海、济南、武汉等多地出现不明坠落物
 探索   2023-09-06
印度或要将国名改为“巴拉特”
 百态   2023-09-06
男子为女友送行,买票不登机被捕
 百态   2023-08-20
手机地震预警功能怎么开?
 干货   2023-08-06
女子4年卖2套房花700多万做美容:不但没变美脸,面部还出现变形
 百态   2023-08-04
住户一楼被水淹 还冲来8头猪
 百态   2023-07-31
女子体内爬出大量瓜子状活虫
 百态   2023-07-25
地球连续35年收到神秘规律性信号,网友:不要回答!
 探索   2023-07-21
全球镓价格本周大涨27%
 探索   2023-07-09
钱都流向了那些不缺钱的人,苦都留给了能吃苦的人
 探索   2023-07-02
倩女手游刀客魅者强控制(强混乱强眩晕强睡眠)和对应控制抗性的关系
 百态   2020-08-20
美国5月9日最新疫情:美国确诊人数突破131万
 百态   2020-05-09
荷兰政府宣布将集体辞职
 干货   2020-04-30
倩女幽魂手游师徒任务情义春秋猜成语答案逍遥观:鹏程万里
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案神机营:射石饮羽
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案昆仑山:拔刀相助
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案天工阁:鬼斧神工
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案丝路古道:单枪匹马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:与虎谋皮
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:李代桃僵
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案镇郊荒野:指鹿为马
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:小鸟依人
 干货   2019-11-12
倩女幽魂手游师徒任务情义春秋猜成语答案金陵:千金买邻
 干货   2019-11-12
 
推荐阅读
 
 
 
>>返回首頁<<
 
靜靜地坐在廢墟上,四周的荒凉一望無際,忽然覺得,淒涼也很美
© 2005- 王朝網路 版權所有