none
求助:ADODB.Recordset 错误 '800a0bb9' (asp) RRS feed

  • 问题

  •  

    我在网上下载了个ASP版的BLOG(),我想在加面加个方法,结果出现错误,提示

    ADODB.Recordset 错误 '800a0bb9'

    参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。

    /111.asp,行 26

    我原以为是我的电脑问题,结果传到服务器问题依服.

    谁有空帮忙看看是不是我这代码写的有什么问题,我弄了一个早上也不行

     

     

    代码如果

     

    Code Snippet
    dim cid,t
     dim sql,rs,s,where,cc
     dim sqlt,rst,pmig,topid
     topid=0 
     cid=35
     t=5
     cc=""
     s=""
     if(cid>0) then
     cc=" and (classid="&cid&")"
     end if
     sqlt="select top 1 * from oblog_log where (logtext like '% response.Write sqlt
     set rs=Server.CreateObject("Adodb.Recordset")
     rs.open sqlt,conn,1,1   '这里26行
     if not (rs.eof and rs.bof) then
     s=" "&vbcrlf
     topid=rs("logid")
     end if
     rs.close
     set rs=nothing
     '下面部份
     if(topid>0)then
      where=where&" where (logid!="&topid&") "
     end if
     if(where<>"") then
      where=where&cc
     else
      where=" where (classid="&cid&")"
     end if 
     
     sql="SELECT  top "&t&" * FROM oblog_log "&where&" order by addtime desc"
     'response.End()
     Set rs=Server.CreateObject("Adodb.Recordset")
     rs.open sql,CONN,1,1
     If Not(rs.eof and rs.bof) Then
      s=s&" "& vbcrlf
     End If
     response.Write s
     rs.close
     set rs=nothing
     conn.close
     set conn=nothing

     

    下面是用到的方法
     
    Code Snippet
    '*************************************************
    '函数名:gotTopic
    '作  用:截字符串,汉字一个算两个字符,英文算一个字符
    '参  数:str   ----原字符串
    '       strlen ----截取长度
    '返回值:截取后的字符串
    '*************************************************
    function czgotTopic(str,strlen)
    dim gotTopic
     if str="" then
      gotTopic=""
      exit function
     end if
     dim l,t,c, i
     str=replace(replace(replace(replace(str,"&nbsp;"," "),"&quot;",chr(34)),"&gt;",">"),"&lt;","<")
     l=len(str)
     t=0
     for i=1 to l
      c=Abs(Asc(Mid(str,i,1)))
      if c>255 then
       t=t+2
      else
       t=t+1
      end if
      if t>=strlen then
       gotTopic=left(str,i) & "…"
       exit for
      else
       gotTopic=str
      end if
     next
     czgotTopic=replace(replace(replace(replace(gotTopic," ","&nbsp;"),chr(34),"&quot;"),">","&gt;"),"<","&lt;")
    end function
    '删除HTML
    Function czdelHTML(strHTML)
    Dim objRegExp, Match, Matches
    Set objRegExp = New Regexp
    objRegExp.IgnoreCase = True
    objRegExp.Global = True
    '取闭合的<>
    objRegExp.Pattern = "<.+?>"
    '进行匹配
    Set Matches = objRegExp.Execute(strHTML)
    ' 遍历匹配集合,并替换掉匹配的项目
    For Each Match in Matches
    strHtml=Replace(strHTML,Match.Value,"")
    Next
    czdelHTML=strHTML
    Set objRegExp = Nothing
    End Function
    '获取图片地址
    Function czgetImages(Str)
    dim content,regstr,url
    content=str&""
    regstr="src\=.+?\.(gif|jpg)"
    url=Replace(Replace(Replace(RegExp_Execute(regstr,content),"'",""),"""",""),"src=","")
    czgetImages=url
    end function
    Function RegExp_Execute(patrn, strng)
    Dim regEx, Match, Matches,values '建立变量。
    Set regEx = New RegExp '建立正则表达式。
    regEx.Pattern = patrn '设置模式。
    regEx.IgnoreCase = true '设置是否区分字符大小写。
    regEx.Global = True '设置全局可用性。
    Set Matches = regEx.Execute(strng) '执行搜索。
    For Each Match in Matches '遍历匹配集合。
    values=values&Match.Value
    Next
    RegExp_Execute = values
    End Function

     

     

    2008年11月19日 6:06

答案

  •  

    conn没有打开吧

     

    conn.Open()

     

     

    另外

    你这里少东西了吧

     

    sqlt="select top 1 * from oblog_log where (logtext like '% response.Write sqlt

     

     

    贴的语句不完整

    2008年11月19日 13:14
    版主

全部回复