求解解决方案
日期：2014-05-17 浏览次数：21191 次
求解
<%
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 (0x800A0B
<%
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 (0x800A0B
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
