账号通
    

账号  

密码  

5483

查看

18

回复
主题:[分享]关于自定义页面获取页面名称【解决办法】 [收藏主题] 转到:  
zeroone 当前离线

23

主题

1

广播

0

粉丝
添加关注
级别:学前班

用户积分:340 分
登录次数:45 次
注册时间:2008/11/13
最后登录:2012/12/21
zeroone 发表于:2012/4/24 12:03:55   | 显示全部帖子 查看该作者主题 楼主 
科汛智能建站系统

1. 修改 admin/include/RefreshCommonPageSave.asp  查找



Call KSRObj.RefreshCommonPage(refreshrs("TemplateFileName"),RefreshRS("fsofilename"))  '调用通用页面刷新函数



修改为:



Call KSRObj.RefreshCommonPage(refreshrs("TemplateFileName"),RefreshRS("fsofilename"),RefreshRS("TemplateName"))



2.修改 admin目录下的 KS.DIYPage.asp的 605行代码

Call KSRCls.RefreshCommonPage(TemplateFileName,FileName)

修改为:

Call KSRCls.RefreshCommonPage(TemplateFileName,FileName,TemplateName)

3.修改 KS_CLS目录下的 Kesion.Label.CommonCls.asp 查找函数

Function RefreshCommonPage(ByVal FileName,FsoFileName)



修改为



Function RefreshCommonPage(ByVal FileName,FsoFileName,Title)

然后修改函数内容 在 F_C = LoadTemplate(FileName)这样下面添加



F_C = Replace(F_C,"{$Title}",Title)   '这里的{$Title}是自定义页面模板里使用,来获取当前自定义页面的名称。当然可以修改为你自己喜欢的标签来代替我这里的{$Title},只是注意不要忘记修改模板里的对应标签





PS:说以哟。RefreshCommonPage这个函数你注意哟里面还有 F_C = KSLabelReplaceAll(F_C) 这一行代码,而我添加的一行代码   F_C = Replace(F_C,"{$Title}",Title) 必须在这个上面。因为KSLabelReplaceAll函数可能把 我的{$Titile}提前替换了,如果我添加的那代码放在这个下面就会替换不到了。因为已经替换为空白了。 放在这行代码上面,提前替换,就OK了。



//目前测试没有问题,有什么问题,大家发上来谈谈。









 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.10156秒 powered by KesionCMS 9.0