ADODB.Field 错误
错误以下:
Microsoft VBScript 编译器错误 错误 '800a03f6 '
缺少 'End '
/iisHelp/common/500-100.asp，行242
ADODB.Field 错误 '80020009 '
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/dgkj/messenger.asp，行0
代码如下:
<!--#include file= "top.asp " -->
<%
if request( "del ") <> " " then
call del
end if
function del
sql2= "delete from messenger where messenger_id= "&request( "del ")
conn.Execute(sql2)
end function
set rs=server.createobject( "adodb.recordset ")
sql= "SELECT * FROM messenger where messenger_jieshou= ' " & Session( "user_name ") & " ' order by messenger_id desc "
rs.Open sql,conn,1,3
%>
<link href= "css/font.css " rel= "stylesheet " type= "text/css " />
<div align= "center ">
<table width= "756 " border= "0 " cellpadding= "0 " cellspacing= "0 ">
<!--DWLayoutTable-->
<tr>
<td width= "13 " height= "20 " > </td>
<td width= "180 " rowspan= "2 " valign= "top " > <table width= "100% " border= "0 " cellpadding= "0 " cellspacing= "0 ">
<!--DWLayoutTable-->
<tr>
<td width= "180 " height= "534 " valign= "top " bgcolor= "#3696e8 "> <!--#include file= "left.asp "--> </td>
</tr>
</table> </td>
<td width= "43 " align= "left " valign= "top " background= "image/main_1.gif " > <!--DWLayoutEmptyCell--> </td>
<td width= "506 " align= "left " valign= "middle " background= "image/main_2.gif " class= "biaoti " > 你的位置： <a href= "index2.asp " class= "lian "> 首页 </a> > <a href= "messenger.asp " class= "lian "> 即时信息 </a> </td>
<td width= "14 "> </td>
</tr>
<tr>
<td height= "544 " > </td>
<td colspan= "2 " valign= "top " > <table width= "100% " height= "540 " border= "0 " cellpadding= "0 " cellspacing= "0 ">
<!--DWLayoutTable-->
<tr>
<td width= "549 " height= "25 " valign= "top " bgcolor= "#FFFFFF "> <!--DWLayoutEmptyCell--> </td>
</tr>
<tr>
<td height= "30 " align= "center " valign= "middle " background= "image/main_top.gif " class= "main "> 即时信息 </td>
</tr>
<tr>
<td height= "464 " valign= "top "> <div align= "center ">
<table width= "100% " border= "0 " cellpadding= "0 " cellspacing= "0 ">
<!--DWLayoutTable-->
<tr>
<td width= "47 " height= "28 " bgcolor= "#FFFFFF "> </td>
<td width= "468 " bgcolor= "#FFFFFF "> <a href= "add_messengers.asp " class= "biaoti4 "> 发短信 </a> <span class= "biaoti4 "> <a href= "personal/messenger_del.asp?messenger_id <%= rs( "messenger_id ")%> " class= "biaoti4 "> </a> </span> <a href= "messenger_send.asp " class= "biaoti4 "> 已发信息 </a> </td>
<td width= "34 " bgcolor= "#FFFFFF "> </td>
</tr>
<tr>
<td height= "168 " bgcolor= "#FFFFFF "> </td>
<td rowspan= "2 " valign= "top " bgcolor= "#FFFFFF "> <form id= "form1 " name= "form1 " method= "post " action= " ">
<table width= "469 " height= "90 " border= "1 " cellpadding= "0 " cellspacing= "0 ">
<tr>
<td width= "272 " height= "30 " align= "center " valign= "middle " bgcolor= "#CCCCCC " class= "biaotimain "> 标题 </td>
<td width= "107 " height= "30 " align= "center " valign= "middle " bgcolor= "#CCCCCC " class= "biaotimain "> 发件人 </td>
<td width= "81 " height= "30 " align= "center " valign= "middle " bgcolor= "#CCCCCC " class= "biaotimain "> 管理 </td>
</tr>
<%
if not rs.eof then
tel=rs.recordcount
shum=10
rs.pagesize=shum
maxpage=rs.pagecount
requestpage=clng(request( "p "))
if requestpage= " " or requestpage=0 then
requestpage=1
end if
if requestpage> maxpage then
requestpage=maxpage
end if
if not requestpage=1 then
rs.move (requestpage-1)*rs.pagesize
end if
for i=1 to rs.pagesize and not rs.eof
%>
<tr align= "left ">
<td height= "30 " align= "center ">
<a href= "# " class= "biaoti4 " onclick= "window.open( 'messenger_title.asp?messenger_id= <%=rs( "messenger_id ")%> ', ' ', 'scrollbars=yes,width=510,height=500 ') ">
<%=(rs( "messenger_title "))%> </a> </td>
<td height= "30 " align= "center "> <%=rs( "user_name ")%> </td>
<td height= "30 " align= "center "> <a href=messenger.asp?del= <%=rs( "messenger_id ")%> &p= <%=requestpage%> > 删除 </a> </td>
</tr>
<%
rs.movenext
if rs.eof then exit for
next
else
response.Write( " <script language=javascript> alert( '暂无信息 ') </script> ")
end if
rs.close
set sql=nothing
%>
<tr>
<td colspan= "3 " align= "right " bgcolor= "#CCCCCC ">
共 <%= maxpage %> 页
当前页： <%= requestpage %>
<a href= "messenger.asp?p= <%=requestpage-1%> "> 上一页 </a>
<a href= "messenger.asp?p= <%=requestpage+1%> "> 下一页 </a> </td>
<%
%>
</tr>
</table>
</form>
</td>
<td bgcolor= "#FFFFFF "> </td>
</tr>
<tr>
<td height= "268 " bgcolor= "#FFFFFF "> </td>
<td bgcolor= "#FFFFFF "> </td>
</tr>
</table>
</div> </td>
</tr>
<tr>
<td height= "25 " valign= "top " background= "image/main_low.gif "> <!--DWLayoutEmptyCell--> </td>
</tr>
</table> </td>
<td> </td>
</tr>
</table>
</div>
<!--#include file= "feet.asp "-->
[解决办法]
指向了记录尾,没有找到相应的记录,而你要操作他,加个判断
if not rs.eof then
do something
