admin/article/ks.article.asp 文件里删除就行了。

1030行开始

If Title <> "" And Tid <> "" And (Action = "Add") Then

      SqlStr = "select * from " & KS.C_S(ChannelID,2) &" where Title=" & KS.WithKorean() &"'" & replace(Title,"'","''") & "' And Tid='" & Tid & "'"

       RS.Open SqlStr, conn, 1, 1

     If Not RS.EOF Then ErrMsg = ErrMsg & "该类别已存在此篇" & KS.C_S(ChannelID,3) & "! \n"

       RS.Close

    End If

    if KS.ChkClng(Request("NewsID"))<>0 then

      SqlStr = "select * from " & KS.C_S(ChannelID,2) &" where id<>" & KS.ChkClng(Request("NewsID")) & " and Title=" & KS.WithKorean() &"'" & replace(Title,"'","''") & "' And Tid='" & Tid & "'"

       RS.Open SqlStr, conn, 1, 1

     If Not RS.EOF Then ErrMsg = ErrMsg & "该类别已存在此篇" & KS.C_S(ChannelID,3) & "! \n"

       RS.Close

    end if