看看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
删除或像上面这样注释掉。