UC知道asp 分列显示问题报错
来源：百度知道 编辑：UC知道 时间：2024/05/25 07:30:36
报错:
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/index.asp, line 103, column 23
do while not rs_dl.eof then
********以下是代码:
<table name="tupian">
<tr>
<%
dim rs_dl
set rs_dl=server.CreateObject("adodb.recordset")
rs_dl.open "select * from prove order by pr_time desc",conn,1,1
k=1
do while not rs_dl.eof then <==报错
%>
<td><img src="<%=rs_dl("pr_image")%>" /></td>
<%
rs_dl.movenext
if mod(k/4)=0 and not rs_dl.eof then
%>
</tr>
<%
end if
loop
%>
</table>
错误类型：
Microsoft VBScript 编译器错误 (0x800A0400)
缺少语句
/index.asp, line 103, column 23
do while not rs_dl.eof then
********以下是代码:
<table name="tupian">
<tr>
<%
dim rs_dl
set rs_dl=server.CreateObject("adodb.recordset")
rs_dl.open "select * from prove order by pr_time desc",conn,1,1
k=1
do while not rs_dl.eof then <==报错
%>
<td><img src="<%=rs_dl("pr_image")%>" /></td>
<%
rs_dl.movenext
if mod(k/4)=0 and not rs_dl.eof then
%>
</tr>
<%
end if
loop
%>
</table>
建议循环数据时用
if rs.eof and rs.bof then
response.write "暂无数据"
else
for i=1 to rs.recordcount
放置循环体
rs.movenext
next
rs.close
set rs=nothing
强烈不建议这么写!!!
不要省去判断是否有数据那一步
set rs = conn.execute("......")
if rs.eof and rs.bof then
response.write "无数据"
else:do while not rs.eof
......
rs.movenext:loop
end if
rs.close:set rs=nothing
程序没有大问题，是否没有数据，建议在do while 前加
if not rs_dl.eof then
end if
检测一下。