高手指点

ADODB.Recordset 错误 '800a0e7d' 

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

/admin_manage/add_fxk.asp，行 7 

add_fxk.asp页面

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="../conn.asp" -->
<%  
id = request.Form("id") 
set rs=server.CreateObject("adodb.recordset") 
sql = "select * from fxk_sort where id="&id
rs.open
rs.addnew
fxk=request.Form("fxk")
sortname=request.Form("sortname")
rs("fxk")=fxk
rs("sortname")=sortname
rs.update
response.Write("添加数据成功！")
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect("add_manage.asp")
%> 

添加数据直接用sql语句就好

要写成什么样子

rs.open 你后面没写完吧
rs.open sql,conn,1,3

rs.open 你后面没写完吧

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="../conn.asp" -->
<%  
id = request.Form("id")  

fxk=request.Form("fxk")
sortname=request.Form("sortname")

sql="insert into fxk_sort(fxk,sortname) values('"&fxk&"','"&sortname&"')"
conn.execute(sql)
conn.close
set conn=nothing
response.Redirect("add_manage.asp")
%>

VBScript code

<!-- #include file="../conn.asp" -->
<%   
fxk = request.Form("fxk")
sortname = request.Form("sortname")
set rs = CreateObject("adodb.recordset")
sql = "select * from fxk_sort where 1=0"
rs.open sql, conn, 1, 3
rs.addnew
rs("fxk") = fxk
rs("sortname") = sortname
rs.update
rs.close
set rs=nothing
conn.close
set conn=nothing
response.Redirect("add_manage.asp")
%>