udsky上的教程。
各位帮帮忙!谢过先!
错误类型:
ADODB.Recordset (0x800A0CB3)
当前记录集不支持更新。这可能是提供程序的限制,也可能是选定锁定类型的限制。
/gong/Multipleinsert.asp, 第 21 行
代码:
<%@LANGUAGE="VBSCRIPT"%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conmm_STRING
rs.Source = "SELECT * FROM products"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
<%
if request("Submit")<> "" then
for i=1 to 3
if request("product" & 1)<> "" then
rs.addnew
rs("product")=request("product" & 1)
rs("price")=request("price" & 1)
rs.update
end if
next
response.redirect"Multipleinsert.asp"
end if
%>
Untitled Document<%
rs.Close()
Set rs = Nothing
%>