急,急,急 菜鸟跪求高手解决问题
我是刚刚学的菜鸟,希望高手能帮帮小弟。
问题:
ADODB.Field 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
代码:
<%@ codepage="936" LANGUAGE="VBSCRIPT" %>
<!-- #include file="config.asp" -->
<!-- #include file="conn.asp" -->
<!-- #include file="format.asp" -->
<HTML>
<HEAD>
<TITLE><%=webname%></TITLE>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<LINK href="images/css/style.css" rel=stylesheet type=text/css>
<script language="JavaScript" src="js/menu.js"></script>
</HEAD>
<BODY BGCOLOR=#006600 topmargin="0" leftmargin="0" marginwidth="0" marginheight="0">
<!--#include file="inc/top-lianxi.asp" -->
<%
sql="select * from source where source_title='"&request.querystring("source_title")&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
catid=rs("cat_id")
%>
<table width="780" cellspacing="0" cellpadding="0" align="center" border="0">
<tr>
<!-- #include file="inc/menu.asp" -->
<td width="215" rowspan="2"><img src="images/pics/welcome-index.jpg" width="215" height="59"></td>
</tr>
<tr>
<td height="29" background="images/pics/location-back.jpg">
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="29" width="5%" rowspan="2"> </td>
<td height="7" width="95%" class="F2"></td>
</tr>
<%
sql="select * from source "
set rscat=server.createobject("adodb.recordset")
rscat.open sql,conn,1,1
%>
<tr>
<td height="22" width="95%" class="F2"></td>
</tr>
<%
Rscat.close
set Rscat = nothing
%>
</table>
</td>
</tr>
</table>
<table width="780" cellspacing="0" cellpadding="0" align="center" background="images/pics/content-topback.jpg" border="0">
<tr>
<td height="59" width="40" rowspan="2"><img src="images/pics/contentback-lefttop.jpg" width="40" height="59"></td>
<td height="23" width="38"> </td>
<td height="59" rowspan="2" width="14"> </td>
<td height="20" rowspan="2" valign="bottom">
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<% Set rss=Server.CreateObject("ADODB.RecordSet")
sql="select * from source where source_title<>'"&year(date())&"'"
rss.Open sql,conn,1,1
if rss.eof and rss.bof then
response.Write("")
else
%>
<tr> <% do while not rss.eof%>
<td height="30" class="F4">
<table border="0" width="100%"><tr><td ><a href="showsource.asp?source_title=<%=rss("source_title")%>"><%=rss("source_title")%>年开奖记录</a></td></tr></table> <%rss.movenext
loop
end if%></td>
</tr>
</table></td>
<td height="59" width="215" rowspan="2"> </td>
</tr>
<tr>
<td height="36" width="38"> <div align="right"><img src="images/pics/dot1.jpg" width="16" height="16"></div></td>
</tr>
</table>
<table width="780" cellspacing="0" cellpadding="0" align="center" border="0" bgcolor="#FFFFFF">
<tr>
<td width="20" background="images/pics/content-leftback.jpg"> </td>
<td width="760" valign="top">
<table width="99%" cellspacing="0" cellpadding="2" border="0" align="center">
<tr><td height=2></td></tr>
<tr>
<td height="440" valign="top" class="content"><%=rs("source_content")%></td>
</tr>
</table>
<table width="100%" cellspacing="0" cellpadding="0" border="0">
<tr>
<td height="15"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="780" cellspacing="0" cellpadding="0" align="center" border="0" background="images/pics/content-bottomback.jpg">
<tr>
<td height="40" width="40"><img src="images/pics/contentback-leftbottom.jpg" width="40" height="40"></td>
<td height="40" width="700"> </td>
<td height="40" width="40"><img src="images/pics/contentback-rightbottom.jpg" width="40" height="40"></td>
</tr>
</table>
<!-- #include file="inc/bottom.asp" -->
</BODY>
</HTML>