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%>    理赔指标完成情况查询    </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> </p>
</font>
</body>
</html>