各位大虾帮帮忙，小弟在这里谢谢了

kiros 2005-04-01 03:38:03

ADODB.Recordset 错误 '800a0e7d'

连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。

add_ok.asp，行55

_______代码如下____________________________________________________________





<%
edit_action=UCase(request.Form("edit_action"))

account=trim(request.form("account"))
company=trim(request.Form("company"))
address=trim(request.Form("address"))
postcode=trim(request.Form("postcode"))
linkman=trim(request.Form("linkman"))
phone=trim(request.Form("phone"))
fax=trim(request.Form("fax"))
email=trim(request.Form("email"))
website=trim(request.Form("website"))
remark=trim(request.Form("remark"))
pwd=trim(request.form("pwd"))
memtype=request.form("memtype")

Call OpenConnection()
Set rst=Server.CreateObject("ADODB.RecordSet")
if edit_action="ADDNEW" then
rst.Open "select * from member where account='" & account & "'",objConn,3,3
if Not rst.EOF then
Call ShowMsg("登录帐号已经存在，请重新输入！","")
response.end
end if
rst.Addnew
rst("account")=account
rst("pwd")=pwd
rst("company")=company
rst("address")=address
rst("postcode")=postcode
rst("linkman")=linkman
rst("phone")=phone
rst("fax")=fax
rst("email")=email
rst("website")=website
rst("remark")=remark
rst("memtype")=memtype
rst.update
rst.CLose

title_str="添加会员"
msg_str="<b><font color=red>添加成功！</font></b><br><br>"
msg_str=msg_str & "<a href='member_list.asp'>浏览会员列表</a> <a href='add_member.asp?catalogid=" & catalogid & "'>继续添加会员</a>"
return_to_add
end if
if edit_action="EDIT" then
memberid=request.form("id")
ispass=request.form("ispass")
if ispass="" then ispass=0

rst.Open "select * from member where account='" & account & "' and id<>" & memberid,objConn,3,1
if Not rst.EOF then
Call ShowMsg("登录帐号已经存在，请重新输入！","")
response.end
end if
rst.CLose
rst.Open "select * from member where id=" & memberid,objConn,3,3
rst("account")=account
rst("pwd")=pwd
rst("company")=company
rst("address")=address
rst("postcode")=postcode
rst("linkman")=linkman
rst("phone")=phone
rst("fax")=fax
rst("email")=email
rst("website")=website
rst("remark")=remark
rst("sign")=ispass
rst("memtype")=memtype
rst.update
rst.CLose
return_to_edit
end if
set rst=nothing
Call CloseConnection()
%>
<%sub return_to_edit()%>
<form action="edit_member.asp" method=post name="frm_page">
<INPUT type="hidden" name="me_page" value=<%=session("current_edit_page")+1%>>
<INPUT type="hidden" name="id" value="<%=session("current_memberid")%>">
</form>
<script language="javascript">
document.frm_page.submit();
</script>
<%end sub%>
<%sub return_to_add()%><html>
<head>
<title><%=company_name%></title>
<META NAME="robots" CONTENT="none">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../main.css" type="text/css"></head>
<body bgcolor="#FFFFFF" leftMargin=0 marginwidth="0" topmargin=10>
<table width="700" border="0" cellspacing="1" cellpadding="1" bgcolor="#f0f0f0" align="center">
<tr>
<td>
<table width="700" border="0" cellspacing="0" cellpadding="0" align="center">
<tr bgcolor="<%=title_bgcolor%>">
<td height="28" align="center" ><span style="FONT-SIZE: 14px"><b><font color="<%=title_fontcolor%>"><%=title_str%></font></b></span></td>
</tr>
<tr align="center">
<td height="120" bgcolor="#ffffff"><%=msg_str%> </td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="10"></td>
</tr>
</table>
</body>
</html>
<%end sub%>

...全文

56 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

myvicy 2005-04-01

打赏
举报

检查你的objconn状态。

kiros 2005-04-01

打赏
举报

谢谢，以下是55行
---------------------------------------------------------------------------------
rst.Open "select * from member where account='" & account & "' and id<>" & memberid,objConn,3,1

myvicy 2005-04-01