asp动态include文件

最新推荐文章于 2023-05-26 16:34:31 发布

原创最新推荐文章于 2023-05-26 16:34:31 发布 · 929 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#include #asp #function #file

ASP 专栏收录该内容

6 篇文章

订阅专栏

博客指出受宏限制，文件需存在且会预先编译。提出根据不同需求动态include文件的要求，如根据个人不同设置，还给出了使用范例include(\youinc.asp\)。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

受 宏限制
必须存在该文件并且会预先编译（不管前面是否加以条件）

经常有这样的要求，根据不同的需求要求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")