标题:[求助]BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要 ...
只看楼主
homilulu
Rank: 1
等 级:新手上路
帖 子:57
专家分:0
注 册:2006-8-4
 问题点数:0 回复次数:7 
[求助]BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个

技术信息(用于支持人员)

错误类型:
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”,或者当前的记录已被删除,所需的操作要求一个当前的记录。
/cvip/Search.asp


浏览器类型:
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; Maxthon)

网页:
GET /cvip/Search.asp

时间:
2007年3月22日, 11:45:27

搜索更多相关主题的帖子: BOF 操作要求 EOF Maxthon 浏览器 
2007-03-22 11:47
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
得分:0 

是记录指针移到了记录结尾,或者没有符合条件的记录

把你的代码帖上来看看什么哪错了饿


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-03-22 12:01
yms123
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:209
帖 子:12488
专家分:19042
注 册:2004-7-17
得分:0 

证明数据库没有找到要找的记录,要么查询语句有问题,要么查询的值数据库中不存在。

2007-03-22 12:02
风雨中
Rank: 1
等 级:新手上路
帖 子:213
专家分:0
注 册:2005-10-6
得分:0 
我出现这样的问题一般都是查询语句出错而没有找相关记录,加一个为空判断了。

因为我笨,所以我在不断的努力;因为我穷,所以我没有读过太多的书;因为我对自己期望很高,所以我只能不断的追求,用行动去实现自己的价值。
2007-03-22 12:04
homilulu
Rank: 1
等 级:新手上路
帖 子:57
专家分:0
注 册:2006-8-4
得分:0 

<table width="779" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td width="228" align="center" valign="top"><br>
<table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" class="TableAll">
<tr>
<td height="25" align="center" class="TrTop">使用说明</td>
</tr>
<tr>
<td class="TrBody">VIP会员管理系统 </td>
</tr>
</table>
<br>
<table width="95%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC" class="TableAll">
<tr>
<td height="25" align="center" class="TrTop">权限使用说明</td>
</tr>
<tr>
<td height="109" align="center" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="1" class="w9pt">
<tr>
<td height="19" align="center">超级管理员</td>
<td class="TrBody">最高权限!有所有功能!</td>
</tr>
<tr>
<td height="19" align="center">信息管理员</td>
<td class="TrBody">拥护部分功能!</td>
</tr>
<tr>
<td height="18" align="center">VIP会员</td>
<td class="TrBody">只能查看自己的信息!</td>
</tr>

</table></td>
</tr>
</table>
<br>
<table width="95%" border="0" cellpadding="0" cellspacing="1" class="TableAll">
<tr>
<td height="25" align="center" class="TrTop">系统其他说明</td>
</tr>
<tr>
<td align="left" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="2" cellspacing="1" class="w9pt">
<tr>
<td>系统根据不同的管理员,显示不同的功能。操作时请谨慎,数据删除后将不能恢复!</td>
</tr>
</table></td>
</tr>
</table></td>
<td width="551"><table height="450" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center" valign="top" bgcolor="#FFFFFF">&nbsp;
<%
'-----------------------------------------------------------
'过滤非法SQL字符
'-----------------------------------------------------------
function ReplaceBadChar(strChar)
if strChar="" then
ReplaceBadChar=""
else
ReplaceBadChar=replace(replace(replace(replace(replace(replace(replace(strChar,"'",""),"*",""),"?",""),"(",""),")",""),"<",""),".","")
end if
end function
'-----------------------------------------------------------
'取得表单数据
'-----------------------------------------------------------
UserName=ReplaceBadChar(trim(Request.Form("username")))
pwd=ReplaceBadChar(Trim(Request.Form("pwd")))
act=ReplaceBadChar(Trim(Request.QueryString("act")))
'-----------------------------------------------------------
'生成SQL代码
'-----------------------------------------------------------
if session("UserName")="" then
StrSql1="Select * From XcUserInfo where UserName='"&UserName&"'"
set rs1=server.CreateObject("adodb.recordset")
if not rs.eof then

StrSql="Select * From XcUserInfo where UserName='"&UserName&"' and pwd='"&pwd&"'"
Set Rs=Conn.execute(StrSql)
If Not Rs.Eof Then
session("id")=rs("id")
session("UserName")=rs("UserName")
session("pwd")=rs("pwd")

'ShowHave()
Else
ShowNot()
End If

else
response.Write("<script> alert('对不起,不存在这个用户!!!');</script>")
response.Redirect("index.asp")
end if
end if
if session("UserName")="" then
response.redirect("index.asp")
else
StrSqls="Select * From XcUserInfo where UserName='"&session("UserName")&"' and pwd='"&session("pwd")&"'"
Set Rs=Conn.execute(StrSqls)
call ShowHave()
end if
if act="info" then
call ShowInfo()
end if
if act="ps" then
call pas()
end if
%>
&nbsp;
<% Sub pas()

if ReplaceBadChar(Trim(Request.QueryString("mode")))="edit" then
if trim(Request("pasa"))="" then
response.write("<script> alert('密码不能为空!!!')</script>")
response.redirect("search.asp?act=ps")
else
if trim(Request("pasa"))<>trim(Request("pasb"))then
response.write("<script> alert('两次输入密码不一至!!!')</script>")
response.redirect("search.asp?act=ps")
end if
end if
sqlstr="select * from XcUserInfo where id="&session("id")&" or UserName='"&session("UserName")&"'"
response.write(sqlstr)
'response.end
set rss=server.createobject("adodb.recordset")
rss.open sqlstr,conn,3,2
rss("pwd")=request("pasa")
rss.update
rss.close
set rss=nothing
response.Write("<script> alert('修改密码成功!!!')</script>")
response.redirect("search.asp")
end if
%>
<br>
<style>
td{font-size:9pt;}
</style>
<table width="500" border="0" cellpadding="0" cellspacing="1" class="TableAll">
<tr>
<td align="center" class="TrTop">修改密码</td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF" class="9ptred"><form name="form1" method="post" action="?act=ps&mode=edit">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> 输入密码</td>
<td><input name="pasa" type="password" id="pasa" style="width:100px" ></td>
<td>确认密码</td>
<td><input name="pasb" type="password" id="pasb" style="width:100px" ></td>
<td><input type="submit" name="Submit" value="提交"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>

<% End Sub%>

<% Sub ShowNot() %>
<br>
<table width="500" border="0" cellpadding="0" cellspacing="1" class="TableAll">
<tr>
<td align="center" class="TrTop">&nbsp;</td>
</tr>
<tr>
<td height="30" align="center" bgcolor="#FFFFFF" class="9ptred">对不起,没有您查询的会员信息</td>
</tr>
</table>

<% End Sub%>
&nbsp;
<% Sub ShowHave() %>
<br>
<table width="501" border="0" cellpadding="0" cellspacing="1" class="TableAll">
<tr align="center" class="TrTop">
<td width="113" height="25">会员卡卡号</td>
<td width="113" height="25">姓名</td>
<td width="163" height="25">详细信息</td>
<td width="106">留言</td>
<td width="106">&nbsp;</td>
</tr>
&nbsp;
<%
Do while Not Rs.Eof
%>
<tr align="center" bgcolor="#FFFFFF">
<td height="30">&nbsp;<%=Rs("UNumber")%></td>
<td>&nbsp;<%=Rs("UserName")%></td>
<!--< td><a href="Search.asp?UserNum=< % =R s("UNumber")%>">详细信息</a></td>-->
<td><a href="Search.asp?act=info">详细信息</a></td>
<td><a href="RepUser.asp?UserNum=<%=Rs("UNumber")%>&UserName=<%=Rs("UserName")%>" target="_blank">给他/她留言</a></td>
<td><a href="search.asp?act=ps">修改密码</a></td>
</tr>
&nbsp;
<%
Rs.MoveNext
Loop
rs.close
%>
</table>

<% End Sub %>
&nbsp;
<%
Sub ShowInfo()
StrSql="Select * From XcUserInfo where id=" & cint(session("id")) & " and UserName='"&session("UserName")&"'"
'response.Write(StrSql)
'response.End()
Set Rs=Conn.execute(StrSql)
%>
<br>
<table width="500" border="1" cellpadding="0" cellspacing="1"
bordercolor="#ABABAB" background="Images/Byz.gif" class="TableAll" bordercolordark="#FFFFFF">
<tr align="center">
<td colspan="5" class="TrTop">VIP会员详细信息</td>
</tr>
<tr>
<td width="64" height="25" align="center">会员姓名</td>
<td width="109"><%=Rs("UserName")%></td>
<td width="70" align="center">会员卡号</td>
<td width="115"><%=Rs("UNumber")%></td>
<td width="124" rowspan="7" align="center" valign="middle">&nbsp;
<%
Response.Write("<A href=" & Rs("Pic") & " Target=blank><img src=" & Rs("Pic") &" width=100 height=150 Border=0></A>")
%></td>
</tr>
<tr>
<td height="25" align="center">会员生日</td>
<td><%=Rs("UAge")%></td>
<td align="center">会员性别</td>
<td><%=Rs("USex")%></td>
</tr>
<tr>
<td height="25" align="center">会员积分</td>
<td height="25"><%=Rs("PenName")%></td>
<td align="center">身体状况</td>
<td><%=Rs("Zk")%></td>
</tr>
<tr>
<td height="25" align="center">护照号码</td>
<td><%=Rs("Hzhao")%></td>
<td align="center">婚嫁状况</td>
<td><%=Rs("UserTest")%></td>
</tr>
<tr>
<td height="25" align="center">联系电话</td>
<td><%=Rs("UTel")%></td>
<td align="center">有效期限</td>
<td><%=Rs("EduType")%></td>
</tr>
<tr>
<td height="25" align="center">入会方式</td>
<td><%=Rs("Edu")%></td>
<td align="center">入会时间</td>
<td><%=Rs("Rtuan")%></td>
</tr>
<tr>
<td height="25" align="center">向往国家</td>
<td><%=Rs("Gjia")%></td>
<td align="center">会员照片</td>
<td>&nbsp;</td>
</tr>
<tr>
<td height="25" align="center">家庭成员</td>
<td colspan="4"><%=Rs("Usercy")%></td>
</tr>
<tr>
<td height="25" align="center">工作单位</td>
<td colspan="4"><%=Rs("Userdw")%></td>
</tr>
<tr>
<td height="25" align="center">家庭住址</td>
<td colspan="4"><%=Rs("UAddr")%></td>
</tr>
<tr>
<td height="25" align="center">其他</td>
<td height="190" colspan="4" valign="top"><table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" class="w9pt">
<tr>
<td><%=Rs("UOther")%></td>
</tr>
</table></td>
</tr>
</table>
<% End Sub %>
</td>
</tr>
</table></td>
</tr>
</table>
<%
'rs1.close
'set rs1=nothing
%>


homilulu
2007-03-22 12:48
JavaEE5
Rank: 2
等 级:新手上路
威 望:4
帖 子:150
专家分:0
注 册:2006-12-24
得分:0 
代码太长

我喜欢JavaEE5,虽然对此不了解。
2007-03-22 13:07
阳光白雪
Rank: 7Rank: 7Rank: 7
等 级:贵宾
威 望:39
帖 子:2220
专家分:0
注 册:2005-11-18
得分:0 
问题应该出在 Sub ShowInfo() 函数里
[QUOTE]Sub ShowInfo()
StrSql="Select * From XcUserInfo where id=" & cint(session("id")) & " and UserName='"&session("UserName")&"'"
'response.Write(StrSql)
'response.End()
Set Rs=Conn.execute(StrSql)
If Not Rs.Eof Then
......
End If
Rs.Close()
Set Rs = Nothing
End Sub[/QUOTE]]

加上一个判断语句试试


专注于WEB前端交互平台开发:[url=http://blog./]blog.[/url](富客户端技术(RIA)交流平台)
2007-03-22 13:23
homilulu
Rank: 1
等 级:新手上路
帖 子:57
专家分:0
注 册:2006-8-4
得分:0 
谢谢..搞定了.............

homilulu
2007-03-26 15:28



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-125824-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 1.221401 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved