用科讯的大虾们都知道这个科讯首页跳转问题,在启用首页静态后,如果用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
|
这样就可以了
不懂asp或则想偷懒的看这里
已经修改好的文件 解压覆盖即可 115下载: 以下内容只有回复后才可以浏览,请先登录!
原文地址:http://www.webx32.com/216.html