Question

ADODB.Recordset (0x800A0CB3)

错误类型：
ADODB.Recordset (0x800A0CB3)
当前记录集不支持更新。这可能是提供程序的限制，也可能是选定锁定类型的限制。
/admin/56770_sort.asp, 第 30 行

浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1; .NET CLR 1.1.4322)

网页：
POST 56 ??? /admin/56770_sort.asp

POST Data:
s_name=%B8%D0%C3%B0%D2%A9&s_paixu=1&Submit=%D0%DE+%B8%C4

代码片段：

select case action
case "add"
if trim(request("s_name"))<>"" then
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from 56770_sort", conn, 1, 3
rs.AddNew
rs("s_name")=trim(request("s_name"))
rs("s_paixu")=trim(request("s_paixu"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "56770_sort.asp"
response.end
end if
'----------------------------------------
case "edit"
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from 56770_sort where s_id=" &s_id, conn, 1, 3
rs("s_name")=request("s_name") ★就是这一行
rs("s_paixu")=cint(request("s_paixu"))
rs.update
rs.close
response.Redirect "56770_sort.asp"
response.end
set rs=nothing
'--------------------------------
case "del"
conn.execute "delete from 56770_sort where s_id="&s_id
response.Redirect "56770_sort.asp"
response
end select
%>
<table border="0" cellspacing="1" cellpadding="0" height="0" align=center width="98%" bgcolor="#183789">
<tr>
<td>
<table border="0" cellspacing="1" cellpadding="4" bgcolor="#FFFFFF" align="center" width="100%">
<tr>
<td height=15 align=center colspan=17 class=classtop>药品类别管理</td>

Answer 1

rs.open "select * from 56770_sort where s_id=" &s_id, conn, 1, 3
rs("s_name")=request("s_name") ★就是这一行

把上面的第一句换成下面的试试
rs.open "select * from 56770_sort where s_id=" &s_id&'", conn, 1, 3