<!--#include file="conn1.inc"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<body>
<script name="Javascript">
<!--
var Toggle =1;
function DWtop(chk)
{
Toggle = 0;
switch(chk) {
case 1:
pf.stop();
break;
case 2:
pf.stop();
break;
}
}
function DWstart(chk)
{
Toggle = 1;
switch(chk) {
case 1:
pf.start();
break;
case 2:
pf.start();
break;
}
}
-->
</script>
<marquee direction=up height=120 id=pf onMouseOut=DWstart(1) onMouseOver=DWtop(1) scrollamount=2>
<%Set rs = Server.CreateObject("ADODB.Recordset")
strsql="SELECT top 4 * FROM img where type='1' ORDER BY id desc"
rs.Open strsql,conn,1
%>
<table width="116" height="33" border="0" align="center" cellpadding="0" cellspacing="1" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed1">
<%for i=1 to 2%>
<tr bgcolor="#FFFFFF">
<%for j=1 to 2%>
<td width="114" height="100" align="center" valign="top">
<%if not rs.eof then%>
<table width="76%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td><a href="admin/imagesnew.asp?id=<%=rs("id")%>" target="_blank"><img src="<%=rs("img")%>" alt="" width="110" height="100" border="0"></a></td>
</tr>
<tr>
<td align="center" class="style35"><%=left(rs("title"),10)%></td>
</tr>
</table></td>
<%end if
rs.movenext
next%>
</tr>
<%rs.movenext
next
rs.close %>
</table>
</marquee>
</body>
</html>
上面程序的功能是从数据库中读出图片新闻，并且让它滚动显示
可什么老师最后一个图片的位置出现如下提示：
|
ADODB.Recordset 错误 '800a0bcd'BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 /1.asp，行 59 |
