出现
ADODB.Recordset '800a0bcd' 

BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 

这什么意思啊

<%  
                Dim title,IsUpdates,Rs,SQL
                Dim Conn,db,Connstr

                title = request.Form("Title")
                If title="" then
                   Response.end()
                End If
        '检查重复文章
                db = "cooc/#newasp.mdb"
                Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath(db)
                Set Conn = Server.CreateObject("ADODB.Connection")
                Conn.Open Connstr
                Set Rs = CreateObject("ADODB.Recordset")
        SQL = "SELECT * FROM NC_Article WHERE title='" & title & "'"
        Rs.Open SQL, Conn, 1, 3
        If Rs.EOF Then
            IsUpdates = False
        Else
                        IsUpdates = True
        End If
        
        If IsUpdates Then           '添加数据
                                Rs.Addnew
                                call Save    
                                Rs.Update      
                                Rs.Close
                Set Rs = Nothing
                Response.Write 1
    
        Else                        '更新数据
                                call Save
                                Rs.Update      
                                Rs.Close
                Set Rs = Nothing
                Response.Write 2
        End If    

                Sub Save()
                        Rs("ChannelID") = Request.Form("ChannelID") '模块ID
                Rs("SpecialID") = 0 '所属专题
                Rs("ClassID") = Request.Form("ClassID")     '分类ID
                Rs("title") = title                         '文章标题
                Rs("subject") = Request.Form("subject")     '副 标 题
                Rs("BriefTopic") =Request.Form("BriefTopic")'标题类型
                Rs("ColorMode") = Request.Form("ColorMode") '颜色模式
                Rs("FontMode") = Request.Form("FontMode")   '字体模式
                Rs("content") = Request.Form("TextContent") '文章内容
                Rs("Related") = Request.Form("NewsRelated") 'Tag标签
                Rs("Author") = Request.Form("strAuthor")    '文章作者
                Rs("ComeFrom") = Request.Form("strComeFrom")'文章来源
                Rs("star") = Request.Form("star")           '文章星级
                Rs("isTop") = Request.Form("isTop")         '文章置顶 --1 置顶 0 不置顶
                Rs("isBest") = Request.Form("isBest")       '文章推荐 --1 推荐 0 不推荐
                Rs("isAccept") = Request.Form("isAccept")   '发布文章
                Rs("isxmltext") = Request.Form("isxmltext") '保存为XML
                Rs("ForbidEssay")=Request.Form("ForbidEssay")'发表评论-- 1 不可以 0 可以
                Rs("AllHits") = Request.Form("AllHits")     '初始点击数
                Rs("DayHits") = Request.Form("DayHits")     '文章当天点击数
                Rs("WeekHits") = Request.Form("WeekHits")   '文章周点击数
                Rs("MonthHits") = Request.Form("MonthHits") '文章月点击数
                Rs("ImageUrl") = Request.Form("ImageUrl")   '幻灯片播放
                Rs("UserGroup") = Request.Form("UserGroup") '浏览等级 -- 0所有
                Rs("PointNum") = Request.Form("PointNum")   '浏览点数
                Rs("AutoPages") = Request.Form("AutoPages") '自动分页
                Rs("HitsTime") = Now()
                Rs("WriteTime") = Request.Form("WriteTime") '更新时间
                Rs("HtmlFileDate") = Request.Form("HtmlFileDate")
                Rs("username") = Request.Form("username")   '发布者姓名
                Rs("isUpdate") = 1
                Rs("AlphaIndex") = Request.Form("AlphaIndex")'索引
                  End Sub
%>