首先想说一下科讯这套系统真的不错！不管是现在的asp版本的还是将来的asp.net版本的！我在使用的过程中也发现了一下问题比如：（v9.x版本）
1，后台建立sql标签的时候插入一个字段后再点击插入时就点击不动了
2，标签太多时（大约2000个左右），创建和修改标签系统会很慢！

下面开始上代码！先看实现后的效果！

首先打开ks_cls/Kesion.Label.BaseFunCls.asp 227行左右
'*********************************************************************************************************
        '函数名：ReplacePrevNext
        '作  用：上一篇、下一篇
        '参  数：NowID 现在ID,Tid 目录ID,TypeStr类型
        '*********************************************************************************************************
        Function GetPrevNextURL(ChannelID,NowID, Tid, TypeStr,ByRef Title)
             If Fcls.RefreshType<>"Content" Then GetPrevNextURL="#":Title="此标签只能放内容页模板!" : Exit Function
             Dim SqlStr,LinkUrl
             SqlStr="SELECT Top 1 ID,Title,Tid,Fname From " & KS.C_S(ChannelID,2) & " Where Tid='" & Tid & "' And ID" & TypeStr & NowID & " And Verific=1 and  DelTF=0 Order By ID"
             If TypeStr=">" Then SqlStr=SqlStr & " asc" else SqlStr=SqlStr & " desc"
             Dim RS:Set RS=Conn.Execute(SqlStr)
             If RS.EOF And RS.BOF Then
              GetPrevNextURL = "#" : Title = "没有了"
             Else
              LinkUrl = KS.GetItemURL(ChannelID,RS(2),RS(0),RS(3))
              GetPrevNextURL = LinkUrl : Title= "<a href=""" & LinkUrl & """ title=""" & RS(1) & """>" & RS(1) & "</a>"
             End If
             RS.Close:Set RS = Nothing
        End Function
        Function ReplacePrevNext(ChannelID,NowID, Tid, TypeStr)
             Dim Title
             Call GetPrevNextURL(ChannelID,NowID, Tid, TypeStr,Title)
             ReplacePrevNext=Title
        End Function
        
        '取文本字段的值
把以上代码改成一下代码即可

红色部分为改动的！目前适合科讯的各个版本

好东西。要顶。

好东东

不错！不做隐藏贴，可成为精华帖！

好东东。

1234567多劳多得

？？？？？？？？？？？？？？？？？？？

正在找这，就看到了，谢谢