标题:在线求助:关于ASP的include文件的使用问题!
只看楼主
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
结帖率:75%
 问题点数:0 回复次数:3 
在线求助:关于ASP的include文件的使用问题!
现在小妹需要在ASP的<!--#include file="xxxxxx.xx"-->中加入变量,不知道能不能加入,怎么加入.
我想通过变量来改变加载的页面,也就是加入的页面随变量的变化而变化,我现在没能够做到,不知道在技术上呢功能不能实现,怎样实现.就是把xxxxxx改为变量,有哪位高手知道的,请给小妹指导,谢谢.在线等!

[此贴子已经被作者于2005-4-7 15:07:23编辑过]


搜索更多相关主题的帖子: include ASP 文件 在线 
2005-04-07 15:06
griefforyou
Rank: 6Rank: 6
等 级:贵宾
威 望:27
帖 子:3336
专家分:0
注 册:2004-4-15
得分:0 

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


天津网站建设 http://www./
2005-04-07 21:49
hxfly
Rank: 5Rank: 5
等 级:贵宾
威 望:17
帖 子:5807
专家分:108
注 册:2005-4-7
得分:0 
小妹先谢过了,现在再仔细看看.不过2楼不是我想要的效果,我想做的是include的是动态的效果,我自己也不能确定要包含什么文件,而且主要是因为我的需要是所包含的文件的数量随时发生变化的,所以,那样做的话,是达不到我想要的效果的.那也谢谢了,呵呵!

2005-04-08 08:05
daitoue
Rank: 1
等 级:新手上路
帖 子:87
专家分:0
注 册:2005-4-8
得分:0 
呵呵, 这个你可以通过后台进行添加你所要改变的文件.
然后在前台通过时间的推移来实现文件的转换.
我不知道你想要的是不是这样的.

QQ:32726716 skype:daitoue577
2005-04-08 10:41



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-14999-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.476452 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved