教学之友,学习之友。

站长教学网

当前位置: 站长教学网 > 网站编程 > ASP教程 >

asp如何动态include文件

时间:2012-03-30 00:57来源:未知 作者:ken 点击:

必须存在该文件并且会预先编译(不管前面是否加以条件)

经常有这样的要求,根据不同的需求要求include不同的文件
如各个人的不同设置,所以要求能动态include文件。

代码如下:

  1. <%  
  2. Function include(filename)  
  3.     Dim re,content,fso,f,aspStart,aspEnd  
  4.     set fso=CreateObject("Scripting.FileSystemObject")  
  5.     set f=fso.OpenTextFile(server.mappath(filename))  
  6.     content=f.ReadAll  
  7.     f.close  
  8.     set f=nothing 
  9.     set fso=nothing 
  10.     set re=new RegExp  
  11.     re.pattern="^\s*=" 
  12.     aspEnd=1 
  13.     aspStart=inStr(aspEnd,content,"<%")+2  
  14.     do while aspStart>aspEnd+1  
  15.         Response.write Mid(content,aspEnd,aspStart-aspEnd-2)  
  16.         aspEnd=inStr(aspStart,content,"%\>")+2  
  17.         Execute(re.replace(Mid(content,aspStart,aspEnd-aspStart-2),"Response.Write "))  
  18.         aspStart=inStr(aspEnd,content,"<%")+2  
  19.     loop  
  20.     Response.write Mid(content,aspEnd)  
  21.     set re=nothing 
  22. End Function  
  23. %>   

 

(责任编辑:ken)
TAG标签: asp include
顶一下
(0)
0%
踩一下
(0)
0%
------分隔线----------------------------
发表评论
请自觉遵守互联网相关的政策法规,严禁发布色情、暴力、反动的言论。
评价:
表情:
注册登录:不允许匿名留言,登录后留言无需输入验证码。
栏目列表
最新内容