Question

ASP代码出错，IIS无法运行页面

错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/company/publish.asp, 第 16 行

浏览器类型：
OpenWare (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 2.0.50727; 360SE)

网页：
GET /company/publish.asp
运行无法显示 总是弹到这个页面，跪求高手解答
前20行代码：
<% Response.Buffer=True %>
<!--#include file="../inc/company.inc"-->
<!--#include file="../inc/html.inc"-->

<% uname=session("cuid")
modify=request("modify")
set rs=server.createobject("adodb.recordset")
sql="select * from cmailbox where reid='"&uname&"'and newmail=0"
rs.open sql,conn,1,3
mailnum=rs.recordcount
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql2="select * from company where uname='"&uname&"'and cname<>'""'"
rs.open sql2,conn,1,3
click=rs("click")
%>

<% if rs.eof or rs.bof then
response.write"<SCRIPT language=JavaScript>alert('您尚未登录公司资料，请先登录公司资料！');"
response.write"javascript:history.go(-1);</SCRIPT>"
end if %>

Answer 1

错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/company/publish.asp, 第 16 行

就是告诉你数据库里面没有信息，最少需要一条记录，你在数据库添加一条记录就OK了

Answer 2

set rs=server.createobject("adodb.recordset")
sql2="select * from company where uname='"&uname&"'and cname<>''"
rs.open sql2,conn,1,3
if rs.eof or rs.bof then
response.write"<SCRIPT language=JavaScript>alert('您尚未登录公司资料，请先登录公司资料！');history.go(-1);</SCRIPT>"
response.end
else
click=rs("click")
end if %>

Answer 3

错误在第十六行，与浏览器无关

16： click=rs("click")

所查询的结果中，没有确认rs("click") 是否存在就予以使用，故而出错。

而下一段条件选择代码恰好是判断该记录是否存在的，如果不存在就提示资料未登录。因此，把第十六句移动到该代码的else部分才比较严密。也就是说，记录不存在时，提示资料未登录；若存在，则赋值给：click。

代码修改如下：

01: <% Response.Buffer=True %>
xx: ……
xx: ……
xx: ……
12: set rs=server.createobject("adodb.recordset")
13: sql2="select * from company where uname='"&uname&"'and cname<>'""'"
14: rs.open sql2,conn,1,3
15: if rs.eof or rs.bof then
16: response.write"<SCRIPT language=JavaScript>alert('您尚未登录公司资料，请先登录公司资料！');"
17: response.write"javascript:history.go(-1);</SCRIPT>"
18: else
19: click=rs("click")
20: end if %>