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