| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 797 人关注过本帖
标题:asp提示:对象关闭时,不允许操作。请求高手解决
只看楼主 加入收藏
lgs19850616
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2013-9-22
结帖率:0
收藏
已结贴  问题点数:20 回复次数:2 
asp提示:对象关闭时,不允许操作。请求高手解决
ADODB.Field 错误 '800a0e78'

对象关闭时,不允许操作。

/lpsj/disp_lpsj.asp,行 171

行171代码: t_comcode=rs("comcode")

整个代码:

<%@LANGUAGE="VBSCRIPT"%>

<%
function m_d_y(val)
   if not isdate(val) then
      val=date   
   end if
   m_d_y=month(val)&"/"&day(val)&"/"&year(val)
end function
   
Dim xzfx

Dim xzfx_numRows
Dim rs1
Dim xzdm
Dim cxtj
Dim sql,t_sql,sqlstr
Dim t_totalcount
Dim t_shqd(3000,10)
Dim t_bz,bdbf,bdsl
Dim bgc
Dim dwdm
Dim t_bf(1000,13)

'dwdm=request.form("dwdm")


'sql=session("s_sqlstr")

sql1=session("s_sqlstr1")
sql2=session("s_sqlstr2")
sql3=session("s_sqlstr3")
sql4=session("s_sqlstr4")
sql5=session("s_sqlstr5")
sql6=session("s_sqlstr6")
sql7=session("s_sqlstr7")

'sql2=session("s_sqlstr2")
startdate=session("s_startdate")

 set connaj = server.createobject("adodb.connection")
 
   dsn_jyrb="bfpkcheck"
   connaj.open dsn_jyrb   
   set rs=Server.CreateObject("ADODB.Recordset")  
   
  set connaj1 = server.createobject("adodb.connection")
 
   dsn_jyrb1="lpbb10"
      
   connaj1.open dsn_jyrb1
set rs1=Server.CreateObject("ADODB.Recordset")     


rs.Open sql1,connaj,3,1
do while not rs.eof

  t_bf(i,0)=rs("comcode")
  t_bf(i,1)=rs("comcname")
  t_bf(i,2)=rs("clv")
  't_bf(i,2)=rs("articlename")
  't_bf(i,3)=rs("qbbf_year")
  't_bf(i,4)=rs("qbbf_month")
  't_bf(i,5)=rs("qbbf_day")
  't_bf(i,6)=rs("qbbf_lastyear")
  't_bf(i,7)=rs("qbbf_lastym")
  't_bf(i,8)=rs("comp_qbbf_year")
  't_bf(i,9)=rs("comp_qbbf_month")
   i=i+1
   'response.write i
   'response.end
   rs.movenext
   
loop
   
   rs.close

'response.write sql2
'response.end
'connaj.execute(sql2) 执行查询数据库里表的字段,得出数据


rs.Open sql2,connaj,3,1
do while not rs.eof
  t_comcode=rs("comcode")
   

  't_articlename=rs("articlename")

   FOR m=0 to i-1
          IF t_comcode=t_bf(m,0) THEN
              t_bf(m,3)=rs("czl")
              t_bz="Y"
          END IF
      next
  

 rs.movenext
   loop
   rs.close
 'connaj1.execute(sql3)
   
  
  
  
  
rs.Open sql5,connaj,3,1
do while not rs.eof
  t_comcode=rs("comcode")
   

  't_articlename=rs("articlename")

   FOR m=0 to i-1
          IF t_comcode=t_bf(m,0) THEN
              t_bf(m,6)=rs("jnlpzq2")
              t_bz="Y"
          END IF
      next
  

 rs.movenext
   loop
   rs.close


rs.Open sql6,connaj,3,1
do while not rs.eof
  t_comcode=rs("comcode")
   

  't_articlename=rs("articlename")

   FOR m=0 to i-1
          IF t_comcode=t_bf(m,0) THEN
              t_bf(m,7)=rs("jnlpzq")
              t_bz="Y"
          END IF
      next
  

 rs.movenext
   loop
   rs.close

'connaj.execute(sql7)
'response.write sql7
'response.end
 rs.Open sql7,connaj,3,1
do while not rs.eof
  t_comcode=rs("comcode")
   

  't_articlename=rs("articlename")

   FOR m=0 to i-1
          IF t_comcode=t_bf(m,0) THEN
              t_bf(m,8)=rs("jnlpzq1")
              t_bz="Y"
          END IF
      next
  

 rs.movenext
   loop
   rs.close
'connaj1.execute(sql3)
 rs1.Open sql3,connaj1,3,1
  do while not rs1.eof
  t_comcode=rs("comcode")

  't_articlename=rs("articlename")

   FOR m=0 to i-1
          IF t_comcode=t_bf(m,0)  THEN
              t_bf(m,4)=rs("ajpk1")
              t_bz="Y"
          END IF
      next
  

 rs1.movenext
   loop
  
   rs1.close
   
   'connaj1.execute(sql4)
   
   rs1.Open sql4,connaj1,3,1
do while not rs1.eof
  t_comcode=rs("comcode")
  't_articlename=rs("articlename")

   FOR m=0 to i-1
          IF t_comcode=t_bf(m,0)  THEN
              t_bf(m,5)=rs("ajpk2")
              t_bz="Y"
          END IF
      next
  

 rs1.movenext
   loop
  
   rs1.close  
   
   

 'response.write sql1
 

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
  

<table width="841" border="1" cellspacing="0" bordercolor="#3399FF">
  <tr>
    <th nowrap colspan="12" width="835" >查询时间: <%=startdate%>&nbsp&nbsp&nbsp 理赔指标完成情况查询&nbsp&nbsp&nbsp  </th>

</tr>

  <tr>
   
    <td nowrap bgcolor="#CCFFFF" width="94" >公司代码</td>
    <td nowrap bgcolor="#CCFFFF" width="94" >公司名称</td>  
    <td nowrap bgcolor="#CCFFFF" width="94" >全险种案件处理率(大于100%为达标</td>   
    <td nowrap bgcolor="#CCFFFF" width="89"  >全险种估损充足率(95%-110%为达标)</td>   
    <td nowrap bgcolor="#CCFFFF" width="89"  >万元以上非人伤车险案均赔款</td>
    <td nowrap bgcolor="#CCFFFF" width="89"  >同比降幅(同比降幅低于平均水平为达标)</td>
    <td nowrap bgcolor="#CCFFFF" width="67"  >万元以下非人伤车险案均赔款</td>
    <td nowrap bgcolor="#CCFFFF" width="67"  >同比降幅(同比降幅低于平均水平为达标)</td>
    <td nowrap bgcolor="#CCFFFF" width="90"  >万元以下全险种赔款理赔周期</td>
     <td nowrap bgcolor="#CCFFFF" width="90"  >同比提速(同比提速超过10%为达标)</td>
      <td nowrap bgcolor="#CCFFFF" width="90"  >万元以下车险赔款理赔周期</td>
    <td nowrap bgcolor="#CCFFFF" width="90"  >同比提速(同比提速超过10%为达标)</td>
    <td nowrap bgcolor="#CCFFFF" width="90"  >万元以下非车险赔款理赔周期</td>
      <td nowrap bgcolor="#CCFFFF" width="90"  >同比提速(同比提速超过10%为达标)</td>
 

  </tr>
  <%
  Dim t_xzdm,t_xzmc

FOR j=0 TO i-1
  if t_bf(j,0)="45000000" then
        bgc="#FF66FF"
   elseif t_bf(j,0)="45030000" then
          bgc="#99FF00"
    else
     bgc="#CCFFFF"
  end if
      
 %>


  <tr>
 
  <%
    't_xbxj(i,6)=ccur(t_xbxj(i,4)/t_xbxj(i,3)*100)
   
   
    if ccur(t_bf(j,11))>0 then

        t_bb=ccur(t_bf(j,10))/ccur(t_bf(j,11))*100
    else
        t_bb=100
    end if
    %>
   
     
     <td nowrap  bgcolor="<%=bgc%>"  ><%=t_bf(j,0)%> </A> </td>   
    <td nowrap bgcolor="<%=bgc%>" ><%=t_bf(j,1)%> </td>   
      <td nowrap bgcolor="<%=bgc%>" ><%=t_bf(j,2)%> </td>   
    <td nowrap bgcolor="<%=bgc%>" width="94" ><%=formatnumber(t_bf(j,3),-1,-1,0,0)%> </td>
   <td nowrap bgcolor="<%=bgc%>" width="89" ><%=formatnumber(t_bf(j,4),-1,-1,0,0)%>  </td>
    <td nowrap bgcolor="<%=bgc%>" width="89" > <%=formatnumber(t_bf(j,5),-1,-1,0,0)%>  </td>
    <td nowrap bgcolor="<%=bgc%>" width="89" > <%=formatnumber(t_bf(j,6),-1,-1,0,0)%>  </td>      
    <td nowrap bgcolor="<%=bgc%>" width="67" > <%=formatnumber(t_bf(j,7),-1,-1,0,0)%>  </td>   
    <td nowrap bgcolor="<%=bgc%>" width="90" > <%=formatnumber(t_bf(j,8),-1,-1,0,0)%>  </td>   
    <td nowrap bgcolor="<%=bgc%>" width="90" > <%=formatnumber(t_bf(j,9),-1,-1,0,0)%>  </td>  
    <td nowrap bgcolor="<%=bgc%>" width="90" > <%=formatnumber(t_bf(j,10),-1,-1,0,0)%>  </td>   
    <td nowrap bgcolor="<%=bgc%>" width="90" > <%=formatnumber(t_bf(j,11),-1,-1,0,0)%>  </td>   
    <td nowrap bgcolor="<%=bgc%>" width="90" > <%=formatnumber(t_bb,-1,-1,0,0)%>  </td>      
  

  </tr>


   
   
  

 
<%
 
  Next

set rs=nothing

connaj.close
set connaj=nothing
set rs1=nothing
connaj1.close
set connaj1=nothing


%>
</table>

<p> </p>
<p>&nbsp; </p>
</font>
</body>
</html>
搜索更多相关主题的帖子: function 
2013-09-22 14:42
303770957
Rank: 11Rank: 11Rank: 11Rank: 11
等 级:小飞侠
威 望:6
帖 子:838
专家分:2125
注 册:2005-9-10
收藏
得分:20 
你是不是把执行出错的地方都注释掉了?
每次应该是先执行: connaj1.execute(sql4)语句,
然后才是: rs1.close,顺序不对。


♂ 死后定当长眠,生前何须久睡。♀
2013-09-22 17:36
lgs19850616
Rank: 1
等 级:新手上路
帖 子:3
专家分:0
注 册:2013-9-22
收藏
得分:0 
是先connaj1.execute(sql4),然后才是rs1.close的呢
2013-09-22 21:17
快速回复:asp提示:对象关闭时,不允许操作。请求高手解决
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.017871 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved