ADO 无法在对应于应用程序请求的名称或顺序引用的集合中找到对象

21stboy 2001-03-22 02:58:00

麻烦各位帮我分析一下下面一段程序的错误，谢谢！！

<%@ Language=vbScript %>

<script language=vbscript runat=server>
sub Stat_Times()
for i=4 to 20 step 2
if rs.fields.item(i)<>"" then '报告这一行有错，ADODB.Fields (0x800A0CC1
times=times+1
else
exit for
end if
next
select case times
case 1:visit_first =visit_first+1
case 2:visit_second=visit_second+1
case 3:visit_third =visit_third+1
case 4:visit_four =visit_four+1
case 5:visit_five =visit_five+1
case 6:visit_six =visit_six+1
case 7:visit_seven =visit_seven+1
case 8:visit_eight =visit_eight+1
case 9:visit_nine =visit_nine+1
case 10:visit_ten =visit_ten+1
end select
end sub

'----统计每次客户所占总客户数的比例------

sub Stat_Per()
perfirst =formatpercent(visit_first/custnum)
persecond=formatpercent(visit_second/custnum)
perthird =formatpercent(visit_third/custnum)
perfour =formatpercent(visit_four/custnum)
perfive =formatpercent(visit_five/custnum)
persix =formatpercent(visit_six/custnum)
perseven =formatpercent(visit_six/custnum)
pereight =formatpercent(visit_seven/custnum)
pernine =formatpercent(visit_nine/custnum)
perten =formatpercent(visit_ten/custnum)
end sub

'---输出结果------

sub result()
dd=150
td=""
td=td+"<table align=center>"
td=td+"<tr><td>客户访问成功数分析</td></tr>"
td=td+"<tr><td>第一次：</td><td><img src=img/redvert.gif width="&(visit_first/custnum)*dd&" height=8> "&perfirst&"</td></tr>"
td=td+"<tr><td>第二次：</td><td><img src=img/redvert.gif width="&(visit_second/custnum)*dd&" height=8> "&persecond&"</td></tr>"
td=td+"<tr><td>第三次：</td><td><img src=img/redvert.gif width="&(visit_third/custnum)*dd&" height=8> "&perthird&"</td></tr>"
td=td+"<tr><td>第四次：</td><td><img src=img/redvert.gif width="&(visit_four/custnum)*dd&" height=8> "&perfour&"</td></tr>"
td=td+"<tr><td>第五次：</td><td><img src=img/redvert.gif width="&(visit_first/custnum)*dd&" height=8> "&perfive&"</td></tr>"
td=td+"<tr><td>第六次：</td><td><img src=img/redvert.gif width="&(visit_six/custnum)*dd&" height=8> "&persix&"</td></tr>"
td=td+"<tr><td>第七次：</td><td><img src=img/redvert.gif width="&(visit_first/custnum)*dd&" height=8> "&perseven&"</td></tr>"
td=td+"<tr><td>第八次：</td><td><img src=img/redvert.gif width="&(visit_eight/custnum)*dd&" height=8> "&pereight&"</td></tr>"
td=td+"<tr><td>第九次：</td><td><img src=img/redvert.gif width="&(visit_nine/custnum)*dd&" height=8> "&pernine&"</td></tr>"
td=td+"<tr><td>第十次：</td><td><img src=img/redvert.gif width="&(visit_ten/custnum)*dd&" height=8> "&perten&"</td></tr>"
end sub
</script>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>

<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="Select count(*) as CustNum from visit_customer where class='A'"
' Response.Write sql
' Response.End
rs.Open sql,con,1,1
if rs.EOF or rs.BOF then
response.write "<center>现在还没有需要分析的A类客户！</center>"
response.write "<p><center><a href=# onclick=window.close()>关闭窗口</a></center>"
response.end
else
custnum=rs("custnum") '客户总数
times=0 '访问的次数
visit_first =0
visit_second=0
visit_third =0
visit_four =0
visit_five =0
visit_six =0
visit_seven =0
visit_eight =0
visit_nine =0
visit_ten =0
do while not rs.EOF
call Stat_Times() '统计每次的客户总数
rs.MoveNext
loop
call Stat_Per()
'-----输出结果-----------
call result()
Response.Write td
end if
%>

</BODY>
</HTML>

...全文

106 1 打赏收藏转发到动态举报

写回复

用AI写文章

1 条回复

切换为时间正序

请发表友善的回复…

发表回复

UserReg 2001-03-22

打赏
举报

sub Stat_Times()
for i=4 to 20 step 2
if rs.fields.item(i)<>"" then '报告这一行有错，ADODB.Fields
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
~~~~改成：If rs.Fields.Count-1 > i Then
If Not IsNull(rs.Fields.item(i)) Then
If rs.Fields.item(i) <> "" Then
……

(0x800A0CC1
times=times+1
else
exit for
end if
next
select case times
case 1:visit_first =visit_first+1
case 2:visit_second=visit_second+1
case 3:visit_third =visit_third+1
case 4:visit_four =visit_four+1
case 5:visit_five =visit_five+1
case 6:visit_six =visit_six+1
case 7:visit_seven =visit_seven+1
case 8:visit_eight =visit_eight+1
case 9:visit_nine =visit_nine+1
case 10:visit_ten =visit_ten+1
end select
end sub