各位大虾帮帮忙，小弟在这里谢谢了
ADODB.Recordset 错误 '800a0e7d'
连接无法用于执行此操作。在此上下文中它可能已被关闭或无效。
add_ok.asp，行55
_______代码如下____________________________________________________________
<!--#include file="../include/chkuser.asp" -->
<!--#include file="../../include/check.asp"-->
<!--#include file="../../include/const.asp"-->
<!--#include file="../../include/system.asp"-->
<%
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%>
问题点数：0、回复次数：3Top
1 楼myvicy（我来也！）回复于 2005-04-01 15:52:37 得分 0
麻烦标出一下，第55行是那行Top
2 楼kiros（kiros）回复于 2005-04-01 16:01:12 得分 0
谢谢，以下是55行
---------------------------------------------------------------------------------
rst.Open "select * from member where account='" & account & "' and id<>" & memberid,objConn,3,1Top
3 楼myvicy（我来也！）回复于 2005-04-01 16:17:46 得分 0
检查你的objconn状态。Top
