asp 動態 include 頁面

本文介绍了一种在ASP中使用自定义函数包含外部文件的方法,并强调了该方法在处理VBScript和HTML混合代码时的限制及建议的解决方案。

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

Function include(filename)
  if filename = "" then
   exit function
  end if
  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 的文件不可以在裏面使用vb和html嵌套的語句。
如: <%IF true Then%>
         <p>顯示True</p>
         <%Else%>
         <p>顯示False</p>
         <%End IF%>
此類語句使用該方法會報錯。
建議需要此類的情況請用如下方式替代:
 <%
dim html
        if true then 
             html = "顯示True"
        else
             html = "顯示False"
       end if
       response.write("<p>" & html & "</p>")
%>
另外一種情況就是嵌套include。可以在每個頁面都使用該函數來include文件。

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值