求解
<%
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
