中医治疗尘肺:阵列索引超出范围

来源:百度文库 编辑:高校问答 时间:2024/04/28 18:22:36
<%
sql4="SELECT SUBSTRING(no3, 1, 4) AS Expr0,SUBSTRING(no3, 5, 2) AS Expr1,SUBSTRING(no3, 7, 2) AS Expr2, SUBSTRING(no3, 9, 2) AS Expr3, SUBSTRING(no3, 11, 2) AS Expr4,no3 FROM zoo where no4 in('"&rs(2)&"') order by no3"
set rs4=conn.execute(sql4)
%>
<table border="0" cellpadding="0" cellspacing="0" align="center">
<%
j=0
while not rs4.eof
%>
<%
dim myarray()
for k = 1 to rs4.RecordCount-1
'while not rs4.eof
myarray(k) = rs4("no3")
'rs4.movenext
' next
%>
<%
if (myarray(2*k+1)-myarray(2*k))<40 then
%>
<tr>
<td><%=rs4(0)%>-<%=rs4(1)%>-<%=rs4(2)%>  <%=rs4(3)%>:<%=rs4(4)%></td>
</tr>

<%
rs4.movenext
'k=k+1
next
'wend
%>
<%
end if
%>
<%
rs4.movenext
j=j+1
wend
%>

错误类型:
Microsoft VBScript 执行阶段错误 (0x800A0009)
阵列索引超出范围
/renzi/jiange.asp, line 84

呵呵,这么长的代码,懒得看