看看KS.Article.asp文件的保存区域

'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) & "! \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='" & 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

删除或像上面这样注释掉。