28,391
社区成员
发帖
与我相关
我的任务
分享一个数据库更新的问题（在线等）
Microsoft VBScript 编译器错误 错误 '800a03f6'
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Recordset 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/Member/manage/changesortok.asp，行29
<%@language="VBscript"%>
<%Response.Expires=0%>
<!--#include file="../include/cn.asp"-->
<!--#include file="../include/const.asp"-->
<!--#include file="../include/db_conn.asp"-->
<!--#include file="../include/checkuser.asp"-->
<%
consumeid=trim(Request.Form("userid"))
edit_type=Request.Form("edit_type")
nowconsume1=trim(Request.Form("nowconsume1"))
'money1=trim(Request.Form("money1"))
'money2=trim(Request.Form("money2"))
'descript=trim(Request.Form("descript"))
'me_ver=current_ver
set myrs=server.CreateObject("ADODB.recordset")
myrs.Open "select * from t_user_info where userid='" & consumeid & "'",conn,1,3
%>
<% if not myrs.eof then
Response.Write myrs("id")
if edit_type="EDIT" then
myrs("Field_18")=nowconsume1
'myrs("money1")=money1
' myrs("money2")=money2
' myrs("descript")=descript
myrs.Update
maintitle="用户注册成功!"
content="<font color=red><b>修改成功!</b></font><br><br>同时您的信!<br><br><a href='" & mainpage & "'>返回后台目录页!</a>"
myrs.Close
set myrs=nothing
else
maintitle="非法操作!"
content="<font color=red><b>对不起,您执行了非法操作!请<a href='javascript:history.back();'>返回</a></b></font>"
end if
else
Response.Write "cuosssssssssssssssss"
end if
%>
<html>
<head>
<title><%=maintitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="main.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" height="24" class="p14"><b><%=maintitle%></b></td>
</tr>
<tr>
<td align="center">
<hr color="#DADADA">
</td>
</tr>
</table>
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center" height="48" class="p9">
<tr bgcolor="#f0f0f0">
<td align="center" height=100><%=content%></td>
</tr>
</table>
<!--#include file="../include/footer.asp"-->
</body>
</html>
我的数据库肯定有这条数据，可是为什么了？？？？？
缺少 'End'
/iisHelp/common/500-100.asp，行242
ADODB.Recordset 错误 '800a0bcd'
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/Member/manage/changesortok.asp，行29
<%@language="VBscript"%>
<%Response.Expires=0%>
<!--#include file="../include/cn.asp"-->
<!--#include file="../include/const.asp"-->
<!--#include file="../include/db_conn.asp"-->
<!--#include file="../include/checkuser.asp"-->
<%
consumeid=trim(Request.Form("userid"))
edit_type=Request.Form("edit_type")
nowconsume1=trim(Request.Form("nowconsume1"))
'money1=trim(Request.Form("money1"))
'money2=trim(Request.Form("money2"))
'descript=trim(Request.Form("descript"))
'me_ver=current_ver
set myrs=server.CreateObject("ADODB.recordset")
myrs.Open "select * from t_user_info where userid='" & consumeid & "'",conn,1,3
%>
<% if not myrs.eof then
Response.Write myrs("id")
if edit_type="EDIT" then
myrs("Field_18")=nowconsume1
'myrs("money1")=money1
' myrs("money2")=money2
' myrs("descript")=descript
myrs.Update
maintitle="用户注册成功!"
content="<font color=red><b>修改成功!</b></font><br><br>同时您的信!<br><br><a href='" & mainpage & "'>返回后台目录页!</a>"
myrs.Close
set myrs=nothing
else
maintitle="非法操作!"
content="<font color=red><b>对不起,您执行了非法操作!请<a href='javascript:history.back();'>返回</a></b></font>"
end if
else
Response.Write "cuosssssssssssssssss"
end if
%>
<html>
<head>
<title><%=maintitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="main.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td align="center" height="24" class="p14"><b><%=maintitle%></b></td>
</tr>
<tr>
<td align="center">
<hr color="#DADADA">
</td>
</tr>
</table>
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center" height="48" class="p9">
<tr bgcolor="#f0f0f0">
<td align="center" height=100><%=content%></td>
</tr>
</table>
<!--#include file="../include/footer.asp"-->
</body>
</html>
我的数据库肯定有这条数据，可是为什么了？？？？？
...全文
请发表友善的回复…
发表回复
聂niexiaolin 2004-06-20
- 打赏
- 举报
代码是没错，但因为并发操作，所以出现问题了，那条记录是被更新了
weige250 2004-06-20
- 打赏
- 举报
呵呵，看起来的确没错啊
yjgx007 2004-06-20
- 打赏
- 举报
<% if not myrs.eof then
Response.Write myrs("id")
if edit_type="EDIT" then
myrs("Field_18")=nowconsume1
'myrs("money1")=money1
' myrs("money2")=money2
' myrs("descript")=descript
myrs.Update
maintitle="用户注册成功!"
content="<font color=red><b>修改成功!</b></font><br><br>同时您的信!<br><br><a href='" & mainpage & "'>返回后台目录页!</a>"
myrs.Close
set myrs=nothing
else
maintitle="非法操作!"
content="<font color=red><b>对不起,您执行了非法操作!请<a href='javascript:history.back();'>返回</a></b></font>"
end if
else ' =============================== 这个else对应哪个if???
Response.Write "cuosssssssssssssssss"
end if
%>
Response.Write myrs("id")
if edit_type="EDIT" then
myrs("Field_18")=nowconsume1
'myrs("money1")=money1
' myrs("money2")=money2
' myrs("descript")=descript
myrs.Update
maintitle="用户注册成功!"
content="<font color=red><b>修改成功!</b></font><br><br>同时您的信!<br><br><a href='" & mainpage & "'>返回后台目录页!</a>"
myrs.Close
set myrs=nothing
else
maintitle="非法操作!"
content="<font color=red><b>对不起,您执行了非法操作!请<a href='javascript:history.back();'>返回</a></b></font>"
end if
else ' =============================== 这个else对应哪个if???
Response.Write "cuosssssssssssssssss"
end if
%>
