博业激光官网:Microsoft VBScript 运行时错误 错误 '800a000d'

来源:百度文库 编辑:神马品牌网 时间:2024/03/29 07:35:28
Microsoft VBScript 运行时错误 错误 '800a000d'

类型不匹配

/card/bankback/123.asp,行 182

代码:
<tr>
<td width="140" bgcolor="#FFFFFF"><div align="right">卡 号</div></td>
<td width="437" bgcolor="#FFFFFF"><%=getcardnoInfo_rs("cardno")%></td>'这儿就是第182行
</tr>
<tr>
<td bgcolor="#FFFFFF"><div align="right">密 码</div></td>
<td bgcolor="#FFFFFF"><%=getcardnoInfo_rs("cardpwd")%></td>
</tr>

其它代码:
<%
dim getOrderInfo_rs
dim getcardnoInfo_rs
dim rs3
dim rs
set getOrderInfo_rs=server.createobject("adodb.recordset")
getOrderInfo_rs.open "select * from order_info where order_id='m_orderid'",MM_constr_STRING,1,3
if not getOrderInfo_rs.eof then

set getcardnoInfo_rs=server.createobject("adodb.recordset")
getcardnoInfo_rs.open "select * from cardnoInfo where state=false and card_id = '"&getOrderInfo_rs("card_id")&"'",MM_constr_STRING,1,3
end if

for i=1 to getOrderInfo_rs.card_num

if not getcardnoInfo_rs.eof then

set rs=server.createobject("adodb.recordset")
rs.ActiveConnection = MM_constr_STRING
rs.Source ="update cardNoInfo set state=true,order_id='m_orderid' where id='"&getOrderInfo_rs("id")&"'"
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()

Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.ActiveConnection = MM_constr_STRING
rs3.Source = "SELECT * FROM MakeCardInfo WHERE card_no='"&getcardnoInfo("cardno")&"' and card_pwd ='"&getcardnoInfo("cardpwd")&"'"
rs3.CursorType = 0
rs3.CursorLocation = 2
rs3.LockType = 1
rs3.Open()
if not rs3.eof then
Set com = Server.CreateObject("ADODB.Command")
com.ActiveConnection = MM_constr_STRING
com.CommandText = "update MakeCardInfo set isfill=true,userId='"&cstr(session("userid"))&"',fillDate='#"&cstr(now())&"#',userName='"&session("username")&"' where card_no='"&getcardnoInfo("cardno")&"' and card_pwd = '"&getcardnoInfo("cardpwd")&"'"
com.Execute
com.ActiveConnection.Close
set com=nothing

rs.close
set rs=nothing
rs3.close
set rs3=nothing
getcardnoInfo_rs.close
set getcardnoInfo_rs=nothing
getOrderInfo_rs.close
set getOrderInfo_rs=nothing
end if
end if
if not getcardnoInfo_rs.eof then getOrderInfo_rs movenext
next

Set com = Server.CreateObject("ADODB.Command")
com.ActiveConnection = MM_constr_STRING
com.CommandText = "update order_info set successState=true where order_id='m_orderid'"
com.Execute
com.ActiveConnection.Close
set com=nothing

Set com = Server.CreateObject("ADODB.Command")
com.ActiveConnection = MM_constr_STRING
com.CommandText = "update CardInfo set buy_num='buy_num+"&getOrderInfo_rs("card_num")&"' where id='"&getOrderInfo_rs("card_id")&"'"
com.Execute
com.ActiveConnection.Close
set com=nothing
end if
%>

查数据库表的类型