asp动态调用不同include文件方法
作者：秋水无恨 来源：蓝色理想 发布时间：2007-09-26 14:22:00
受<! #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")
0
投稿猜你喜欢
- 是否应该开启缓冲器？ 通过脚本程序启动缓冲器 在ASP脚本的顶部包含Response.Buffer=True ，IIS就会将页面的内容缓存。
- 第一步一般是建立一个关键字替换表 如 id keyword url 等字段第二步是文章显示时把【文章】内容和【关键字替换表】对应的关键字替换
- 删除备份和还原历史记录表中所有早于 oldest_date 的备份集的项目。由于执行备份或还原操作时会在备份和还原历史记录表中添加行，sp_
- 以下代码已经在SQLServer2008上的示例数据库测试通过问题一：如何为数据进行加密与解密，避免使用者窃取机密数据？ 对于一些敏感数据，
- 用SQL语句添加删除修改字段 1.增加字段 alter table docdsp add dspcode char(200) 2.删除字段
- 在获得SA密码后，往往因为服务器管理者或”前人”将net.exe和net1.exe被限制使用，无法添
- 1。在Asp页面首部<head>加入 Response.Buffer =
- 在Firefox推出3.5后，他增加了许多新的支持，今天抽空将他们整理一下。属性image-renderingtext-renderingi
- 如何在页面错误时向数据库中添加记录？在ASP中，我在页面中添加了On Error Resume Next错误命令，以消除和避免程序错误。现在
- JavaScript 代码一般最常见的语法格式就是定义函数 function xxx(){/*code...*/}，经常有这样的一大堆函数定
- 用ASP代码实现对access数据库的在线压缩处理，注意压缩前请备份数据库。我们知道每个一段时间压缩一下access数据库，可以减少数据库的
- 在Oracle 8i版本之前，使用internal用户来执行数据库的启动和关闭以及create database等操作；从8i版本以后，Or
- 当然，这些并非真正的定律，而只是一些有益的忠告，使你免陷于使用层时可能的困顿中。原来有九条定律的，我们精简掉一条，还有下面的八条：1. 如果
Facebook的网站速度做为最关键的公司任务之一。在2009年，我们成功地实现了Facebook网站速度提升两倍 。而正是我们的工程师团队- 最近越来越多在博客上写些UX相关的内容作为分享，就涉及到跟普通博文不一样的文章建构问题。文章内容固然很重要，但排版、组织也是提高可读性和用户
- 在现代LOGO设计当中，叶子的形状被视做好的创意。或者说，是一种变革的想法。在网页中他们大多被用于轻量级的解决方案、干净的不抽像的设计。在实
- 当服务器必须提供与两个或更多个网络或网络子网的连接时，典型的方案是使用多宿主计算机。此计算机通常位于外围网络（也称为 DMZ、外围安全区域或
- 从大的发展来看，网站就是一块试验田，一块在错误中成长、在错误中变强变大的试验田。这决定了互联网产品的成长路线，一定是一个反复修正和迭代的曲线
- 在近日的写Web程序时用到了Access的模糊查询,在Acces里写代码怎么也找不到记录后来才起来原来Acess和SqlServer的模糊查
- 论坛里面有不少人在使用Javascript编写Asp，经常有人在论坛提问，为什么Asp对象在对比指定值时返回结果不对？现在在这里给大家写点关
