★→ASP程序学习群:62655404 微信公众号开发
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

asp模拟动态加载include file

网络 2014/8/25 7:48:01 深山 字体:  浏览 2321 我要评论
当前标签
include
fun.asp 模拟动态加载include的函数
<%
Function qwbminclude(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
%>


time.asp 测试上面动态加载函数效果
<!--#include file="fun.asp"-->
<%
tid = "1"
response.write include(tid&".asp")
%>

 1.asp 测试加载之后的效果
<!--#include file="fun.asp"-->
<h3><%=tid%></h3>
<h1>111111111111111111</h1>
<h2><%=now()%></h2>
<%response.write include("b.asp")%>

 2.asp 测试加载之后的效果
<!--#include file="fun.asp"-->
<h3><%=tid%></h3>
<h1>22222222222222222</h1>
<h2><%=now()%></h2>
<%response.write include("b.asp")%>

 b.asp 这个页面是用来测试嵌套加载效果
<!--#include file="fun.asp"-->
现在时间:<hr>
<%=time()%><br />
<%=now()%><br />
<h3><%=tid%></h3>

相关阅读
( 2018/5/28 17:01:29 )asp中求两个数的百分比(利用百分比函数FormatPercent就可以自带%的符号)
( 2016/6/16 11:49:35 )access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
( 2015/3/11 9:03:55 )asp利用正则检查手机端的浏览器标识来确定是否是手机访问 如果是手机访问就使用手机模板
( 2011/1/27 15:56:13 )javascript编写的网页版的打字测试程序
( 2011/1/19 9:12:23 )asp统计信息/文章每日、每周、每月、总访问量的方法
( 2009/6/8 22:55:46 )ASP把数字用逗号每3位隔开显示代码
( 2009/4/18 23:18:57 )ASP+Access随机读取数据库记录的方法
( 2008/12/6 14:18:53 )深山行者个人网站程序V0.1
共有0条关于《asp模拟动态加载include file》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 1000 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
批量删除access字段里面fld.Properties.Delete
ASP操作access或sqlserver数据库的函数库
asp中求两个数的百分比(利用百分比函数FormatPercent就可以自带%的符号)
asp利用sql操作数据表、数据库的一些方法
rs操作数据表记录集对象的方法
[转载]中国行政区划数据(省市区街道)
ASP版通过身份证信息获取对应的生日性别年龄
ASP网站打开特别卡 提示:msxml3.dll 错误 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解决办法
更多>>最新添加文章
批量删除access字段里面fld.Properties.Delete
ASP操作access或sqlserver数据库的函数库
asp采用access数据库搜索信息时因为日文片假名问题提示“Microsoft JET Database Engine 错误80040e14”的解决方法
asp中求两个数的百分比(利用百分比函数FormatPercent就可以自带%的符号)
asp利用sql操作数据表、数据库的一些方法
rs操作数据表记录集对象的方法
asp利用dateadd获得上个月、本月、下个月的第一天和最后一天
asp随机显示字符长度与类型(可随机显示数字、小写字母、大写字母,可以做为随机密码使用)
更多>>随机抽取信息
对access数据表进行操作
利div+css做的柱状图,代码超级简洁
用css做的英文首字母大写和英文全都大写通过各个浏览器
防网页机器人随处发帖
详解HTML标记里面的em和strong的区别
留言板(钓鱼岛模板)V5.3
动态返回selected选择框的代码说明
简单Asp图片验证码