西安网站建设asp动态include文件的方法

25992012-08-29

在实际西安网站建设工作中,我们在做asp编程开发的时候会偶尔遇到这样的情况:

 <%
c=request("c")
if c=1 then url="a.asp"
else
  url="b.asp"
end if
%>
<!--#include file="<%=url%>"-->

我们希望能使用上面的方法动态include文件,但是上面的写法是错误的,不能运行,西安网站建设团队点墨网络竭诚为您服务。如果真的遇到这样的情况,又希望能够动态include文件如何办?
这里介绍一下一个函数,来实现这样的方法。
原理:西安网站建设使用fso读取include文件的内容,然后去掉<%和%>,再把剩下的内容放到当前页面上来,也就是fso读取文件的原因了。具体代码如下:

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

有了这个函数,上面的代码可以改成

<%
c=request("c")
if c=1 then
 url="a.asp"
else
  url="b.asp"
end if
call include(url)
%>
 

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1