科讯v7首页跳转优化提搞主域名权重不再跳转到index.htm-领先建站CMS提供服务商我们专注于CMS建站产品的研发

2059 查看	2 回复

主题：[分享]科讯v7首页跳转优化提搞主域名权重不再跳转到index.htm [收藏主题]

hit2005 当前离线

83 主题	0 广播	0 粉丝

级别:学前班

用户积分:112 分
登录次数:63 次
注册时间:2011/9/2
最后登录:2015/7/14

hit2005 发表于：2011/10/10 16:47:03 | 显示全部帖子查看该作者主题楼主

有课程找生源就上科汛课堂街

用科讯的大虾们都知道这个科讯首页跳转问题，在启用首页静态后，如果用index.html优先那么注册和投票功能就不行，如果用index.asp优先就会跳转。

鱼和熊掌不可兼得，现在再次解决此问题！

只需要改一个文件就好, 下面开始动手。小手术。。。

打开ks_cls/Kesion.AppCls.asp

找到（大约40行）

01

02

03

04

05

06

07

08

09

10

Dim Template,FsoIndex:FsoIndex=KS.Setting(5)

               IF Split(FsoIndex,".")(1)<>"asp" Then

                  Response.Redirect KS.Setting(5):Exit Sub

               Else

                  Template = KSR.LoadTemplate(KS.Setting(110))

                  FCls.RefreshType = "INDEX" '设置刷新类型，以便取得当前位置导航等

                  FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签

                  Template=KSR.KSLabelReplaceAll(Template)

            End IF

            Response.Write Template

改为

01

02

03

04

05

06

07

08

09

10

11

12

13

14

15

16

17

18

Dim Template,FsoIndex:FsoIndex=KS.Setting(5)

               FCls.RefreshType = "INDEX" '设置刷新类型，以便取得当前位置导航等

               FCls.RefreshFolderID = "0" '设置当前刷新目录ID 为"0" 以取得通用标签

               IF Split(FsoIndex,".")(1)<>"asp" Then

               If KS.CheckFile(KS.Setting(3) & KS.Setting(5)) = False Then

                  Template = KSR.LoadTemplate(KS.Setting(110))

                  Template=KSR.KSLabelReplaceAll(Template)

                  Call KS.WriteTOFile(KS.Setting(5),Template)

                  KS.Die Template

               Else

                  KS.Die KS.ReadFromFile(KS.Setting(3) & KS.Setting(5))

               End If

               Else

                  Template = KSR.LoadTemplate(KS.Setting(110))

                  Template=KSR.KSLabelReplaceAll(Template)

            End IF

            Response.Write Template

这样就可以了

有课程找生源就上科汛课堂街

支持(12) |

反对(12)

顶端

底部

＜上一主题 | 下一主题＞

首页 1