一个EOF和BOF的问题 - 编程论坛

#2

hu9jj2013-05-21 20:08

看不明白，贴上相关的代码看看。

#3

hubowei2013-05-22 20:58

代码书写有误

#4

homellq2013-05-22 22:30

大家好！代码方面应该没问题，为啥呢？因为

当页面中只嵌套一个iframe的时候，不管是src="c.asp"还是src="d.asp",任何时候都显示正常，里面没数据的话也会显示0条数据，不会出现“BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 ”这样的提示，

但是并排嵌套两个iframe的时候，一个src="c.asp"，一个src="d.asp"，当有一个里面没数据的时候，另一个有时显示正常，有时候就会出现“BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。 ”这样的提示。

#5

homellq2013-05-22 22:45

上代码吧：
首先a.asp的代码如下：

<HTML><HEAD><TITLE></TITLE>
<LINK href="style/main.css" type=text/css rel=stylesheet>
<table width="100%" border="0" cellpadding="0" cellspacing="0" >
<tr>
<td width="49%"><div>
<iframe name="frmc" src="c.asp" width="100%" frameborder="0" ></iframe></div></td>
<td width="2%"> </td>
<td width="49%"><div>
<iframe name="frmd" src="d.asp" width="100%" frameborder="0" ></iframe></div></td>
</tr>
</table>
</body>
</html>

c.asp的代码如下：

<HEAD>
<TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META name="keywords" content="">
<META name="description" content="" >
</HEAD>
<BODY>
<%
set rs=server.createobject("adodb.recordset")
sql1="select * from bao where fabu=1
sql1=sql1&" order by date desc, id desc"
'response.write sql
'response.End
session("sql")=sql1
rs.open sql1,conn,2,2
rs.pagesize=MaxPerPage
%>
         <% j=1
            if not (rs.eof or err) then rs.move (page-1)*maxPerPage
            do while not rs.eof
            %>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="7%" align="right">◎</td>
                <td width="5%"><span style="font-size:12px">√</span></td>
                <td><%=rs("introduce")%></td>
              </tr>
    <%
j=j+1
if j>maxperpage then exit do
rs.moveNext
loop
dim k
k=(j-1) mod num_row
'response.write j
'response.write "k="&k
if not (k=0) then
response.write "<td colspan="&(num_row-k)&" width="&(cint(100/num_row)*(num_row-k))&"> </td>"
response.write "</tr>"
end if
rs.close
set rs=nothing
%>
</table>
</body>
</html>

d.asp的代码如下：

<HEAD>
<TITLE></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META name="keywords" content="">
<META name="description" content="" >
</HEAD>
<BODY>
<%
set rs=server.createobject("adodb.recordset")
sql1="select * from bao where fabu=2
sql1=sql1&" order by date desc, id desc"
'response.write sql
'response.End
session("sql")=sql1
rs.open sql1,conn,2,2
rs.pagesize=MaxPerPage
%>
         <% j=1
            if not (rs.eof or err) then rs.move (page-1)*maxPerPage
            do while not rs.eof
            %>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="7%" align="right">◎</td>
                <td width="5%"><span style="font-size:12px">√</span></td>
                <td><%=rs("introduce")%></td>
              </tr>
    <%
j=j+1
if j>maxperpage then exit do
rs.moveNext
loop
dim k
k=(j-1) mod num_row
'response.write j
'response.write "k="&k
if not (k=0) then
response.write "<td colspan="&(num_row-k)&" width="&(cint(100/num_row)*(num_row-k))&"> </td>"
response.write "</tr>"
end if
rs.close
set rs=nothing
%>
</table>
</body>
</html>