求解
<%
dim PSsendNO
'表
PSsendNO=trim(request( "PSsendNO "))
if trim(request( "action ")) = "cmdupd " then
set updrs=server.createobject( "adodb.recordset ")
sql= "select * from send where PSsendNO= ' "&PSsendNo& " ' "
updrs.open sql,conn,3,3
conn.BeginTrans
updrs( "cartype ")= trim(request( "selectcartype "))
updrs( "carnumber ")= trim(request( "txtcarnumber "))
updrs( "motorman ")= trim(request( "txtmotorman "))
updrs( "fettle ")= trim(request( "selectfettle "))
updrs( "overhaul_date ")= trim(request( "txtoverhaul_date "))
updrs( "overhaul_dept ")= trim(request( "txtoverhaul_dept "))
updrs( "note ")= trim(request( "txtnote "))
updrs( "auditing ")= trim(request( "txtauditing "))
updrs.update
updrs.close
set updrs=nothing
response.write " <meta http-equiv= 'Content-Type ' content= 'text/html; charset=utf-8 '> "
response.write " <SCRIPT language=JavaScript> alert( '料送成功! '); "
response.write "window.document.location.href= 'PQvoiture_upd.asp?PSsendNo= "&PSsendNo& " '; </script> "
end if
set rs=server.CreateObject( "ADODB.Recordset ")
sqlstr= "select * from send where PSsendNO= ' "& PSsendNO & " ' "
rs.open sqlstr,conn,1,3
if rs.bof then
response.Write "不存在! "
end if
%>
<script language= "vbscript ">
sub cmdsava_onclick()
document.all( "form1 ")=submit
end sub
</script>
</head>
<body>
<form name= "form1 " method= "post " action= "PQvoiture_upd.asp?action=cmdupd ">
在action=cmdupd始前出PQcarNO正,怎出--ADODB.Recordset (0x800A0BCD)
可能是 BOF 或 EOF 的值 True，或目前的料已被除。所要求的操作需要目前的料。
提示PSsendNO是第一面的值,值一定存在
[解决办法]
set updrs=server.createobject( "adodb.recordset ")
sql= "select * from send where PSsendNO= ' "&PSsendNo& " ' "
updrs.open sql,conn,3,3
If Not updrs.eof Then
conn.BeginTrans
updrs( "cartype ")= trim(request( "selectcartype "))
updrs( "carnumber ")= trim(request( "txtcarnumber "))
updrs( "motorman ")= trim(request( "txtmotorman "))
updrs( "fettle ")= trim(request( "selectfettle "))
updrs( "overhaul_date ")= trim(request( "txtoverhaul_date "))
updrs( "overhaul_dept ")= trim(request( "txtoverhaul_dept "))
updrs( "note ")= trim(request( "txtnote "))
updrs( "auditing ")= trim(request( "txtauditing "))
updrs.update
End If
updrs.close
set updrs=nothing