KS_Article第912行去掉如下行：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