我想通过变量来改变加载的页面,也就是加入的页面随变量的变化而变化,我现在没能够做到,不知道在技术上呢功能不能实现,怎样实现.就是把xxxxxx改为变量,有哪位高手知道的,请给小妹指导,谢谢.在线等!
[此贴子已经被作者于2005-4-7 15:07:23编辑过]
[此贴子已经被作者于2005-4-7 15:07:23编辑过]
经常有这样的要求,根据不同的需求要求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")