Question

网页设计asp循环代码出错，不执行循环

</div>
<%
sql="select id,cid,txt,sj from bm order by id desc"
rs.open sql,conn,1,1
fypage=10
dim i
i=0
If rs.eof and rs.bof Then
Response.Write("<br/>    <font color=""#CCCCCC"">暂时没有数据</font><br/><br/>")
Else
'dim text
rs.pagesize=fypage
rs.absolutepage=page
do while not rs.eof
text=split(rs("txt"),"$sgy$")
i=i+1
Response.Write("<div class=""b3"" id=""hh"&i&""">")
Response.Write("<div class=""b2 L b_w3 TC"">"&rs("id")&"</div>")
Response.Write("<div class=""b2 L b_w0 TC"">"&rs("sj")&"</div>")
Response.Write("<div class=""b2 L b_w1 TC"">"&tty1(text(0),7)&"</div>")
Response.Write("<div class=""b2 L b_w4 TC"">"&tty1(text(3),12)&"</div>")
Response.Write("<div class=""b2 L b_w2 TC"">"&tty1(text(4),12)&"</div>")
Response.Write("<div class=""b2 L b_w2 TC"">"&tty1(text(2),12)&"</div>")
Response.Write("<div class=""b2 L b_w8 TC"">"&tty1(text(5),12)&"</div>")
Response.Write("<div class=""b2 L b_w5 TC btno""><input type=""button"" class=""butt2"" value=""删除"" onClick=""tty('确定删除吗？','?woai=ni&a=del&id="&rs("id")&"')""/></div>")
Response.Write("</div>")
If i=>fypage Then exit do
rs.movenext
loop
End if
'分页程序
Response.Write("<div class=""admin12"" style=""height:15px;margin-top:0px; color:#666666;"">共有数据<font color=""#FF0000""><b>"&rs.recordcount&"</b></font>条，每页<font color=""#FF0000""><b>"&fypage&"</b></font>条，页次：<font color=""#FF0000""><b>"&page&"</b></font>　")
if page =1 then
Response.Write("第一页　上一页　")
else
Response.Write("<a href=""?page=1&cid="&cid&""">第一页</a>　<a href=""?page="&page-1&"&cid="&cid&""">上一页</a>　")
end if
if rs.pagecount-page < 1 then
Response.Write("下一页　尾页")
else
Response.Write("<a href=""?page="&page+1&"&cid="&cid&""">下一页</a>　<a href=""?page="&rs.pagecount&"&cid="&cid&""">尾页</a>")
end if
Response.Write("</div>")
' 分页结束
结果

Answer 1

提示已经很清楚了，是数组下标越界，检查你的text数组下限。

追问

怎么改？

追答

在 Response.Write(""&tty1(text(5),12)&"") 这句前插入判断text数组的下限的语句

Answer 2

下标越界了,说明你text数组中没有下标为5的元素
检查一下看是不是数据缺项了,或是下标写错了.

追问

怎么改？

追答

Response.Write(""&tty1(text(5),12)&"")
改成
If UBound(text)>=5 Then
Response.Write(""&tty1(text(5),12)&"")
Else
Response.Write("")
End If