苗景云的博客

‍‍如果您刚好不需要添加文章时，检查重名的功能，　请往下看。

用记事本等编辑工具打开admin/article/ks.article.asp

找到约1013行左右

找到

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

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

       RS.Open SqlStr, conn, 1, 1

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

       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='" & Title & "' And Tid='" & Tid & "'"

       RS.Open SqlStr, conn, 1, 1

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

       RS.Close

    end if

把以上代码删除即可。‍‍