打开admin/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

改成

If Title <> "" And Tid <> "" And (Action = "Add") Then
SqlStr = "select * from " & KS.C_S(ChannelID,2) &" where Title='" & Title & "'"
RS.Open SqlStr, conn, 1, 1
If Not RS.EOF Then ErrMsg = ErrMsg & "该类别已存在此篇" & KS.C_S(ChannelID,3) & "! \n"
RS.Close